function y(x: real): real; begin y:=1-(sin(x))/(1-ln(x+1)); end; // основная программа begin x:=0.1; h:=0.1; writeln('-------------------'); writeln('| x | y |'); writeln('-------------------'); repeat writeln('|',x:6:1,' |',y(x):7:3, ' |'); x:=x+h; until x>=3.1; writeln('-------------------'); end.
Answers & Comments
var x,h: real;
function y(x: real): real;
begin
y:=1-(sin(x))/(1-ln(x+1));
end;
// основная программа
begin
x:=0.1;
h:=0.1;
writeln('-------------------');
writeln('| x | y |');
writeln('-------------------');
repeat
writeln('|',x:6:1,' |',y(x):7:3, ' |');
x:=x+h;
until x>=3.1;
writeln('-------------------');
end.