Delphi Zufallsvariable - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Zufallsvariable

Offene Frage von "Hans33"

Ein Thema von Hans33 · begonnen am 21. Nov 2008 · letzter Beitrag vom 22. Nov 2008

Vorheriger Beitrag

Nächster Beitrag

Hans33

Registriert seit: 13. Nov 2008
56 Beiträge

Turbo Delphi für Win32

Zufallsvariable

21. Nov 2008, 22:56

Hallo,

hab eine Frage.
Ich möchte ein Zahlenrätsel zum Einstieg in die Spieleprogrammierung machen.
Hab Turbo Delphi.

Soweit bin ich gekommen.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var z:0..50; var r:Real;

begin

r:=strtofloat(edit1.Text);

If r<z Then

begin

Label2.Caption:='Die Zahl ist zu klein';

end;

If r>z Then

begin

Label2.Caption:='Die Zahl ist zu groß';

end;

If z=r Then

begin

Label2.Caption:='Richtig!!';

end;