Re[3]: Функция - как?
Привет GENEMI,
Вы мне письмо написали 14 апреля 2005 г. (четверг), а я Вам отвечу вот что:
EtM>> if Index<=1 then
EtM>> begin
EtM>> Result:=1;
EtM>> exit;
EtM>> end;
G> Если писать как ты говоришь то сразу будет exit
А если Index будет больше 1, то ...! Догадайся сам.
Похорошему тут надо делать проверку на то, что
1) число не отрицательное, т.к. факториал отрицательного числа не
существует (или я не знаю как его посчитать - в справочнике по ВышМату
видел формулу, которая позволяет посчитать факториал, даже от дробного
не отрицательного числа)
2) 0!=1
3) 1!=1
Если не одно из условий 1)-3) не выполняется, то N!=N*(N-1)!
Так вот условия 1)-2) в первоначальном варианте не проверяются.
Попробуй запустить функцию с N<=0 - получишь переполнение стека.
P.S. В моем варианте условие 1) выполняется не полно: если N<0, то
N!=1
Афоризм напоследок: Щедрость философия бедноты.
Winamp глаголит: Король и Шут - Собрание
16 апреля 2005 г. 19:38:53
Просто студент
Eugene mailto:rav***@o*****.ru
Номер выпуска : 4370
Возраст листа : 573 (дней)
Количество подписчиков : 517
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/352327
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
