Zufällige Zahl in Konsole

[schmitty89]

Hallo,

ich bin Anfänger in Delphi und wollte mal fragen wie man in einer Konsolenanwendung eine zufällige zahl auswählt?

var

x : random(100) oder so ähnlich?

[DeddyH]

Beim Programmstart Randomize() aufrufen und dann so etwas wie

Delphi-Quellcode:

x := Random(100) + 1; //Zahl zwischen 1 und 100

[schmitty89]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var 
  s : Integer;
  x : Integer;

   begin
     x := Random(100) + 1;
     readln(s); // Lesen von Standardinput
     if s=x then write('Richtig es ist:');
     if s= <x then write('Falsch es war zu klein');
     if s= >x then write('Falsch es war zu groß');
    writeln(x); // Schreiben nach Standardoutput
    readln;
end.

Kann mir wer helfen? Wie kann ich sagen das wenn der eingegebene Betrag zu groß ist, er mir das sagt und wenn er zu klein ist eben auch?

[haentschman]

Delphi-Quellcode:

if s<x then write('Falsch es war zu klein');
if s>x then write('Falsch es war zu groß');

:zwinker: Vergleich auf größer oder kleiner. In deiner Variante würdest du bei Übereinstimmung immer zu groß angezeigt bekommen.

Nur so nebenbei... warum auf einmal Konsole ? Ist ja das gleiche Programm wie vorhin. Zu Übungszwecken ?

[DeddyH]

Zitat:

Delphi-Quellcode:

if s= <x

Was soll das denn heißen? In einer Konsolenanwedung ist die Vergleichssyntax doch auch nicht anders als in einem VCL-Programm.

[edit] Und wo ist das Randomize? [/edit]

[schmitty89]

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var 
  s : Integer;
  x : Integer;

   begin
     randomize;
     x := Random(100) + 1;
     readln(s); // Lesen von Standardinput
     if s=x then write('Richtig es ist:');
     if s<x then write('Falsch es war zu klein');
     if s>x then write('Falsch es war zu gross');
     writeln(s); // Schreiben nach Standardoutput
    writeln(x);
    readln;
end.

jetzt soll man nur noch weitere versuche haben, bis man es richtig hat...irgendeine hübsche schleife?!

[Klaus01]

.. bist schon auf dem richtigen Weg.
Versuche es mal.

Ausstieg aus der Schleife wenn richtig geraten wurde oder
wenn die Anzahl der Versuche ein Limit überschritten haben.

Grüße
Klaus

[s.h.a.r.k]

Repeat-Until?!

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s : Integer;
  x : Integer;

   begin
     randomize;

     x := Random(100) + 1;
     repeat
       readln(s); // Lesen von Standardinput
       if s<x then write('Falsch es war zu klein');
       if s>x then write('Falsch es war zu gross');
       writeln(s); // Schreiben nach Standardoutput
    until (s = x);
    writeln('Korrekte Lösung ist: ', x);
    readln;
end.

[schmitty89]

Hatte es auch grade so, vielen Dank! :)

Läuftdoch so langsam :D

[s.h.a.r.k]

Würde die aber zu etwas mehr "Struktur und Form" raten, dann wirds etwas übersichtlicher und besser (für andere) lesbar :thumb:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  RandomValue : Integer;
  Input : Integer;
begin
  Randomize();

  RandomValue := Random(100) + 1;
  Input := -1;
  while (RandomValue <> Input) do
    // Lesen von Standardinput
    Readln(Input);

    // Wert prüfen und Schreiben nach Standardoutput
    if (Input < RandomValue) then
      Write('Falsch es war zu klein');
    if (Input > RandomValue) then
      Write('Falsch es war zu gross');
  end;
  Writeln('Korrekte Lösung ist: ', x);

  Readln;
end.

[DeddyH]

War Input unter Standard-Pascal nicht früher mal ein reserviertes Wort (lang, lang ist' s her)? Evtl. könnte man die Variable auch InputValue nennen, das sähe IMO noch besser aus.

[s.h.a.r.k]

Zitat:

Zitat von DeddyH (Beitrag 1152354)

War Input unter Standard-Pascal nicht früher mal ein reserviertes Wort (lang, lang ist' s her)? Evtl. könnte man die Variable auch InputValue nennen, das sähe IMO noch besser aus.

Öh, keine Ahnung mehr :mrgreen: Aber Asche auf mein Haupt, könnte man wahrlich. Wäre jedenfalls konsequenter. Aber die Idee sollte insgesamt klar werden. Mehr wollte ich nicht verdeutlichen :stupid:

[schmitty89]

Delphi-Quellcode:

program Ratespiel;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s : Integer;
  x : Integer;
  y : Integer;
  n : Integer;

   begin
     write('Bitte geben sie eine beliebige Zahl ein:');
     randomize; // initialisiert den integrierten Zufallszahlengenerator mit einem zufälligen Wert
     x := Random(100) + 1; //
     repeat
     readln(s); // Lesen von Standardinput
     if s=x then write('Richtig, es ist:',x);
     if s<x then write('Falsch es war zu klein');
     if s>x then write('Falsch es war zu gross');
    until (s=x);
    write('Moechten Sie erneut spielen? (Y/N)');
    read;
    if y then write('Ok, geben Sie erneut eine Zahl ein');
    if n then write('schade!');
    readln;readln;

end.

wie man am Ende sieht würde ich gern fragen ob derjenige erneut spielen möchte und wenn y (ja) dann soll er das erstmal schreiben und dann das ganze wiederholen.
Hmm nur zeigt er es mir noch nicht korrekt an...

[DeddyH]

Da wirst Du wohl noch ein 2. Schleifchen brauchen ;)