DElphide sayısal loto porgramı

[ALpMontana]

procedure TForm1.Button1Click(Sender: TObject);
var

kontrol:array[0..48] of boolean;
rakam:array[0..48] of integer;
loto:array[0..5] of integer;
c,i,j,k:integer;
m,n,temp:integer;

begin
listbox1.Items.Clear;
j:=0;

for i:=0 to 48 do begin
rakam:=i+1;
kontrol:=false;
end;

randomize;

while(j<=5) do begin
c:=random(50);
if((kontrol[c]=false)) then begin
loto[j]:=rakam[c]; kontrol[c]:=true; j:=j+1;
end;
end;



for n:=0 to 4 do begin
for m:=0 to 4 do begin
if(loto[m]>loto[m+1]) then begin temp:=loto[m]; loto[m]:=loto[m+1]; loto[m+1]:=temp; temp:=0; end;
end;
end;

for k:=0 to 5 do begin
listbox1.Items.Add(inttostr(loto[k]));
end;


end;

end.



:hhman: teskur etmek lazım

 

[dj_kerem]

kardeş bu biizm ne işimize yarayacak ya ben onu anlamadım şim di

 

[ALpMontana]

kardeş bu biizm ne işimize yarayacak ya ben onu anlamadım şim di

şim kardes galıba bılsayar programcılıgı ve ogretmenlıgı okumuorsun bu o bölümü okuyan ogrencılern basbelası delphi dersınden bır programın kod takımı bılen arkadasla tsk edıor sende eksık olma

 

[DuffyDuck]

benım işime yaramaz yawssss neyseee sen oyle yazma bana uygulamalı olarak ogretursınn abiciiimmmmmmmmmm DD