|
Perl n'a pas de fonction intégrée spécifiquement conçue pour arrondir des nombres à virgule flottante en nombres entiers , mais vous pouvez écrire votre propre fonction qui intègre la fonction sprintf pour arrondir ces chiffres à l' entier le plus proche . La fonction sprintf prend deux arguments , un format et une liste. La liste est tout simplement le numéro que vous voulez arrondir vers le haut ou vers le bas . Utilisez "% .0 f " comme format , qui indique à la fonction que le nombre est à virgule flottante et que vous voulez arrondir à zéro chiffres après la virgule . Instructions
1 ouvrir un fichier de programme Perl. Tapez le code suivant :
sous intCheck {
my $ num = shift; retour
($ num = ~ m /^ \\ d + $ /) ;
}
Cela crée une fonction appelée " intCheck " qui obtient d'abord un argument qui lui est passé et l'enregistre dans une variable appelée " $ num ", puis retourne "true" si ce nombre est un nombre entier . ou "false" si elle n'est pas
2 Tapez le code suivant :
sous-round {
my $ var = shift;
Si ( intCheck ( $ var - 0,5 )) { $ var = $ var + 0,1 ; }
retour sprintf ( "% .0 f ", $ var) ; }
Cela crée une fonction appelée "rond ". Il devient l'argument qui lui est passé et l'enregistre dans la variable " $ var" . Il appelle ensuite la fonction de intCheck et passe le nombre variable moins 0,5 . Si la fonction de intCheck retourne "true", le $ var a 0,1 ajouté. La fonction round tours puis la variable au nombre entier le plus proche et le renvoie
3 Tapez le code suivant : .
Impression ronde ( 4.49) . "\\ n" ;
impression ronde ( 4.51) . "\\ n" ;
impression ronde ( 4.5). "\\ n" ;
Ces lignes de tester la fonction round . Les premiers tours de la ligne vers le bas à quatre et les deux lignes suivantes complètent à cinq.
4 Enregistrez le fichier Perl.
|
