DElphide sayısal loto porgramı

+ Yorum Gönder
Bilgisayar Dünyası ve Genelbilgi ve İpucu Bölümünden DElphide sayısal loto porgramı ile ilgili Kısaca Bilgi
  1. 1
    Polcex
    Yeni Üye
    Reklam

    DElphide sayısal loto porgramı

    Reklam



    DElphide sayısal loto porgramı

    Forum Alev
    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]:=i+1;
    kontrol[i]:=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.



  2. 2
    sweet_witch
    Yeni Üye
    Reklam



    arkadaşım akşam akşam sinirlendirdin beni.üniv.deki sınavlar aklıma geldi birden yafffffffff:(







+ Yorum Gönder
delphi sayısal loto programı
5 üzerinden 5.00 | Toplam : 1 kişi