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

Категория: Delphi/Pascal
2012-01-28 17:46:46

Исходные данные выбираются произвольно, исходя из области допустимых значений функции.
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)

code: #pascal
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.
Поделиться:

Похожие статьи:

теги: степень, функция, студенты