Паскаль... Борланд Паскаль

PAPA_KARLO · 22.03.2005, 14:47

function fakt (var n: longint): longint;
begin
if n<=0 then fakt := 1;
fakt := fakt(n-1);
end;

22.03.2005, 15:17

Цитата:

Сообщение от PAPA_KARLO

function fakt (var n: longint): longint;
begin
if n<=0 then fakt := 1;
fakt := fakt(n-1);
end;

цикл быстрее и не забивает стек

22.03.2005, 14:47	#1
PAPA_KARLO Несмешной Регистрация: 20.07.2004 Сообщений: 1,244	function fakt (var n: longint): longint; begin if n<=0 then fakt := 1; fakt := fakt(n-1); end; __________________ IMHO

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид