#!/usr/local/bin/perl
# energy.pl
# Auteur: Alan Levine
#>
# Calcule une estimation maximum de la vÈlocitÈ pour
# une hauteur saisie en utilisant des lois simples sur l'Ènergie
#
#<
#
require("CGI.pm");
# Charge la bibliothËque CGI.pm pour traiter les saisies et les objets
use CGI qw(:standard :cgi-lib);
use CGI::Carp qw(fatalsToBrowser);
# met les ÈlÈments du formulaire dans un tableau
&ReadParse;
# affiche un titre HTML en retour
print header;
if (($in{'height'} =~ /\d/) and ( $in{'height'} > 0) ) {
# dÈfinit la constante gravitÈ
if ( $in{'units'} eq "mètres") {
$g = 9.8;
} else {
$g = 32.0;
}
$vel = sprintf( "%d", sqrt( 2 * $g * $in{'height'}));
print <<"end_html";
Calculs Simples
Equation cinétique et Energies Potentielles
Pour la hauteur donnée de $in{'height'} $in{'units'},
l'équation de l'énergie donne une vélocité maximum estimée à
$vel $in{'units'} / sec
end_html
} else {
print <<"end_html";
Calculs Simples
Equation cinétique et Energies Potentielles
Désolé, mais la hauteur saisie $in{'height'} $in{'units'}
n'est pas valable. Pour faire le calcul, la hauteur doit être
supérieure à 0. Cliquez sur le bouton précédent de votre navigateur pour réessayer.
end_html
}
exit;