Загрузка не удалась. Возможно, проблемы с правами доступа?
мета-данные страницы
Различия
Показаны различия между двумя версиями страницы.
| Следующая версия | Предыдущая версия | ||
| perl:ex0 [09/10/2012 16:36] – создано vlasov | perl:ex0 [09/10/2012 17:48] (текущий) – vlasov | ||
|---|---|---|---|
| Строка 3: | Строка 3: | ||
| <code perl> | <code perl> | ||
| # | # | ||
| + | |||
| + | $m = 8; | ||
| + | print "\n test m= $m, m!=" | ||
| + | |||
| + | sub fakt | ||
| + | { | ||
| + | my($n) = $_[0]; | ||
| + | if($n<0) {die " | ||
| + | # необходимо добавить проверку на нецелые и нечисловые аргументы | ||
| + | unless($n) {return(1)} | ||
| + | else {return( $n*fakt($n-1) )}; | ||
| + | } | ||
| </ | </ | ||