Jater

Uravnenie kakoe-to

Oct 25th, 2020 (edited)
834
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

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×