- 1
- 2
- 3
- 4
- 5
{Pascal}
function f( a: boolean ) : boolean;
begin
if a then return := f(a) else return := false;
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+100
{Pascal}
function f( a: boolean ) : boolean;
begin
if a then return := f(a) else return := false;
end;
При а - истина программа вылетит с переполненным стеком.
http://otvet.mail.ru/comments/answer/280814070/
function fib(n:integer): longint;
begin
if n<2
then fib:=1
else fib:=fib(n-1)+fib(n-2);
end;
Где здесь C++ то что написано выше?
классическая рекурсивная реализация алгоритма. говно в том, что последоватеьность - 0 1 1 2 3 5 8 и дальше. тоесть если считать числа не с нуля (обычно всетаки не с нуля) - то условия возврата единицы не "<2" a "<3".
и что не так с тем кодом, который ты запостил? нужен был код для срыва стека - есть код для срыва стека. разве что параметр не тот. удобнее передавать возрастающую строку - сорвет быстрее.
но изучение Си дает не только СМ но и знание {-синтаксиса, что полезно в будущем
где pascal-же синтаксис используется кроме SQL?
Понятно что ляпы будут как у сишника, пытающегося писать код на паскале, так и у паскалиста, пытающегося писать код на си.
В общем почти как у любого начинающего - все мы ими были.
Предлагаю не холиварить на эту тему.
А представленный код на годнокод не тянет - стормозил кто-то.
Вы пишете на PHP 2?
Расскажите о проекте подробнее. У вас там нет кстати места для программистов на алгол'68?
я за два года с Си на паскаль переучился, хотя Си не забыл.
Не спорю, это накладывает свой отпечаток.
зачем?!!
Олень, программа даже не скомпилируется...