Perl

[jmm]

Hi habe ein problem bin praktikan tund mein azubi dem ich unterstellt bin hat mir ne aufgabe gegeben ich solle ihm einen taschenrechner programmieren in per so gesagt so getan. Nun will er das ich mit einer schleifedie eine rechnung programmier die so abläuft:
zahl1+zahl2+ergebniss aus zahl 1 und zahl 2+zahl2+zahl1 usw. bis ich das 10 mal gemacht habe...
Hier mein taschenrechner:

#!/usr/bin/perl
print "Bitte geben sie zahl1 ein";
$Zahl1 = <STDIN>;
print "Bitte geben sie zahl2 ein";
$Zahl2 = <STDIN>;
print "welche rechenoperation soll ausgegeben werden?";
$Rechenoperator = <STDIN>;
chomp ($Rechenoperator);
if ($Rechenoperator eq "+")
{$ergebniss=$Zahl1+$Zahl2;}
if ($Rechenoperator eq "-")
{$ergebniss=$Zahl1-$Zahl2;}
if ($Rechenoperator eq "*")
{$ergebniss=$Zahl1*$Zahl2;}
if ($Rechenoperator eq "/")
{$ergebniss=$Zahl1/$Zahl2;}
if ($Rechenoperator eq "q")
{$ergebniss=($Zahl1*$Zahl1)+($Zahl2*$Zahl2);}

print "ergebniss:";
print "$ergebniss";

 

[burni87]

kann zwar kein perl aber sollte so ähnlich gehn:

$i = 0;
while($i < 10){
ergebniss = ergebniss + zahl1 + zahl2;
i++;
}

 

[jmm]

danke werde es auf jedenfall ausprobieren

 

[Stay_Tuned]

print "Bitte geben sie zahl1 ein";
$Zahl1 = <STDIN>;
print "Bitte geben sie zahl2 ein";
$Zahl2 = <STDIN>;
my $ergebnis=0;
for(my $i=0; $i<10; $i++){
$ergebnis=$ergebnis+$Zahl1+$Zahl2;
}