Задание 3. Табулирование функции

Составить программу на языке Turbo Pascal для вычисления значений функции у = Ln (х) на отрезке [а, b] с шагом h.

Program Tab_3;

var a, b, h, x, y: real; n, i: integer;

begin

Writeln ('Введите значения a, b');

Read (a, b);

Writeln ('Введите шаг h');

Read (h);

n:=round((b-a)/h);

Writeln('Таблица значений функции');

for i:=0 to n do

begin

x:=a+h*i;

y:=ln(x);

Writeln('x=', x:4:2, ' y=', y:6:2)

end

end.