помогите с вопросом

[darika]

задача..дано натуральное число.найти среди чисел 1;1+1/2; 1+1/2+1/3...
первое больше а.
решаем с помощью оператора цикла с постусловием
...
var i,а:real;
s:word;
Begin
s:=2;
i:=1;
repeat
i:=i+1/s;
inc(n);
until n>a;
....
...
почему s равно двум, можно ли сделать s равным 1??

или
...
...
begin
s:=1; i:=1;
repeat
i:=i+1;
s:=s+1/i;
until
s>a;
......
...
тут почему равен 1...????

[Stilet]

почему s равно двум, можно ли сделать s равным 1??

Чтобы убрать лишнюю итерацию. В принципе можно.

Тоже самое про второе. Дабы не считать 1/1 просто написали 1

[darika]

извеняюся перепутала почему i равно единице,а не нулю?

[darika]

меня препод достал..с этим..спрашивает почему равно i единице а не нулю..ведь первый член послед-ти 1, и в цикле вычисляются все остальные, начиная с 1+1/2... а она говорит не правельно....это 2 пример

[puporev]

почему i равно единице,а не нулю?

Потому что при i=1, s=1; его нам считать не надо, берем следующее i=i+1=2. Считаем s:=1+1/2; и так далее.

[puporev]

Иначе надо писать

s:=0;i:=0;
repeat 
i:=i+1;
s:=s+1/i;
until s>a;

s>a;

[darika]

кого считать не надо? так почему равен единице...я чот понять не могу???

[puporev]

1;1+1/2; 1+1/2+1/3...
Первое число в ряду по условию равно 1. Его можно не считать, а написать, при i=1, s=1; Начнем считать со второго, i=2, s=1+1/2=1.5;
и так далее. Можно так не считать, будьто мы не знаем первое число, если например ряд задан формулой An=1/n;
Тогда второй вариант, который я уже написал. Вообше мозг на 2 минуты включите. Это же второй класс.

[darika]

он уже с утра работает!!!! я же сказала..что я так уже отвечала...и препод сказал не правельный ответ...который предлагаете вы

[puporev]

ответ...который предлагаете вы

Я Вам предложил 2 варианта ответа на выбор, оба они правильные. Можете написать 2 программки, прогнать при одном и том же N, затем проверить хоть на калькуляторе. И нефиг нести ахинею, если вообще ничего не пониманте.