Мелитополь

VX

На форуме много человек которые так или иначе связаны с програмированием. Предлагаю по очереди придумывать задчи и писать под них программы (задания должны быть маленькими).

Для начала предлагаю написать программу для нахождения решения Sudoku.

Кто не знает предлагаю прочесть
http://melitopol.com.ua/forum/viewtopic.php?t=4946

$T@$!N$@N

Лучше скажите как на компе просчитать последовательность Фибоначи до бесконечности и не заклинит ли комп? Программ типа паскаля нет =)

последовательность такая: 0 1 1 2 3 5 8 13 21 и т.д.
кароче к последующему числу прибавить предыдущее.

Serg_HD

На 1С так:

VX

Насчет кода я с Серегой соглашусь, но можешь попробывать через формулу.
Для ряда Фибоначи есть обычная функция. Непомню ее точно, но можешь поискать в нете.

Вобще этот ряд оч интересный.

Serg_HD

Про функцию я такую тоже где-то слыхал, но он не сказал что за язык, поэтому я и привёл пример из своей практики

Thomas

VX

На паскале так:

function Fib(x:Integer):Integer;
begin
if x=0 then Fib:=0
else if x=1 then Fib:=1
else Fib:=Fib(x-1)+Fib(x-2);
end;

Выдает ряд чисел

0 1 2 3 4 5 7 8...
0 1 1 2 3 5 8 13...

Varvar

Nakilon

Вот вы извращенцы... рекурсия... :D
Ну уж извиняйте, - ещё сильней упростить не смог:

x-mode

тут Си и ПАскаль - отдыхают, Питон - Бог программирования:
код не виснет никогда

это функция на питоне

def fib(n):
a, b = 0, 1
while b < n:
print b, a, b = b, a+b

самый протой код Smile