Нужно написать с рекурсией. Числа Люка

@Vonderfull · Регистрация: 10.04.2012

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

Помогите плиз!!
Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно сумме двух предыдущих . Составить программу, которая находит первые k чисел Люка (k- задается пользователем).
Определить номер последнего числа Люка, которое входит в диапозон integer (longint). Вывести в виде таблицы данное число Люка и три предыдущих с их номерами.

@Puporev · 11.04.2012, 09:55

Сама рекурсивная функция простая.

Pascal

function Luk(n:integer):longint;
begin
if n=1 then Luk:=1
else if n=2 then Luk:=3
else Luk:=Luk(n-2)+Luk(n-1);
end;

Но считать рекурсивно все числа до maxLongin это издевательство, может за день и посчитает, в то время как циклами посчитает очень быстро.
Вот та же функция с циклом.

Pascal

function Luk(n:integer):longint;
var a1,a2,an,i:longint;
begin
if n=1 then an:=1
else if n=2 then an:=3
else
 begin
  a1:=1;
  a2:=3;
  for i:=3 to n do
   begin
    an:=a1+a2;
    a1:=a2;a2:=an;
   end;
 end;
Luk:=an;
end;

Вот программа

Pascal

var k,i:longint;
    x:array[1..50] of longint;
begin
repeat
write('Введите натуральное число k=');
readln(k);
until k>0;
writeln('Первые ',k,' чисел Люка:');
for i:=1 to k do
write(Luk(i),' ');
writeln;
i:=1;
k:=0;
while Luk(i)>0 do
 begin
  k:=k+1;
  x[k]:=Luk(i);
  i:=i+1;
 end;
writeln('Номер последнего числа, входящего в диапазон типа Longint=',k);
writeln('Последние 3 числа:');
for i:=k downto k-2 do
writeln('k=',i,'=',x[i]:10);
end.

Запустите ее для сравнения с той и другой функциями.

@Vonderfull 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 9
		1
	Нужно написать с рекурсией. Числа Люка 10.04.2012, 22:52. Показов 3341. Ответов 1 Метки нет (Все метки) Помогите плиз!! Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно сумме двух предыдущих . Составить программу, которая находит первые k чисел Люка (k- задается пользователем). Определить номер последнего числа Люка, которое входит в диапозон integer (longint). Вывести в виде таблицы данное число Люка и три предыдущих с их номерами. 0

Опции темы

Нужно написать с рекурсией. Числа Люка

Решение