Задача на последовательность Опции

[Merlin]

Условие задачи в word'овском файле, т.к. некоторые символы некорректно отображаются.

Задания прикрепляем в виде изображений !!!

Сообщение отредактировано: volvo - 27.10.2005 18:07

[volvo]

To: Merlin
В следующий раз внимательно читай правила, Ok?

12. Пожалуйста, не прикрепляйте к сообщению документы DOC, из-за возможной несовместимости версий OFFICE, они могут не читаться Вместо DOC документов, - картинки!

Вот это - одно из решений твоего задания...

var
  a, a_next: real;
  n: integer;
const
  eps = 0.001;

begin
  a_next := 2; n := 1;
  repeat
    a := a_next;
    a_next := 2 + 1 / a;
    if abs(a_next - a) > eps then begin
      writeln('a[', n:2, '] = ', a:10:5);
      inc(n);
    end
  until abs(a_next - a) < eps;
  writeln('n = ', n);
end.

Кстати, поиск по слову "последователь*" или "ряды" должен выдать готовые программы... :yes:

[Merlin]

Что то не работает прграмма, не знаю почему...

var
  a, a_next: real;
  n: integer;
const
  eps = 0.001;

begin
  a_next := 2; n := 1;
  repeat
    a := a_next;
    a_next := 2 + 1 / a;
    if abs(a_next - a) > eps then begin
      writeln('a[', n:2, '] = ', a:10:5);         ВОТ здесь выдаёт ошибку
      inc(n);
    end;
  until abs(a_next - a) < eps;
  writeln('n = ', n);
end.

[volvo]

To: Merlin

Что то не работает прграмма

не принимается. Перед тем, как программу выложить, я ее проверяю (причем не один раз) !!!

ВОТ здесь выдаёт ошибку

Телепатов у нас нет. Какую ошибку?

[Merlin]

Error 85 ( ;)

Ещё вопрос : А readln там надо писать ?

[volvo]

Error 85

А не нужно удалять символы в программе. ";" удалил? Чего ж ты хочешь? Скопируй программу как положено (Copy + Paste, не нужно перепечатывать вручную), и все будет работать...

[Merlin]

А у меня не копируется, ладно попробую ещё раз.

Так надо там readln ?
Как тогда посмотреть результат ?