Вывести значение функции

[ss1112]

Вывести значение функции на промежутке [a..b] c шагом 0.5, вывод результата оформить в виде таблицы, организовать повтор программы, используя цикл с постусловием.

[newerow1989]

const a=1;
      b=5;
      dx=0.5;
var x,y:real;
begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      y:=Ln(Abs(x+1));
      Writeln(x:2:1,'  ',y:5:5);
   Until x>=b;
   Readln;
end.

[ss1112]

Сообщение от newerow1989

const a=1;
      b=5;
      dx=0.5;
var x,y:real;
begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      y:=Ln(Abs(x+1));
      Writeln(x:2:1,'  ',y:5:5);
   Until x>=b;
   Readln;
end.

Спасибо)))

[Аватар]

Не понравится. Кто-то должен проверить, что бы x не был -1