Помогите составить Табуляцию

[gaben134]

Помогите составить Табуляцию

Вычислить и вывести на экран значение функции, заданной графически, на интервале от Хнач до Хкон с шагом h. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой.
Разработку алгоритма построения таблицы выполнить с помощью цикла с заранее неизвестным числом повторений
Разработку алгоритма вычисления функции выполнить методом половинного деления цепочки ситуаций.
Ещё нужно использовать не function а while(по словам препода)

 

[Vladimir_S]

Извините, чем могу.
Видите ли, на мой взгляд смысл подобных сентенций

Разработку алгоритма вычисления функции выполнить методом половинного деления цепочки ситуаций.

боюсь, навсегда останется тайной препода, их изрекающего. Так что уж не взыщите:

Const
 Xbeg=-10.0;
 Xfin=8.0;

Var
 x,y,h:Real;

Begin   
 Write(' h = ');
 Readln(h);
 Writeln('     x              y');
 x:=Xbeg;
 while x<=-6.0 do
  begin
   y:=Sqrt(4-Sqr(x+8))-2.0;
   writeln(x:8:3,y:15:3);
   x:=x+h;
  end;
 while x<=2.0 do
  begin
   y:=x/2+1;
   writeln(x:8:3,y:15:3);
   x:=x+h;
  end;
 while x<=6.0 do
  begin
   y:=0;
   writeln(x:8:3,y:15:3);
   x:=x+h;
  end;
 while x<=8.0 do
  begin
   y:=Sqr(x-6);
   writeln(x:8:3,y:15:3);
   x:=x+h;
  end;
 Readln
End.