Forenindex » Archiv » Perl und CGI » Perl- ratespiel programmieren

Perl- ratespiel programmieren

Anonym
Beiträge gesamt: 22827

29. Jun 2004, 10:47
Bewertung:

gelesen: 1371

Beitrag als Lesezeichen
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 !

Perl- ratespiel programmieren

Dominik87
Beiträge gesamt: 20

29. Jun 2004, 11:26
Bewertung:

gelesen: 1371

Beitrag als Lesezeichen
guck mal hier nach vllt. hilf dir das!!
http://web.dadanini.com:7980/...n_21Tagen/Kap06.html

Perl- ratespiel programmieren

Dominik87
Beiträge gesamt: 20

29. Jun 2004, 11:51
Bewertung:

gelesen: 1371

Beitrag als Lesezeichen
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??