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

uses crt;
var x,y,z,u,w,t:real;
begin
clrscr;
x:=1.825;
y:=18.225;
z:=-3.298;
writeln('Вычислить значения выражений');
writeln;
writeln('Y=abs(x^(y/x)-exp(ln(y/x)/3))');
writeln('W=(y-x)*((y-z)/(y-x)/(1+(y-x)^2))');
writeln;
writeln('x=',x:0:3,' y=',y:0:3,' z=',z:0:3);
writeln;
t:=y/x;
u:=abs(exp(ln(x)*t)-exp(ln(t)/3));
writeln('Y=',u:0:3);
t:=y-x;
w:=t*((y-z)/t)/(1+t*t);
writeln('W=',w:0:3);
readln
end.

Следующий вариант

uses crt;
function Y(x,u:real):real;
var t:real;
begin
t:=u/x;
Y:=abs(exp(ln(x)*t)-exp(ln(t)/3));
end;
function W(x,u,z:real):real;
var t:real;
begin
t:=u-x;
W:=t*((u-z)/t)/(1+t*t);
end;
 
begin
clrscr;
writeln('Вычислить значения выражений');
writeln;
writeln('Y=abs(x^(y/x)-exp(ln(y/x)/3))');
writeln('W=(y-x)*((y-z)/(y-x)/(1+(y-x)^2))');
writeln;
writeln('x=1.825 y=18.225 z=-3.298');
writeln;
writeln('Y=',Y(1.825,18.225):0:3);
writeln('W=',W(1.825,18.225,-3.298):0:3);
readln
end.

Следующий вариант

uses crt;
procedure Y1(x,u:real;var y:real);
var t:real;
begin
t:=u/x;
y:=abs(exp(ln(x)*t)-exp(ln(t)/3));
end;
procedure W1(x,u,z:real;var w:real);
var t:real;
begin
t:=u-x;
w:=t*((u-z)/t)/(1+t*t);
end;
var y,w:real;
begin
clrscr;
writeln('Вычислить значения выражений');
writeln;
writeln('Y=abs(x^(y/x)-exp(ln(y/x)/3))');
writeln('W=(y-x)*((y-z)/(y-x)/(1+(y-x)^2))');
writeln;
writeln('x=1.825 y=18.225 z=-3.298');
writeln;
Y1(1.825,18.225,y);
writeln('Y=',y:0:3);
W1(1.825,18.225,-3.298,w);
writeln('W=',w:0:3);
readln
end.

Leave a Comment

85 − 81 =