#!/usr/local/bin/perl
# energy.pl
# Autore: Alan Levine
#>
# Stime di velocita' massima con l'inserimento dell'altezza
#usando semplici leggi fisiche
#
#<
# modulo in perl
require("CGI.pm");
# Carica la libreria CGI.pm per maneggiare dati ed oggetti
use CGI qw(:standard :cgi-lib);
use CGI::Carp qw(fatalsToBrowser);
# converti le variabili del form in un array
&ReadParse;
#stampa il valore di ritorno dell'intestazione HTML
print header;
if (($in{'height'} =~ /\d/) and ( $in{'height'} > 0) ) {
# definisce la costante gravitazionale
if ( $in{'units'} eq "meters") {
$g = 9.8;
} else {
$g = 32.0;
}
$vel = sprintf( "%d", sqrt( 2 * $g * $in{'height'}));
print <<"end_html";
Calcoli Semplici
Equazione del Moto ed Energia Potenziale
Per l'inserimento dell'altezza $in{'height'} $in{'units'},
l'equazione energetica fornisce una stima della velocita' massima.
$vel $in{'units''} / sec
end_html
} else {
print <<"end_html";
Calcoli Semplici
Equazione del Moto ed Energia Potenziale
Spiacenti, ma l'altezza inserita $in{'height'} $in{'units'}
non e' valida. Per completare il calcolo, l'altezza deve essere maggiore di 0. Premi, per piacere, il bottone "back" e riprova.
end_html
}
exit;