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

[Juggernaut]

Срочно необходим, желательно с примерами, доки тоже сойдут.

[Kron1C]

Пожалуйста: ftp://217.117.188.76/For All

[Juggernaut]

А еще .... Может у кого что осталось от практики.... Мне реальные исходники нужны...

[Juggernaut]

Подскажите в паскале есть оператор факториала?

[bugness]

Знаю тока через цикл

program faqt;
var a,n,i:integer;
begin

write('число: ');
readln(a);
for i:=1 to a do
n:=i*a;
writeln('Ответ: ',n);
readln;

end.

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

А еще .... Может у кого что осталось от практики.... Мне реальные исходники нужны...

у мну есть тетрадь 48 листов с Паскалем)

[PAPA_KARLO]

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

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

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

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

[PAPA_KARLO]

с функциями удобнее (если задача сводиться к вводу на экран значения - то конечно, а если это часть программы...) да и стек очиститься по завершении программы...

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

с функциями удобнее (если задача сводиться к вводу на экран значения - то конечно, а если это часть программы...) да и стек очиститься по завершении программы...

так а кто тебе мешает сделать функцию с циклом? работать она будет быстрее рекурсии и нет опасности переполнение стека.

Рекурсию используют когда не знают сколько раз нужно выполнить определенное действие. в случае с факториалом, мы точно знаем сколько нужно умножений.