Главная » Статьи » Задачи по программированию
Cтpyктypнoe программирование [Pascal]
 Напишите программу для расчета по двум формулам (результаты
вычисления по обеим формулам должны совпадать).

Формулы:


Решение:

var
  z1,z2,d:real;
    Begin
  Write('Введите a ');
  Readln(d);
    Z1:=(sin(2*d)+sin(5*d)-sin(3*d))/(cos(d)+1-2*SQR(sin(2*d)));
    Z2:=2*SIN(d);
   Writeln('Z1= ',Z1:2:2);
   Writeln('Z2= ',Z2:2:2);
  Readln;
  end.
Категория: Задачи по программированию | Добавил: shypuk (25.09.2013)
Просмотров: 666 | Теги: Pascal, Задачи Pascal, Cтpyктypнoe программирование, Pascal ABC | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]