Вычислить значения выражений - Pascal ABC (12566)

Формулировка задачи:

Нужно написать программу, в которой пользователь вводит альфа(alpha), а программа бы считывала z1=cos в квадрате от разности ((3/8)*pi-(alpha/4))-cos в квадрате от суммы ((11/8)*pi+(alpha/4)) z2=(корень из 2-х/2)*sin от дроби (alpha/2)

Код к задаче: «Вычислить значения выражений - Pascal ABC (12566)»

textual
var
  a, z1, z2: real;
 
begin
  read(a);
  z1 := cos(3 * pi / 8 - a / 4) * cos(3 * pi / 8 - a / 4) - cos(11 * pi / 8 + a / 4) * cos(11 * pi / 8 + a / 4);
  z2 := 0.5 * sqrt(2) * sin(a / 2);
  writeln(z1);
  writeln(z2);
end.

11   голосов, оценка 4.182 из 5


СОХРАНИТЬ ССЫЛКУ