Помощь - Поиск - Пользователи - Календарь
Полная версия: Нужны блок-схемы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Archie
Плиз - нужно составить блок схемы для этих 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.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.