Цикл (итерации) до достижения условия. сделать в паскале

[Bjac@]

помогите пожалуйста с решением :
Определить, через сколько итераций члены ряда (а+i)/(i*i), (где а=47;i=1,2...) станут меньше 1.

[Serge_Bliznykov]

кстати, можно решить и без всякого цикла (хотя, я уверен, что данная задача на использование цикла с неопределённым числом повторений (т.е. цикл while .. do или repeat .. until )

преобразовав формулу
получаем
(a+1)<i*i
при a=47 получаем
48<i*i
отсюда при i = 7 условие выполнится.
ответ - через 7 итераций

[Bjac@]

А как это в паскале написать??? Я просто вообще мало чего в нем понимаю. В заранее благодарен

[Serge_Bliznykov]

да мне то такую элементарщину не сложно написать..
а разве Вам не хотелось бы НАУЧИТЬСЯ?

попробуйте написать самостоятельно...
подскажу. вычисляйте значение очередного элемента.
до тех пор, пока значение вычисленное больше единицы.
Каждый раз, когда вычисляете очередной элемент ряда, увеличивайте переменную-счётчик цикла.
В данной задаче можно использовать одну переменную и как счётчик цикла, и как итерационную переменную: это переменная i
а использовать её как счётчик итераций позволит то, что значение i, по условиям задачи, начинается с единицы и увеличивается на единицу каждый раз...

попробуйте написать самостоятельно...
и опубликуйте здесь то, что у Вас получилось.
Тогда Вас поправят.

А если всё сделают за Вас - Вы вряд ли чему-нибудь научитесь!

[Bjac@]

спасибо. Попробую.

program Pr53;
const a=47;
var n,i,k1:integer;
k:real;
begin
for i:=1 to n do
begin
k:=(a+i)/(i*i);
if k<1 then
k1:=i;
end;
writeln(k1);
end.

Как то так наверное, поправьте пожалуйста и обьясните что не так

программа работает, ответ пишет 0, где ошибка подскажите

[GetMax]

for i:=1 to n do

От куда вы знаете заранее сколько раз у вас выполнится этот цикл? Предлагаю свой вариант

const
a=47;
var
  i:integer;
  k:real;
Begin
i:=0;
Repeat
inc(i);
k:=(a+i)/(i*i);
Until k <= 1;
dec(i);
Writeln('Кол циклов = ',i);
Readln
End.

[Bjac@]

Сообщение от GetMax

for i:=1 to n do

Until k <= 1;
[/CODE]

а почему <= ???

[Serge_Bliznykov]

угу, GetMax - зачёт.

только, как правильно заметил Bjac@ надо строго меньше единицы.

Bjac@ - ну так исправьте:

Until k < 1;

p.s.
к слову. приношу свои извинения. в пост номер два я написал решение без циклов. Это неправильное решение.
я сослепу не увидел, что к a прибавляется i, а не единица (как мне показалось). Сорри...

[Bjac@]

Сообщение от Serge_Bliznykov

угу, GetMax - зачёт.

только, как правильно заметил Bjac@ надо строго меньше единицы.

Bjac@ - ну так исправьте:

Until k < 1;

p.s.
к слову. приношу свои извинения. в пост номер два я написал решение без циклов. Это неправильное решение.
я сослепу не увидел, что к a прибавляется i, а не единица (как мне показалось). Сорри...

это вы извините там действительно сначала была единица,моя ошибка.
Приношу свои извинения.И огромное спасибо всем вам. я пытаюсь сам освоить паскаль но у меня оч сложно все.Еще раз огромное СПАСИБО