как программируется цикл с предусловием на паскале

Ответ от UaKaah[гуру]
лучше так - выход по бесконечно малому приращению
var i: integer; r,s, delta: real;
begin
r:=1; s:=0;delta=999;
While delta>0 do
begin
delta:=1/i; s:=s+delta; i:=i+1;
end;
writeln(s); readln
end.

Ответ от Александр Погребняк[гуру]
Здесь нужен другой цикл! Например, с предусловием и указанием точности вычислений. Например, выполнять до тех пор, пока элемент последовательности не станет меньше заданной величины. Krab Bark тебе показал, как это делается в цикле с параметром. Но тогда нужно еще дополнительное условие: либо количество шагов цикла, либо точность вычислений. Если нужен второй способ - пиши на почту. А на счет преподавателя согласен с Krab Bark)

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]