Question

Помогите пожалуйста!!! надо написать эту формулу в паскаль!!! v=pb^3 *ctg z/2 * tgL это числитель /8sin^2 * z/2 знаменатель

Answer 1

Var b,beta,l,br,lr,v:real;
begin
readln(b,l,beta);
br:=(beta*pi/180)/2;
lr:=(l*pi/180);
v:=(pi*b*b*b*(cos(br)/sin(br))*(sin(lr)/cos(lr)))/(8*sqr(sin(br)));
writeln(v:7:2);
end.

Пример:
24 26 37
78596.40