Jater

Uravnenie kakoe-to

Oct 25th, 2020 (edited)
694
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Uravnenie;
  2. var
  3.     i: Integer;
  4.     X, Y, degree: Double;//тип Double для работы с большими числами
  5. begin
  6.     WriteLn('Введите X: ');
  7.     ReadLn(X);
  8.     degree := X;
  9.     for i:=1 to 93 do//цикл для возведения в степень
  10.     begin
  11.         degree := degree*X;
  12.     end;
  13.     Y := (degree - Sin(X)*Sin(X))/(X*X*X + Cos(X)*Cos(X)*Cos(X) - 7);
  14.     WriteLn('Ответ: ', Y);
  15. end.
  16. *************************************************************************
  17. program Uravnenie;
  18. var
  19.     i: Integer;
  20.     X, Y, degree: Double;//тип Double для работы с большими числами
  21. begin
  22.     WriteLn('Введите X: ');
  23.     ReadLn(X);
  24.     Y := (exp(94*LN(X)) - Sin(X)*Sin(X))/(exp(3*LN(X)) + exp(3*LN(Cos(X))) - 7);//exp(94*LN(X)) возведение X в степень 94
  25.     WriteLn('Ответ: ', Y);
  26. end.
RAW Paste Data