Помогите, пожалуйста, буду очень благодарна

0 голосов
17 просмотров

Помогите, пожалуйста, буду очень благодарна


image

Информатика (8.9k баллов) | 17 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
var a,b,c,h,p,s: real;
    aa,ab,ac: integer;
begin
  write('длины сторон a и b через пробел: ');
  readln(a,b);
  write('угол при вершине C в градусах: ');
  readln(ac);
// длина стороны c по теореме косинусов
  c:=sqrt(sqr(a)+sqr(b) - 2*a*b*cos(ac*pi/180));
// угол aa по теореме синусов
  aa:=round(((arcsin(a*sin(ac*pi/180)/c))/pi)*180);  
  ab:=180-aa-ac;
// периметр
  p:=a+b+c;
// площадь
  s:=a*b*sin(ac*pi/180)/2;
// высота
  h:=2*s/c;
// вывод на экран
  writeln('угол при вершине А: ',aa,' град.');
  writeln('угол при вершине B: ',ab,' град.');
  writeln('длина стороны c: ',c:5:2);
  writeln('периметр: ',p:5:2);
  writeln('площадь S: ',s:5:2);
  writeln('высота h опущенная из вершины С: ',h:5:2);
end.

длины сторон a и b через пробел: 6 6
угол при вершине C градусах: 60
угол при вершине А: 60 град
.угол при вершине B: 60 град.
длина стороны c:  6.00
периметр: 18.00
площадь S: 15.59
высота h опущенная из вершины С:  5.20

длины сторон a и b через пробел: 4 6
угол при вершине C в градусах: 30
угол при вершине А: 38 град.
угол при вершине B: 112 град.
длина стороны c:  3.23
периметр: 13.23
площадь S:  6.00
высота h опущенная из вершины С:  3.72

(9.7k баллов)