Bu kod bilgi amaçlıdır. Kullanımı Hüseyin ÖZDEMİR tarafından YASAKTIR
Kod: Tümünü seç
const
SIZE:Integer = 5;
var
SayisalDizi : Array[0..5] of Integer;
k, i, b, c,tmp:Integer;
Str:String;
begin
// Dizilere değer ata
str := '';
i:= 0;
Randomize;
while i <= SIZE do
Begin
SayisalDizi[i] := Random(49) + 1;
inc(i);
End;
//Sıralama Yap ve aynı sayı kontrolü yap Kullanılan Algoritma 'Buble Sort'
for c := SIZE downto 0 do
for k := c to SIZE - 1 do
if SayisalDizi[k] > SayisalDizi[k + 1] then
begin
TMP := SayisalDizi[k];
SayisalDizi[k] := SayisalDizi[k + 1];
SayisalDizi[k + 1] := Tmp;
end
Else
if SayisalDizi[k] = SayisalDizi[k + 1] then
begin
SayisalDizi[k] := SayisalDizi[k] + 1;
end;
//Stringe Ata
b:=0;
while b <= SIZE do
Begin
Str := Str + intToStr(SayisalDizi[b]) + ' ';
inc(b);
End;
ShowMessage(str);
end;