Площадь параллелограмма:
program chet;
var
sq, a , b : integer;
begin
writeln('Введите стороны параллелограмма ');
readln(a,b);
sq := a * b;
writeln('Площадь параллелограмма равна ', sq);
end.
Площадь трапеции:
program chet;
var
sq,h, a , b : real;
begin
writeln('Введите длину оснований ');
readln(a,b);
writeln('Введите высоту трапеции');
read(h);
sq := (a+b)/2 * h;
writeln('Площадь трапеции равна ', sq);
end.
Площадь круга:
program chet;
const
PI = 3.14;
var
sq,r : real;
begin
writeln('Введите радиус круга');
readln(r);
sq := PI * sqr(r);
writeln('Площадь круга равна ', sq);
end.
И площадь ромба:
program chetdsa;
var
sq,d,g : real;
begin
writeln('Введите чему равны диагонали ромба');
readln(d,g);
sq := (d*g)/ 2;
writeln('Площадь ромба равна ', sq);
end.
Представим, что мы считаем сами так, как компьютер:
1) а:=1; b:=1;
выполняем программу: а:=а+1, т.е. а = 1+1 = 2; b:=1*3 =3 - это 1-й раз;
проверяем условие b<a, т.е. 3 <2 - ложно, значит, больше данная последовательность операторов выполняться не будет.
ответ: 1 раз.
2) s:=0 ; n:=0;
проверяем условие n<5, т.е. 0<5 - верно, значит теперь s:=s+2 =0+2=2, n:=n+1=0+1=1 - 1-й раз;
проверяем условие n<5, т.е. 1<5 - верно, значит теперь s:=s+2 =2+2=4, n:=n+1=1+1=2 - 2-й раз;
проверяем условие n<5, т.е. 2<5 - верно, значит теперь s:=s+2 =4+2=6, n:=n+1=2+1=3 - 3-й раз;
проверяем условие n<5, т.е. 3<5 - верно, значит теперь s:=s+2 =6+2=8, n:=n+1=3+1=4 - 4-й раз;
проверяем условие n<5, т.е. 4<5 - верно, значит теперь s:=s+2 =8+2=10, n:=n+1=4+1=5 - 5-й раз;
проверяем условие n<5, т.е. 5<5 - ложно, значит выполнения фрагмента программы больше не будет.
ответ: 5 раз.
3) оператор цикла будет выполнен для х=10, х=11 и х=12, т.е. 3 раза.
ответ: 3 раза.