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

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 кв. ед.