Дано целое число n > 2 сформировать и вывести целочисленный массив размера n содержащий n первых элементов последовательности чисел фибоначчи

@Richik123 · Регистрация: 26.12.2011

Дано целое число n > 2 сформировать и вывести целочисленный массив размера n содержащий n первых элементов последовательности чисел фибоначчи.
F1=1, F2=1....
диапазон и размерность массива вводится в edit.

@leejack · 20.11.2012, 15:11

Delphi

var
  Fib: array of integer;
  n: integer;
begin
  n:=StrToInt(Edit1.Text);
  SetLength(Fib,n);  
  for i:=0 to n-1 do
  begin
     Fib[i]:=ffib(i+1);
  end;
end;
 
function ffib(n: integer):integer;
begin
  if n<=2 then result:=1 else
  begin
     Result:=ffib(n-1)+ffib(n-2);
  end;
end;

Размерность массива не вводится, потому что размерность массива равна кол-во последовательных чисел фибоначчи

@Richik123 · 20.11.2012, 16:33 **[ТС]**

а не мог ты в дельфи прислать?

@leejack · 21.11.2012, 08:08

Richik123, Нет, потому что под рукой Delphi нет. Я на работе!(

Одиночка · 30.11.2012, 00:51

Вот готовый проект.

@Richik123 4 / 4 / 1 Регистрация: 26.12.2011 Сообщений: 263
		1
	Дано целое число n > 2 сформировать и вывести целочисленный массив размера n содержащий n первых элементов последовательности чисел фибоначчи 20.11.2012, 14:40. Показов 3783. Ответов 4 Метки нет (Все метки) Дано целое число n > 2 сформировать и вывести целочисленный массив размера n содержащий n первых элементов последовательности чисел фибоначчи. F1=1, F2=1.... диапазон и размерность массива вводится в edit. 0

@Richik123 4 / 4 / 1 Регистрация: 26.12.2011 Сообщений: 263
	20.11.2012, 16:33 [ТС]	3
	а не мог ты в дельфи прислать? 0

@leejack 192 / 173 / 37 Регистрация: 19.01.2010 Сообщений: 610 Записей в блоге: 1
	21.11.2012, 08:08	4
	Richik123, Нет, потому что под рукой Delphi нет. Я на работе!( 0

Опции темы