folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Şans Topu



Şans Topu

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Reges
    Reges's avatar
    Kayıt Tarihi: 22/Haziran/2003
    Erkek
    Basit Bir şanstopu örneğidir.

    Program Sayisal;
    Uses Crt, Dos;
    Var
    I,Tut: Integer;
    A: Char;
    Begin
    Randomize;
    Clrscr;
    For I:=1 to 5 do Begin
    Tut:=Random(34)+1;
    GotoXY(1,I);Writeln (Tut);
    End;
    Writeln("+");
    Tut:=Random(14)+1;
    Writeln(Tut);
    Writeln;
    Write ("Bir Tusa Basiniz :");
    A:= Readkey;
    End.

    - Bilginin Adresinden TurkCom.Org -
    Reply With Quote Alıntı yap
Toplam Hit: 1905 Toplam Mesaj: 1