Помогите составить программу в паскале

z1 = 1/4 - 1/4*sin (5/2pi-8a)

z2 = (1-sin^2a) / (1+sin2a)

Question

Информатика

Санюта

7 мая, 13:30

Помогите составить программу в паскале

z1 = 1/4 - 1/4*sin (5/2pi-8a)

z2 = (1-sin^2a) / (1+sin2a)

+3

Ответы (1)

Знаете ответ?

Паня · Answer 1

Var

z1, z2:Real;

a:Integer;

Begin

Read (a) ;

z1:=1/4-1/4*sin (5/2*pi - (8*a)) ;

z2: = (1-sqr (sin (a)) / (1+sqr (sin (a)) ;

Writeln ('z1 = ', z1) ;

Writeln ('z2 = ', z2) ;

end.

Помогите составить программу в паскалеz1 = 1/4 - 1/4*sin (5/2pi-8a)z2 = (1-sin^2a) / (1+sin2a)

Помогите составить программу в паскале

z1 = 1/4 - 1/4*sin (5/2pi-8a)

z2 = (1-sin^2a) / (1+sin2a)