|
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 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.
|
Yorumlar
:evil:
RSS beslemesi, bu iletideki yorumlar için