hilfdirselbst.ch
Facebook Twitter gamper-media

"Geht nicht" ist keine gültige Fehlermeldung!

Anonym
Beiträge: 22827
29. Jun 2004, 10:47
Beitrag #1 von 3
Bewertung:
(1068 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Perl- ratespiel programmieren


Hallo,
wir sollen in der schule ein rate spiel Programmieren.
der PC soll mit der "rand" funktion eine zahl aussuchen
Dann soll der spieler eine zahl eingeben.
Danach gibt der computer aus:
"zahl zu groß oder zahl zu niedrig"
Wenn man dann die zahl erraten hat soll der Computer die Anzahl der Versuche ausgeben!
Ich habe von Perl keinen Plan.
Ich hoffe mir kann wer helfen ! Top
 
X
Dominik87
Beiträge: 20
29. Jun 2004, 11:26
Beitrag #2 von 3
Beitrag ID: #93853
Bewertung:
(1068 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Perl- ratespiel programmieren


guck mal hier nach vllt. hilf dir das!!
http://web.dadanini.com:7980/...n_21Tagen/Kap06.html
als Antwort auf: [#93844] Top
 
Dominik87
Beiträge: 20
29. Jun 2004, 11:51
Beitrag #3 von 3
Beitrag ID: #93861
Bewertung:
(1068 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Perl- ratespiel programmieren


Habe nun endlich die Lösung:

$num = 0;
$count = 0;
$guess = "";


srand;
$num = int(rand 99) + 1;

while () {
print " Ihr Tipp? (eine Zahl zwischen 1 und 99): ";
chomp($guess = <STDIN>);
if ($guess == 0 || $guess eq '0') {
print "Das ist keine gute Zahl.\n";
} elsif ($guess < $num) {
print "Zu niedrig!\n";
$count++;
} elsif ($guess > $num) {
print "Zu hoch!\n";
$count++;
} else {
print "\a\aRichtig! \n";
$count++;
last;
}
}
print "Gratuliere! Sie haben mit $count Versuchen";
print " die richtige Zahl erraten.\n";




Kann mir jetzt noch jemand deibei helfen, einen Highscore einzubauen??
als Antwort auf: [#93844] Top