написать код на ПИТОНЕ . по этой задаче Написать функции RectP(x1, y1, x2, y2), RectS(x1, y1, x2, y2), - id2072165620210525 от FeGLoCk 25.05.2021 10:28

Question

Информатика: написать код на ПИТОНЕ . по этой задаче Написать функции RectP(x1, y1, x2, y2), RectS(x1, y1, x2, y2), вычисляющие периметр P и площадь S прямоугольника со сторонами, параллельными осям координат, по координатам (x1, y1), (x2, y2) его противоположных вершин. Все параметры вещественного типа. С этих функции найти периметры и площади трех прямоугольников. Вершины прямоугольников ввести с клавиатуры.

FeGLoCk · Accepted Answer

Var a,b,c,alfa,beta,gamma:real;
ga,ma,sa,gb,mb,sb,gg,mg,sg:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
alfa:=arccos((b*b-c*c+a*a)/(2*b*c))*180/pi;
ga:=int(alfa);
ma:=int(frac(alfa)*60);
sa:=frac(frac(alfa)*60);
writeln('alfa = ',ga:3:0,' gr ',ma:3:0,' min ',sa:3:1,' sec');
beta:=arccos((c*c-b*b+a*a)/(2*c*a))*180/pi;
gb:=int(beta);
mb:=int(frac(beta)*60);
sb:=frac(frac(beta)*60);
writeln('beta = ',gb:3:0,' gr ',mb:3:0,' min ',sb:3:1,' sec');
gamma:=arccos((c*c-a*a+b*b)/(2*c*b))*180/pi;
gg:=int(gamma);
mg:=int(frac(gamma)*60);
sg:=frac(frac(gamma)*60);
writeln('gamma = ',gg:3:0,' gr ',mg:3:0,' min ',sg:3:1,' sec');
end.

Пример:
a=3
b=4
c=5
alfa = 90 gr 0 min 0.0 sec
beta = 53 gr 7 min 0.8 sec
gamma = 36 gr 52 min 0.2 sec

MOGZ ответил