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

Pascal 1. Дан прямоугольный треугольник с катетами a и b. Составьте программу для вычисления гипотенузы c, периметра, площади, радиуса вписанной и описанной окружности.
напишите программу в pascal

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

Program calculations;
var a,b,c, S, P,poluperimetr , Radius1, radius2: real;

begin
writeln (Enter a:);
readln(a);
writeln(Enter b:);
readln(b);
c:=sqrt(a*a+b*b);
S:=(a*b)/2;
P:=a+b+c;;
poluperimetr:=P/2;
Radius1:=c/2;
radius2:=sqrt(((poluperimetr-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr);
writeln(c=,c:2:2);
writeln(S=,S:2:2);
writeln(P=,P:2:2);
writeln(Radius1=,Radius1:2:2);
writeln(radius2=,radius2:2:2);
readln;
end.