Версия для печати темы

Автор: Archie 14.10.2007 22:03

Плиз - нужно составить блок схемы для этих 3 задач...у меня этого сделать не получается, тк шарю в паскале оч плохо. хэлп!
Первая задачка.

 program primer2;
uses crt;
const n=5;
var x:array [1..n] of real;
    y:array [1..n] of real;
    i:integer;minx,miny:real;r:real;
 begin
 clrscr;
 for i:=1 to n do
  begin
  write('vvedite chislo x',i,'-');
  readln(x[i]);
  write('vvedite chislo y',i,'-');
  readln(y[i]);
  end;
  minx:=abs(x[1]);
  miny:=abs(y[1]);
  for i:=2 to n do
  if (abs(x[i])<minx) and (abs(y[i])<miny) then
   begin
   minx:=abs(x[i]);
   miny:=abs(y[i]);
   end;
  r:=sqrt(sqr(minx)+sqr(miny));
  writeln('r ravno',r);
  readkey;
 end. 

Втарая...

program primer1;
var k,n:integer;
 begin
 k:=0;
 write('vvedite n-');
 readln(n);
 repeat
 n:=n div 10;
 k:=k+1;
 until n=0;
 writeln('k ravno',k);
 end.

ну и последняя...

program fff;
var x,a,b:integer;
begin
writeln('vv nomer chisla');
readln(a);
b:=tRunc(a/10)+1;
if (a mod 2)=1 then
 begin
 x:=b;
 end;
if (a mod 2)=0 then
 begin
 x:=(a div 2)-1;
 if x>9 then x:=x-10;
 end;
writeln('chislo=',x);
end.

Автор: Tan 14.10.2007 22:35

http://forum.pascal.net.ru/index.php?showtopic=4270&hl=blseditor