Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
ziehen: TButton;
ListBox1: TListBox;
procedure ziehenClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ziehenClick(Sender: TObject);
var
i, j, Zahl: integer;
gezogen: boolean;
lotto:
array[1..6]
of Integer;
begin
for i := 1
to 6
do
begin
listbox1.Clear;
repeat
gezogen := false; < - - - -? (a)
zahl := random(49) + 1;
for j := 1
to i - 1
do
if lotto[j] = Zahl
then
gezogen := true; < - - - -? (b)
until gezogen = false; < - - - -? (c)
lotto[i] := Zahl;
end; < - - - -wieso muss da jetzt schon ein
end hin? (d)
for i := 1
to 6
do
listbox1.items.add(inttostr(lotto[i]));
end;
end.
Dein Code ist ja grauenhaft formatiert. Wundert mich nicht, dass man den nicht so schön lesen kann. Vor allem wenn man noch nicht mit Delphi/Pascal vertraut ist. Vermutlich siehst Du jetzt schon viel mehr.
(a)
Der Variable gezogen wird false zugewiesen.
(b)
Der Variable gezoegn wird true zugewiesen
(c)
Die REPEAT ... UNTIL Schleife wird solange ausgeführt bis gezogen den Wert false hat, jedoch mindestens 1 mal
(d)
Weil hier die for schleife endet