Дана последовательность чисел 1+1/2 , 1+1/3 , 1+1/4, .... , 1+1/n

[mimit]

Дана последовательность чисел 1+1/2 , 1+1/3 , 1+1/4, .... , 1+1/n . Напечатать все значения n , при которых все числа последовательности будут не меньше a (1 < a < 1,5). Нужно решить с помощью while и repeat

[phomm]

n := 2;
x := 1.5;
while x > a do
begin
writeln(x);
inc(n);
x := 1+1/n;
end;

и

n := 2;
x := 1.5;
repeat
writeln(x);
inc(n);
x := 1+1/n;
until x <= a;

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

[mimit]

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

n := 2;
x := 1.5;
while x > a do
begin
writeln(x);
inc(n);
x := 1+1/n;
end;

и

n := 2;
x := 1.5;
repeat
writeln(x);
inc(n);
x := 1+1/n;
until x <= a;

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

Чему a должно быть равно?

[Stilet]

Как я понимаю - тому, что пользователь введет.

[kventin_zhuk]

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

Дана последовательность чисел 1+1/2 , 1+1/3 , 1+1/4, .... , 1+1/n . Напечатать все значения n , при которых все числа последовательности будут не меньше a (1 < a < 1,5). Нужно решить с помощью while и repeat

Условие задачи сформулировано некорректно.
C одной стороны:
все числа последовательности будут не меньше(т.е больше или равно а) (1 < a < 1,5). т.е каждый член ряда должен быть больше 1.5? тогда решение только n=2, но непонятно зачем дано нижнее ограничение числа а(а>1).

С другой стороны: обычно в таких задачах требуется вывести все члены лежащие в каком-то интервале.(иди все n при, при котором член последовательности лежит в интервале) Если это так , то решений будет бесконечно много. Т.к при любом n каждый член последовательности удовлетворяет условию.

Так что же нужно сделать, автор?

[mimit]

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

Условие задачи сформулировано некорректно.
C одной стороны:
все числа последовательности будут не меньше(т.е больше или равно а) (1 < a < 1,5). т.е каждый член ряда должен быть больше 1.5? тогда решение только n=2, но непонятно зачем дано нижнее ограничение числа а(а>1).

С другой стороны: обычно в таких задачах требуется вывести все члены лежащие в каком-то интервале.(иди все n при, при котором член последовательности лежит в интервале) Если это так , то решений будет бесконечно много. Т.к при любом n каждый член последовательности удовлетворяет условию.

Так что же нужно сделать, автор?

Как я понял нужно напечатать все n при которых 1+1/n будет поподать в интервал от 1<a<1.5

[kventin_zhuk]

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

Как я понял нужно напечатать все n при которых 1+1/n будет поподать в интервал от 1<a<1.5

Ну значит второй вариант. Но дело в том , что при n стремящемся к бесконечности 1/n - бесконечно малая величина. И мы постоянно пртбавляем к ней единицу. Т.е при всех любых n число принадлежит интервалу.

[mimit]

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

Ну значит второй вариант. Но дело в том , что при n стремящемся к бесконечности 1/n - бесконечно малая величина. И мы постоянно пртбавляем к ней единицу. Т.е при всех любых n число принадлежит интервалу.

А можешь код написать?

[kventin_zhuk]

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

А можешь код написать?

Могу, но он будет зациклен)) давай вчером, приду в 8, а то убегаю.

[phomm]

По заданию "а" Вы задаёте , как Вы зададите - у пользователя запросите, загрузите из файла или константой - Ваше дело, поэтому я и не прописал кода для этого. Добавлю, что я не даю обычно кода, который только скопировать и вставить, в любом случае работа от Вас требуется.