VPF::Последовательности и числа Фибоначчи

GorSHOK1

Дата 19.4.2012, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 19.4.2012

Репутация: нет
Всего: нет

Ребят, помогите пожалуйста. Нужна помощь. Задача такая: вводится последовательность целых чисел оканчивающихся нулем и состоящая более чем из одного нулевого элемента. Вычислить сумму тех из них порядковые номера которых числа Фибоначи.

IBS

Дата 19.4.2012, 22:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 29.7.2008
Где: Белоруссия

Репутация: нет
Всего: 6

GorSHOK1 я тут кое-что по этой теме недавно отвечал: ссылка
Там, конечно, кода нет, но если чуток с Паскалем и математикой дружите, то осилите =)

Это сообщение отредактировал(а) IBS - 19.4.2012, 22:23

ФедосеевПавел

Дата 20.4.2012, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 7.2.2009

Репутация: 2
Всего: 10

Полагаю, что здесь гораздо проще. Нужно сложить только те числа введённого массива, чьи индексы "числа Фиббоначи". Т.е. досаточно последовательно вычислять следующий индекс, а потом дожидаться ввода числа с таким индексом.
Например так

Код

program f;
const
  n=50;
var
  i,                {индекс}
  f1, f2 : integer; {числа фиббоначи}
  s      : integer; {сумма}
  a      : integer; {вводимое число}
begin
  randomize;
  f1:=1;
  f2:=1;
  for i:=1 to n do begin
    a:=(random(10)-5)*10;
    write(a:4);
    if i=f1 then begin {порядковый номер - число Фиббоначи?}
      write('*',f1,' ');
      s:=s+a; {вычисление суммы}
      f1:=f1+f2; {вычисление следующего числа Фиббоначи}
      f2:=f1-f2;
    end;
  end;
  writeln;
  writeln('s=', s);
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »