zahlenraten

[Tzuxy]

Hallo liebe Delphi-User,
ich wollte einen Algorithmus mit dem der PC eine zahl errät, die jemand beliebiges eingegeben hat. Ich brauche dazu möglich wenig Quellcode. Kann mir jemand dabei helfen. Meine Theorien sind viel zu lang.

[jfheins]

"Null Bock":

Delphi-Quellcode:

var i: Integer;
for i := 0 to MAXINT do showmessage (IntToStr (i));

[Nikolas]

Wie sieht denn deine Theorie aus? Mit Quellcode wird dir hier niemand helfen. Und ein PC kann nicht raten...

[glkgereon]

also jetzt zahl sagen und du sagst ist kleiner/größer/gleich?

also das sollte so funzen:

Delphi-Quellcode:

while not gefunden do
  begin
  zahl:=min+(max-min) div 2;
  ergebniss:=frage(zahl);
  if ergebniss=richtig then gefunden:=true
  else if ergebniss=zugroß then max:=zahl-1
  else if ergebniss=zuklein then min:=zahl+1;
  end;

so, in zahl steht danach die gesuchte zahl, min und max beschränken den zahlenraum...

das sollte funzen...

achja: richtig, zugroß und zuklein sind in dem code Konstanten, und frage fragt den benutzer und gibt diese konstanten zurück..

[fkerber]

Hi!

Ist der normale Weg nicht umgekehrt?
Also dass der Rechner die Zahl vorgibt und der User sie erraten muss?

Ciao Frederic

[glkgereon]

ja, aber

Zitat:

ich wollte einen Algorithmus mit dem der PC eine zahl errät

ich mein, warum frag ich mich auch, aber mir isses schnuppe...

[Tzuxy]

Ähm danke für die erste Möglichkeit.
Ist zwar eine, aber ist mir zu lang.
Ich würds z.b nur 7 oder 8 Versuche brauchen um eine Zahl bis 100 zu erraten. Natürlich wenn er mir sagt ob kleiner oder größer.
Gibs in Delphi ne funktion die zwei zahlen vergleicht und dann ausgibt ob größer kleiner oder gleich?

[fkerber]

Hi!

Zitat von Tzuxy:

Ich würds z.b nur 7 oder 8 Versuche brauchen um eine Zahl bis 100 zu erraten. Natürlich wenn er mir sagt ob kleiner oder größer.
Gibs in Delphi ne funktion die zwei zahlen vergleicht und dann ausgibt ob größer kleiner oder gleich?

Und wie würdest du das machen?

Zur Funktion:
Da hilft wohl nur selber schreiben, aber das sollte ja eigentlich kein Problem sein, oder? Es gibt ja <,> und =


Ciao Frederic

[glkgereon]

jetzt stop ma aber echt jetzt...

willst du die zahl erraten, und der pc sagt "ey alder, die is aba zu groß"
oder soll der pc die erraten und du sagst immer "nee, die war noch zu klein"?