Perl ile faktoriyel hesaplama

 

print "Sayiyi gir:";
$fak=<STDIN>;
chop($fak);
$toplam=1;
for($i=$toplam; $i<=$fak; $i++){
$toplam = $toplam * $i;
}
print "Sonuc = $toplam\n";
exit();

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

perl ile faktoriyel hesaplama