составить программу,используя оператор While / repeat и протабулировать функцию(Turbo Pascal)

[Dina 85]

1 Шаг протабултровать функцию.
2 Шаг составить программу ,используя оператор While
3 шаг составить программу(такая же как и предыдущая),используя оператор repeat
Задание по теме ЦИКЛЫ(МАССИВЫ НЕ ИСПОЛЬЗУЮТСЯ).

[badnum23]

while

program Project2;

const
  e = 2.7182;
var
  a,b,x: Integer;
  z: Single;

begin
  write('Press a and b: ');
  readLn(a,b);
  x := -3;
  z := 0;
  while x < 7 do
  begin
    if (x < a) then
      z := z + exp(ln(e) * a*x) + sqr(cos(a+x))
    else if (x = a) then
      z := z + Sqrt(sin(a*b))
    else
      z := z + 3 * exp(ln(x) * (2+b)) + (x+b)/(a+x);
    Inc(x);
  end;
  writeLn('result = ', z:4:4);
  readLn;
end.

repeat...until

program Project2;

const
  e = 2.7182;
var
  a,b,x: Integer;
  z: Single;

begin
  write('Press a and b: ');
  readLn(a,b);
  x := -3;
  z := 0;
  repeat
    if (x < a) then
      z := z + exp(ln(e) * a*x) + sqr(cos(a+x))
    else if (x = a) then
      z := z + Sqrt(sin(a*b))
    else
      z := z + 3 * exp(ln(x) * (2+b)) + (x+b)/(a+x);
    Inc(x);
  until x > 6;
  writeLn('result = ', z:4:4);
  readLn;
end.

[Dina 85]

А ПРОТАБУЛИРОВАТЬ?

[badnum23]

Табулирование функции - это вычисление значенй функции при изменении аргумента от некоторого начального значения до некоторого конечного значения с определенным шагом. Именно так составляются таблицы значений функций, отсюда и название - табулирование

Сумму считать было излишним похоже, но ты можешь сама исправить этот момент: просто вместо z := z + выражение пиши writeLn(выражение)

[O'neeL]

А попробовать самостоятельно разобраться? Тут помогают, а не делают задания за вас.