Табулирование функций с использованием циклических алгоритмов с постусловием

[Ikaros]

Задание:
Для всех вариантов заданий разработать алгоритм и программу, имеющих структуру цикла с постусловием и осуществляющих табулирование заданной функции при изменении аргумента от начального значения до конечного значения с постоянным шагом , т.е.

[Alex11223]

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

function f(x:real):real;
begin
   If Abs(x)<=1 then
      Result:=Abs(x) else
   If (1<Abs(x)) and (Abs(x)<=2) then
      Result:=x*x else
      Result:=4;
end;

const a=-4;
      b=-a;
      dx=0.1;
var x,y:real;
begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      y:=f(x);
      Writeln(x:2:2,'  ',y:2:4);
   Until x>=b;
   Readln;
end.