Convertor mile-kilometrii şi invers

75

             În exemplu următor distanţă introdusă este convertită atât în kilometrii cât şi în mile (tst3.pl).

#!/usr/local/bin/perl
print ("Introduceţi distanţa de convertit:\n");
$originaldist = <STDIN>;
chop ($originaldist);
$miles = $originaldist * 0.6214;
$kilometers = $originaldist * 1.609;
print ($originaldist, " kilometri = ", $miles, " mile\n");
print ($originaldist, " mile = ", $kilometers,
        " kilometri\n",'press ENTER to EXIT');
$in = <STDIN>;

Convertor grade Fahrenheit în grade Celsius

Analog un convertor grade Fahrenfeit <-> Celsius este dat mai jos (tst4.pl)

#!/usr/local/bin/perl
print ("Introduceţi temperatura de convertit:\n");
 $originaltemp = <STDIN>;
chop ($originaltemp);
$Fah = $originaltemp * 1.8+32;
$Cel = ($originaltemp-32)/1.8;
print ($originaltemp, " Fahrenheit = ",
   $Cel, " Celsius\n");
print ($originaltemp, " Celsius = ",
    $Fah, " Fahrenheit\n",'press ENTER to EXIT');
$in = <STDIN>;

© Cornel Mironel Niculae, 2003-2004

13-Nov-2009