Question

Алгоритмы линейной и разветвляющей структуры
1. Вычислить: z=2sin(3pi-2a)cos^2(5p+2a)
2. Вычислите длину окружности, площадь круга и объём шара одного и того же заданного радиуса.

пожалуйста помогите вычислить в паскале

Answer 1

1.
var a,p,z:real;
begin
readln(a,p);
z:=2*sin(3*pi-2*a)*sqr(cos(5*p+2*a));
writeln('z = ',z:6:4);
end.

Пример:
0.8 1.5
z = 1.7956

2.
var r:real;
begin
readln(r);
writeln('длина окружности = ',2*pi*r:6:4);
writeln('площадь круга = ',pi*r*r:6:4);
writeln('объём шара =',4/3*pi*r*r*r:6:4);
end.

Пример:
2
длина окружности = 12.5664
площадь круга = 12.5664
объём шара =33.5103