program pro0001(output);
const
N=10;
A=0.55;
B=1;
step=(B-A)/(N-1);
var
i: integer;
x1: real;
function x(n: integer): real;
begin
x:=A+(step*(n-1));
end;
function f(x: real): real;
var y1, y2, y3: real;
begin
y1:=exp(ln(sin(x/2))*(3/2));
y2:=exp(ln(exp(1.3*x)+exp(-1.3*x))/3);
y3:=abs(x-7/9);
f:=(y1+y2)/y3;
end;
begin
writeln('n, X, Y');
for i:=1 to N do
begin
x1:=x(i);
writeln(i,', ',x1:5:3,', ',f(x1):8:6);
end;
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎
0 B
|👍
/👎