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
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ß');

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:

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

[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

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.