Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи.

@Schubich · Регистрация: 02.06.2010

Author24 — интернет-сервис помощи студентам

Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи. Памагите решить.

@Домолаз · 03.06.2010, 14:59

Pascal

uses crt;
var
   a,b:array[1..3000] of longint;
   i,j,n,s:longint;
begin
   for i:=1 to 3000 do
   begin
      if i=1 then a[1]:=1
      else
      if i=2 then a[2]:=1
      else
      a[i]:=a[i-1]+a[i-2];
   end;
   writeln('Размер массива: ');
   readln(n);
   writeln('Элементы: ');
   for i:=1 to n do
      readln(b[i]);
   s:=0;
   for j:=1 to 3000 do
      for i:=1 to n do
         if i=a[j] then
            s:=s+b[i];
   writeln('Rezult: ',s-b[1]);{тк 1 два раза}
end.

@кот Бегемот · 03.06.2010, 15:15

Домолаз, А откуда 3000 появилось?

@Домолаз · 03.06.2010, 15:42

из ниоткуда

не знаю че писать.Возможно , нужно на n заменить

Добавлено через 3 минуты
подправил

Pascal

uses crt;
var
   a,b:array[1..10000] of longint;
   i,j,n,s,t:longint;
begin
   clrscr;
   writeln('Размер массива: ');
   readln(n);
   writeln('Элементы: ');
   for i:=1 to n do
      readln(b[i]);
   for i:=1 to n do
   begin
      if i=1 then a[1]:=1
      else
      if i=2 then a[2]:=1
      else
      a[i]:=a[i-1]+a[i-2];
      if a[i]=n then 
      begin
         t:=i; 
         break;
      end;
  end;
   s:=0;
   for j:=1 to  t do
      for i:=1 to n do
         if i=a[j] then
            s:=s+b[i];
   writeln('Rezult: ',s-b[1]);{тк 1 два раза}
end.

@кот Бегемот · 03.06.2010, 15:42

это не так делается:
формируем очередное число Фибоначчи,
смотрим, не превысило ли оно значение количества элементов
если нет - добавляем элемент с таким номером к сумме, иначе - заканчиваем цикл

@Домолаз · 03.06.2010, 15:53

вроде так

@Schubich 1 / 1 / 1 Регистрация: 02.06.2010 Сообщений: 24
		1
	Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи. 03.06.2010, 11:21. Показов 3920. Ответов 5 Метки нет (Все метки) Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи. Памагите решить. 0

@кот Бегемот Платежеспособный зверь 8956 / 4382 / 1649 Регистрация: 28.10.2009 Сообщений: 11,623
	03.06.2010, 15:15	3
	Домолаз, А откуда 3000 появилось? 1

@кот Бегемот Платежеспособный зверь 8956 / 4382 / 1649 Регистрация: 28.10.2009 Сообщений: 11,623
	03.06.2010, 15:42	5
	это не так делается: формируем очередное число Фибоначчи, смотрим, не превысило ли оно значение количества элементов если нет - добавляем элемент с таким номером к сумме, иначе - заканчиваем цикл 0

@Домолаз нэ 64 / 64 / 42 Регистрация: 08.04.2010 Сообщений: 166
	03.06.2010, 15:53	6
	вроде так 0

Опции темы