Implementazioni di algoritmi/Calcolo della Pasqua: differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
Nessun oggetto della modifica |
|||
Riga 803:
</source>
==Perl==
<source lang="perl">
#!/usr/bin/perl
use integer;
print "inserisci l'anno: ";
$anno = <>;
chomp $anno;
$a = $anno/100;
$b = $anno-19*($anno/19);
$c = ($a-17)/25;
$d = $a-$a/4-($a-$c)/3+19*$b+15;
$d = $d-30*($d/30);
$d = $d-($d/28)*(1-($d/28)*(29/($d+1))*((21-$b)/11));
$e = $anno+$anno/4+$d+2-$a+$a/4;
$e = $e-7*($e/7);
$z = $d-$e;
$mese = 3+($z+40)/44;
$giorno = $z+28-31*($mese/4);
print "Nell'anno $anno la pasqua cade il giorno $giorno del mese $mese\n";
exit(0);
</source>
== Altri progetti ==
{{interprogetto|w=Calcolo della Pasqua|w_etichetta=calcolo della Pasqua|w_preposizione=riguardante il}}
| |||