Dezimalzahlen ausgeben - #142032 (Allgemeines zu Perl)

guest Sade J

2010-10-19 09:35

Hier also mein script:
Die Eingabe der Zahlen ist etwas umstaendlich, aber es funktioniert!

Code (perl): (dl )

#!/usr/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);


$daten = <>;
@daten = split("",$daten);
splice(@daten,3,5);
shift@daten;
splice(@daten,1,1);
@zahl = @daten;
pop @zahl;
$zahl = join("",@zahl);
@potenz = splice(@daten,1,1);
$potenz = join("",@potenz);

print "Content-type: text/html \n\n";
print "<html><head><title>Potenzen-Rechner</title></head>\n";
print "<body>";

my $faktor = $zahl;

if ($potenz == 0) {
print "<h1>Die Lösung ergibt: 1</h1>\n";
exit;
}
else {

if ($potenz >= 0) {

for (my $i = 1;$i <= $potenz - 1;$i = $i + 1) {
        $zahl = $zahl * $faktor;
}
}
else {

$zahl = 1/$zahl;
$faktor = 1/$faktor;


for (my $j = -1;$j >= $potenz + 1;$j = $j - 1){

        $zahl = $zahl * $faktor;
}
}
}


print "<h1>Die Lösung ergibt: $zahl</h1>\n";
print "</body></html>\n";

//MODEDIT GwenDRagon: Bitte Perl-Tags verwenden.
Last edited: 2010-10-19 10:12:34 +0200 (CEST)