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.
Başarılı !
Beğenmedim
Gayet iyi
Teşekkürler
Yetersiz!
Anlamadım
Boş Bilgi
😈 :roll:: 😉 ➡ :cry:: :cry:: 😳 😯 🙁 🙂 😀 :confused: 😡 😆 8)
😡
:cry:: yaaaaaaaa bir türlü bulamıyom
👿
güzel ama büyükten küçüğe sırarama yok hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh