error
01.11.2007, 23:00
hi
ich möchte sowas in der art wie hier scripten
#!/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
ich möchte sowas in der art wie hier scripten
#!/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