Turbo Pascalda dizileri büyükten küçüğe küçükten büyüğe sıralama
Turbo Pascalda dizileri büyükten küçüğe küçükten büyüğe sıralama işlemi için aşağıdaki program yeterli olacaktır yalnız program küçükten büyüğe sıralıyor tersini yapmak için < işaretini > yapmanız yeterli 🙂 öncelikle dizinin eleman sayısı isteniyor sonra elemanlar girilip sıralanıyor.
Turbo pascal dizi sıralama
-
uses crt;
-
var
-
b,i,n,c:integer;
-
tamam:boolean;
-
a:array[1..100] of integer;
-
begin
-
clrscr;
-
write(‘diziniz kaç elemanli:’);readln(n);
-
writeln;
-
writeln(‘dizinin elemanlarini giriniz’);
-
for i:=1 to n do begin gotoxy(4*i,4) ; read (a[i]); end; repeat
-
tamam:=true;
-
for i:=2 to n do
-
if a[i]<a[i-1] then
-
begin
-
c:=a[i];
-
a[i]:=a[i-1];
-
a[i-1]:=c;
-
tamam:=false;
-
end;
-
until tamam= true;
-
writeln(‘sırali dizimiz’);
-
for i:=1 to n do
-
write(a[i]:3);
-
readkey;
-
end.