Program w;
var a,b,c,s:real;
begin
writeln('Введите a,b');
readln(a,b);
c:=sqrt(sqr(a)+sqr(b));
s:=(a*b)/2;
writeln('Гипотенуза:');
writeln(c:4:2);
writeln('Площадь:');
writeln(s:4:2);
end. <span>
</span>
Program raketa;
uses graph;
var gd,gm:integer;
begin
detectgraph (gd,gm);
initgraph (gd,gm,'C:\tp7 ');
line (300,60,240,120);
line (240,120,240,360);
line (360,120,360,360);
line (240,360,360,360);
line (300,60,360,120);
line (240,210,210,240);
line (210,240,240,240);
line (360,210,390,240);
line (390,240,360,240);
circle (300,150,15);
circle (300,210,15);
circle (300,270,15);
Bar (270,300,240,360);
line (240,360,180,450);
line (180,450,420,450);
line (420,450,360,360);
line (330,450,330,370);
line (300,450,300,365);
line (270,450,270,370);
line (240,330,180,330);
line (180,330,90,450);
line (172,330,80,445);
line (300,60,300,30);
readln
end<span>.</span>
что не опнятно именно? как работает блок-схема?
если в блок-схеме дело, то объясню. Это цикл While(пока). Пишу блок-схему на русском.
Начало
Ввод х, у
Пока х=у, если да то вывод Х и уход на конец.
если нет, идёт дальше условный оператор if(если).
Если x>y если да, то ячейке х присвой значение х-у, если нет, то ячейке у присвой значение у-х. Дальше программа уходит на повтор.
Объясню на примере чисел.
вводим данные х=10, у=15;
10 не равно 15, значит идём на условный оператор if
10 < 15, ячейке У присваиваем значение 15-10
на экране 5.
на всякий могу написать программу.
Program af;
uses crt;
var x,y:integer;
begin
clrscr;
readln(x,y;
while x=y do begin
if x>y then x:=x-y
else Y:=Y-X;
end;
writeln(x);
readln;
end.
