Programalama > PASCAL

Etiketler: sayisal, loto, programi

Ort. 0
Puan ver:
Uses Crt;
Var
i,m,j,k:Integer;
s:Array[1..6] of Integer;
T:Char;
b:Integer;
Begin
Clrscr;
Randomize;
For i:=1 to 6 do
Begin
For j:=1 to 10 do
Begin
s[i]:=Random(48)+1;
Textcolor(i);
Gotoxy(i*10,2); Write(s[i],' ');
Delay(500);
End;
For k:=1 to i-1 do
Begin
If s[i]=s[k] then
i:=i-1;
End;
End;
Gotoxy(25,i); Write('Sralamak istiyormusunuz   [E/H]');
Repeat
T:=Readkey;
Until (T='E') OR (T='e') Or (T='H') Or (T='h');
If (T='E') Or (T='e') Or (T='H') Or (T='h') Then
Begin
T:=Readkey;
For i:=1 to 6 do
For j:=1 to 6 do
If s[i]<s[j] then
Begin
Clrscr;
b:=s[i];  s[i]:=s[j];   s[j]:=b;
End;
For i:=1 to 6 do
Begin
Gotoxy(30,i);Writeln(s[i]);
End;
End;
Readln;
End.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.