Числа Фибоначчи

@GreatPiraT · Регистрация: 15.01.2010

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

Последовательность чисел Фибоначчи u0, u1..un образуется по закону u0=0, u1=1, ui=u(i-1) + u(i-2) (i=2,3,...).
Последовательность f0, f1... образуется по закону f0=0, f1=1, fn=n(i-1) + f(i-2) + u(i-2). Дано натурально n>1. Получить f0, f1,...fn
Я всё никак задание понять не мог. Сидел 2 часа думал...да, я наверно туго думаю))
пока дошёл до:

Pascal

1
2
3

program ggg;
var f,i,u,x,z,c:real;
     M:array[1..

и вот тут у меня начинается ступор. Вроде точно понятно что без массива не обойтись. А кого туда записывать...? Последняя задача, и сижу туплю, никак сделать немогу. Вроде всё остальное понятно, в цикле изменяем значение i, записываем ответ в массив...и опять не могу догнать как туда каждый раз новый вписывать, если число n вводиться с клавиатуры. Напишите плиз что в массив вписывать

Добавлено через 27 минут
дошёл до того что догадлся вписать переменную n в const
добавил строку
const n=10;

Добавлено через 39 минут
еще добавил к проге

Pascal

f:array[1..n] of integer;
begin
writeln('n=');
readln(n);
writeln('OK, ceychas pridymaiy chego-nebud');
for i:=1 to n do;
f[i]:=

пока всё...хелп....

@yanyk1n · 16.01.2010, 14:34

Воспользуйтесь или фунцией:

Pascal

function fib(n:integer):longint;
begin
 if n<=0 then fib:=-1 else
 if (n=1) or (n=2) then fib:=1 else fib:=fib(n-1)+fib(n-2);
end;

или циклом:

Pascal

1
2
3

f[1]:=1;
f[2]:=1;
for i:=3 to n do f[i]:=f[i-1]+f[i-2];

@GreatPiraT · 16.01.2010, 14:57 **[ТС]**

использовал цикл...может где-то тупанул он он мне (Invalid FOR control variable (Неправильный параметр цикла оператора FOR). ) выдаёт. И кстати, как функцией пользоваться есть где нибудь мануал?

@yanyk1n · 16.01.2010, 15:01

GreatPiraT, так надо переменные I и N как целочисленные объявить (integer).

@GreatPiraT · 16.01.2010, 15:11 **[ТС]**

а можно как нибудь вывести все полученные результаты?
я только

Pascal

writeln(f[1]);
writeln(f[2]);
writeln(f[3]);
writeln(f[4]);
writeln(f[5]);
writeln(f[6]);
writeln(f[7]);
writeln(f[8]);
writeln(f[9]);
writeln(f[10]);

И тут также? А если надо будет больше 10 сделать...

@Inadequate · 16.01.2010, 15:14

GreatPiraT, пользуйтесь циклами.

Pascal

1 2	for i:=1 to 10 do writeln(f[i]);

@GreatPiraT · 16.01.2010, 15:21 **[ТС]**

Пасибо большое, всё работает, и числа все выводятся...

@GreatPiraT 0 / 0 / 0 Регистрация: 15.01.2010 Сообщений: 23
	16.01.2010, 14:57 [ТС]	3
	использовал цикл...может где-то тупанул он он мне (Invalid FOR control variable (Неправильный параметр цикла оператора FOR). ) выдаёт. И кстати, как функцией пользоваться есть где нибудь мануал? 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	16.01.2010, 15:01	4
	GreatPiraT, так надо переменные I и N как целочисленные объявить (integer). 1

@GreatPiraT 0 / 0 / 0 Регистрация: 15.01.2010 Сообщений: 23
	16.01.2010, 15:21 [ТС]	7
	Пасибо большое, всё работает, и числа все выводятся... 0