Question

Составить программу для нахождения площади ромба по стороне а и острому углу f (угол предварительно переведите в радианы t = f · 3,14 : 180) по формуле S = a 2 sin t

Answer 1

var
  a, f, t, S: real;

begin
  Write('Введите длину стороны ромба: '); Readln(a);
  Write('Введите величину острого угла ромба в градусах: '); Readln(f);
  t := f * pi / 180;
  S := sqr(a) * sin(t);
  Writeln('Площадь ромба равна ', S, ' кв.ед.')
end.

Тестовое решение:
Введите длину стороны ромба: 14.3
Введите величину острого угла ромба в градусах: 58.7
Площадь ромба равна 174.728286173858 кв.ед.