Программа для расчета по 2-м формулам

@GT_21 · Регистрация: 22.10.2014

Студворк — интернет-сервис помощи студентам

Напишите пожалуйста программу для расчета по 2-м формулам к этой картинке

$https://www.cyberforum.ru/cgi-bin/latex.cgi?z_1=\frac{\sin 4\alpha }{1+\cos 4\alpha }\cdot \frac{\cos 2\alpha }{1+\cos 2\alpha };\\\\\\z_2=\mathrm{ctg}\left( \frac{3}{2}\pi -\alpha \right).$

@Henesi609 · 22.10.2014, 23:49

Pascal

uses crt;
const pi=3.14;
var a:real;
Function Z1(a:Real):Real;
 begin
  Z1:=(sin(4*a)/(1+cos(4*a)))*(cos(2*a)/(1+cos(2*a)));
 end;
Function Z2(a:Real):Real;
 begin
  Z2:=cos((3*pi/2)-a)/sin((3*pi/2)-a);
 end;
begin
 clrscr;
 Write('a=');
 readln(a);
 Writeln('Z1=',Z1(a):10:3);
 Writeln('Z2=',Z2(a):10:3);
 readkey;
end.

@GT_21 0 / 0 / 0 Регистрация: 22.10.2014 Сообщений: 16
		1
	Программа для расчета по 2-м формулам 22.10.2014, 17:34. Показов 1287. Ответов 1 Метки нет (Все метки) Напишите пожалуйста программу для расчета по 2-м формулам к этой картинке $https://www.cyberforum.ru/cgi-bin/latex.cgi?z_1=\frac{\sin 4\alpha }{1+\cos 4\alpha }\cdot \frac{\cos 2\alpha }{1+\cos 2\alpha };\\\\\\z_2=\mathrm{ctg}\left( \frac{3}{2}\pi -\alpha \right).$ 0

Опции темы

Программа для расчета по 2-м формулам

Решение