Табулирование функции - Turbo Pascal (35265)

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

Вот на этом рисунке указана моя формула, нужно протабулировать её в Pascal, а я в этом ни бум-бум. Помогите пожалуйста

Код к задаче: «Табулирование функции - Turbo Pascal (35265)»

textual
Var
  x: Real;
BEGIN
x:=0.1;
While x<=1.2 do
begin
  Writeln('X= ',x:0:1,' Y= ',Exp((1/3)*Ln(Sin(x)/Cos(x)+Exp((-x)*Ln(2))))*Cos(2*x)/Sin(2*x):5:5);
  x:=x+0.1;
end;
Readln
END.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 3.833 из 5


СДЕЛАЙТЕ РЕПОСТ