Lezioni pratiche sulla programmazione in Perl
Soluzione dell'esercizio dato il 14/06/2000
Ovviamente le seguenti procedure, non sono le uniche esistenti,
ma valgono per coloro che hanno trovato delle difficoltà. Fatta
eccezione di casi specifici, nei quali vi viene chiesto di adottare
un particolare procedimento, l'importante è ottenere il risultato e
non come lo si ottiene.
print "Calcoliamo il valore della";
print "\nseguente espressione\n";
print "\n";
print "s
=(Q**2*(0.32+1.25**S)*S)/(Q**2*0.32**4+(1.25+S)**(S/Q))";
print "\n\n";
$b ="1.845";
print "dove Q vale $b ";
$d = "5.35";
print "e S vale $d\n\n";
$f = $b**2*(0.32+1.25**$d)*$d;
$g = $b**2*0.32**4+(1.25+$d)**($d/$b);
$h = $f/$g;
$e = "L'espressione s vale $h";
print "$e\n";
Soluzione dell'esercizio dato il 15/06/2000
print "Calcoliamo il valore della";
print "\nseguente espressione\n";
print "\n";
print "s
=(Q**2*(0.32+1.25**S)*S)/(Q**2*0.32**4+(1.25+S)**(S/Q))";
print "\n\n";
print "Inserisci il valore di Q!\n";
$b = <STDIN>;
print "Inserisci anche il valore di S!\n";
$d = <STDIN>;
chomp ($b);
chomp ($d);
print "\nBenone, ora Q vale $b ";
print "e S vale $d\n\n";
$f = $b**2*(0.32+1.25**$d)*$d;
$g = $b**2*0.32**4+(1.25+$d)**($d/$b);
$h = $f/$g;
print "Specifica il numero di volte che\n";
print "vuoi far visualizzare il valore di s\n";
$N = <STDIN>;
chomp ($N);
print "\n";
print "eccoti il risultato\n";
$e = "L'espressione s vale $h\n";
print $e x $N;
|
