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?

Beim Programmstart Randomize() aufrufen und dann so etwas wie
x := Random(100) + 1; //Zahl zwischen 1 und 100

zusammenfalten · markieren

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?

markieren

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 ?

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]

zusammenfalten · markieren

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?!

.. 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

Repeat-Until?!

zusammenfalten · markieren

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.

Hatte es auch grade so, vielen Dank!

Läuftdoch so langsam

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

zusammenfalten · markieren

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.