Помогите решить в Паскаль. вывести значение функции y при х, изменяющемся от x1 до x2 с шагом h. Y=ln(x)/x

Question

Ольга Емелькина · Accepted Answer

program q171632934;
var
 i, x1, x2, h: real;
begin
 Write('X1 = ');
 ReadLn(x1);
 Write('X2 = ');
 ReadLn(x2);
 Write('h = ');
 ReadLn(h);
 i := x1;
 while i <= x2 do
 begin
 WriteLn(ln(i)/i);
 i := i + h;
 end; 
 ReadLn;
end.

Настена · Answer

var x1,x2,h,x:real; 
begin
write('x1 x2 h: '); readln(x1,x2,h); x:=x1; 
repeat 
write(x:10:3); 
if x<=0 then writeln('none') else writeln(ln(x)/x:12:5); 
x:=x+h 
until 1.00001*x>x2;
readln 
end.