-
Perl wurzel rechner
hi
ich möchte sowas in der art wie hier scripten
Code:
#!/usr/bin/perl
use warnings;
use strict;
my $zahlenraum = 100;
my $zahl = int(rand($zahlenraum) + 1);
my $zaehler = 0;
print "Herzlich Willkommen beim Zahlenraten. Du musst nun eine Zahl zwischen 1 und $zahlenraum herausfinden.\n\n";
my $eingabe;
do {
++$zaehler;
print "$zaehler. Tipp: ";
chomp($eingabe = <STDIN>);
if ($eingabe == $zahl) {
print "Richtig!\n";
} elsif ($eingabe < $zahl) {
print "Die gesuchte Zahl ist grösser\n";
} else {
print "Die gesuchte Zahl ist kleiner\n";
}
} while ($eingabe != $zahl);
print "Herzlichen Glückwunsch. Du hast $zaehler Versuche gebraucht um die Zahl zu finden.\n";
nur das ich nicht zahlen raten soll sondern damit ich ne zahl eintipp und der computer dann die wurzel von der zahl ausrechnet.
mfg error
-
-
