Zahlen erraten lassen.

2 Lösungen

#24

Anfänger - Perl von zayc_ - 28.12.2012 um 14:08 Uhr

Programmiere ein Programm, welches eine vom User erdachte Zahl (Integer) in einem vom User angegebenen Bereich Erraten soll.

Konsolenausgabe:


Bitte Untergränze angeben: 0
Bitte Obergränze angeben: 100

Bitte geben sie nach jedem versuch R,G oder K an. je nachdem ob
R die Zahl richtig ist
G die gesuchte Zahl grösser ist
K die gesuchte Zahl kleiner ist



1. Versuch: 50.
k
2. Versuch: 25
g
3. Versuch: 37
g
4. versuch: 42
g
5. Versuch: 46
k
6. Versuch: 44
k
7. Versuch: 43
r
Die gesuchte Zahl war also die 43!

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von RivalofSilen (620 Punkte) - 20.03.2014 um 11:04 Uhr

Perl-Code

print "Bitte Zahl ausdenken!\nMindestwert\n";
$min=<STDIN>;
print "\nMaxwert:\n";
$max=<STDIN>;
print "\n\n";
$geloest = 0;
while($geloest eq 0){
	erzeugen();
	print "$zahl\n";
	chop($loesung = <STDIN>);
	print "\n";
	if($loesung eq 'g'){
		$min = $zahl + 1;
	} elsif($loesung eq 'k'){
		$max = $zahl - 1;
	} elsif($loesung eq 'r'){
		$geloest = 1;
	} else{print "\n\n############################\nfalsche Eingabe!\n############################\n\n";}
}

sub erzeugen{
	NOCHMAL:
	$temp = int(rand($max) + $min );
	if($temp <= $max && $temp >= $min){
		$zahl = $temp;
	} else {goto NOCHMAL;}

};