Составить программу, в которой вводятся исходные данные, вычисляются заданные арифметические выражения и выводятся на экран дисплея результаты вычислений — Pascal(Паскаль)

Исходные данные выбираются произвольно, исходя из области допустимых значений функции.
Z=( X^2+X/2) / (Ex+sin^2x) + 16*E^x2*lnx^2
Y= A+ X/(7.5-3.2*X^2)+ X^3*(A-1)/ln(X^3-6)

program PascalGuru;

Function Pow(A, B: Real): Real; { Функция возведения в степень (A^B) - ОТРИЦАТ }
Var
  T: Real; { http://www.pascalguru.ru/resheniya_2.html?id=149 }
Begin
  T := Abs(A);
  If A < 0 Then
    Pow := (-1) * Exp(B * Ln(T))
  Else
    Pow := Exp(B * Ln(T));
End;

function z(x: Real): Real;
var
  e: Real;
begin
  e := 2.72;
  z := (sqr(x) + (x / 2)) / (Pow(e, x) + sqr(sin(x)) + (16 * Pow(e, Pow(x, 2)))
    * Ln(x * x))
end;

function y(A, x: Real): Real;
begin
  y := A + (x / (7.5 - 3.2 * sqr(x))) +
    (((x * x * x) * (A - 1)) / Ln((x * x * x) - 6));
end;

{ -------------- }
var
  A, x: Real;

begin
  write('X= ');
  readln(x);
  write('A= ');
  readln(A);

  writeln('Z= ', z(x):0:12);
  writeln('Y= ', y(A, x):0:2);

  readln;

end.

Похожие записи/страницы:

Leave a Comment

9 + 1 =