Найти сумму n чисел ряда Fib(i)^i, где Fib(i) - i-ое число Фибоначчи

@xxxANDRUXAxxx · Регистрация: 10.12.2009

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

Нужно решить циклами следующий ряд S=1^1+1^2+2^3+3^4+5^5+8^6+... до n.

@NIch · 31.03.2010, 12:24

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
 n, i : word;
 Summ : word;
begin
 writeln('Введите конец ряда');
 read(n);
 Summ := 0;
 for i := 1 to n-1 do
 begin
  Summ:= Summ + (i*(i+1));
 end;
 WriteLn(Summ);
 ReadLn;
end;

Что то похожее...

@Puporev · 31.03.2010, 12:49

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
{$N+}
uses crt;
var n,i,j,a,b,f:integer;
    s,p:extended;
begin
clrscr;
write('n=');
readln(n);
s:=1;{первое чило Фибоначчи}
a:=0;{предшествующие очередному числу Фибоначчи числа}
b:=1;
i:=1;
while i<n do
 begin
  i:=i+1;
  f:=a+b;{считаем очередное число}
  p:=1;
  for j:=1 to i do
  p:=p*f;{возводим в степень}
  s:=s+p;{суммируем}
  a:=b;{новые значения слагаемых}
  b:=f;
 end;
write('S=',s:16:0);
readln
end.

Добавлено через 1 минуту

Не по теме:

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

Что то похожее...

Да это очень много на чего похожее....

@kskb7771 · 31.03.2010, 12:51

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <iostream.h>
 
void main(void)
 {  clrscr();
    int m;
    int i,i1=1,i2=1;
    cout<<"M=";
    cin>>m;
    while(i1<m)
     { i=i1+i2;
       i1=i2;
       i2=i;
       cout<<i<<"\n";
     }
    cout<<i<<">"<<m;
    getch();
 }

у меня на втором курсе была такая задача на с++ , только нужно было найти ещё число больше большее М (м>1)

@Puporev · 31.03.2010, 12:54

kskb7771, Проспись и прочитай название раздела.

Добавлено через 1 минуту
Кроме того, у тебя только вычисление ряда Фибоначчи, а возведения в степень и суммы вообще нет.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@xxxANDRUXAxxx 8 / 7 / 2 Регистрация: 10.12.2009 Сообщений: 104

	Найти сумму n чисел ряда Fib(i)^i, где Fib(i) - i-ое число Фибоначчи 31.03.2010, 12:17. Показов 998. Ответов 4 Метки нет (Все метки) Нужно решить циклами следующий ряд S=1^1+1^2+2^3+3^4+5^5+8^6+... до n. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	31.03.2010, 12:54
	kskb7771, Проспись и прочитай название раздела. Добавлено через 1 минуту Кроме того, у тебя только вычисление ряда Фибоначчи, а возведения в степень и суммы вообще нет. 0