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