мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

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