Объясните как написать прогу..

[GoldSieg]

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

Я просто не могу понять как прописывать индексы и проводить с ними операции.
Если не тяжело приведите пример кода.

Текст программы

[JUDAS]

program korenkubichnij;
  function koren3(Z, eps : double): double;
  var delta,wn :double;
  begin
    if z>=1 then wn:=z/3 else wn:=3*z/3;
    repeat
      delta := (z/(wn*wn) - wn)/3;
      wn:=wn+delta;
    until abs(delta)<eps;
    result:=wn;
  end;

var z,w : double;
begin
  write('enter Z '); read(z);
  W:=koren3(Z, 1E-5);
  write(Z:12:6, W:12:6);
end.

Кстате, у Вас ошибка в условии задачи в документе типа Ворд
условию |wn+1 – wn|< 105
При условии что "епсилон" погрешность будет 100000 , цикл функции приближения, будет срабатівать всега 1 раз и начальное Wo будет результатом функции, причём всегда !

[GoldSieg]

Спасибо за код. терь буду разбираться..
На счет ошибки в задании. . странно но действительно. неверно.