Построить блок схему и разработать программу на языке Паскаль: Найти площадь окружности, вписанной в равнобедренную трапецию, с основаниями a b и боковой стороной с. Я попытался написать программу, не уверен в правильности. Моя ахинея: const pi=3.14; var figure: byte; a,b,r,c,f:real; f:real:=sqrt(ab) begin write(0.5f); readln(d); s:= pi * sqr(d) / 4 end.

Question

Максим 05.23.19

Решено

Построить блок схему и разработать программу на языке Паскаль: Найти площадь окружности, вписанной в равнобедренную трапецию, с основаниями a b и боковой стороной с. Я попытался написать программу, не уверен в правильности. Моя ахинея: const pi=3.14; var figure: byte; a,b,r,c,f:real; f:real:=sqrt(ab) begin write(0.5f); readln(d); s:= pi * sqr(d) / 4 end.

159

ОТВЕТЫ

Program n1;
var b,c: real;
begin
write(введите верхнее основание: );
readln(b);
write(введите нижнее основание: );
readln(c);
writeln(площадь вписанной окружности: ,sqr((sqrt(b*c)/2))*pi:6:2);
end.

187

Отв. дан 2019-05-23 09:17:40

Другие вопросы в разделе - Информатика