Brauche Hilfe

[sonnenprinz]

Ich brauche ein Perl-Skript für folgende Aufgabe:

Der Anwender soll eine Eingabe eines Zahlenwertes vornehmen. Ist die Eingabe größer als 10 oder kleiner als 0, soll eine Fehlermeldung ausgegeben werden. ist der Wert korrekt, soll der Eingabewert quadriert und das Ergebnis ausgegeben werden. Danach soll der Eingabewert um 1 erhöht werden. Mit diesem Wert sollen die Berechnung und die Ausgabe nochmals erfolgen. Dieser Vorgang soll fünfmal wiederholt werden, bevor das Skript automatisch beendet wird.

Wäre toll wenn mir das jemand schreiben könnte.

Gruß

Uwe

 

[renee]

hallo sonnenprinz,

so sieht man sich wieder ;-)

#! /usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

my $eingabe = -1;

while($eingabe < 0 || $eingabe > 10){
  print "Bitte Zahl eingeben: ";
  chomp($eingabe = <STDIN>); # Benutzer soll zahl eingeben
}

for(0..5){
  my $quadrat = quadriere($eingabe);
  print "Quadrat  von $eingabe ist $quadrat\n";
  $eingabe++;
}

sub quadriere{
  my $zahl = $_[0];
  my $ergebnis = $zahl * $zahl;
  return $ergebnis;
}

Code ist allerdings ungetestet Sollte aber funktionieren...

Gruß,
renee (wie auch in der perl-community ;-) )