Question

Написать программу для расчета по двум формулам.

Answer 1

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Задайте углы a и b в радианах');
  var (a,b):=ReadReal2;
  var z1:=(Sin(a)+Cos(2*b-a))/(Cos(a)-Sin(2*b-a));
  var z2:=(1+Sin(2*b))/Cos(2*b);
  Writeln('z1=',z1,NewLine,'z2=',z2)
end.

Пример
Задайте углы a и b в радианах
0.521 -1.18
z1=-0.416444539436704
z2=-0.416444539436704

Answer 2

Спасибо )