Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Составить алгоритм и написать программу вычисления площади геометрической фигуры с использованием условного оператора if по одной из формул: S=п*r ; S=a*b

Ответ оставил Гость

var

s,r,a,b:real;

k:byte; 

begin

repeat 

write (1 - S kruga; 2 - S  pryamougolnika: );readln(k);

until (k=1) or (k=2); 

if k=1 then begin

write (Radius: );readln(r);

s:=pi*r;

writeln (S = ,s:0:5);

end else begin

write (A = );readln(a);

write(B = );readln(b);

s:=a*b;

writeln (S = ,s:0:4);

end;

readln;

end.