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
  1. uses crt;
  2. var
  3. b,i,n,c:integer;
  4. tamam:boolean;
  5. a:array[1..100] of integer;
  6. begin
  7. clrscr;
  8. write('diziniz kaç elemanli:');readln(n);
  9. writeln;
  10. writeln('dizinin elemanlarini giriniz');
  11. for i:=1 to n do begin gotoxy(4*i,4) ; read (a[i]); end; repeat
  12. tamam:=true;
  13. for i:=2 to n do
  14. if a[i]<a[i-1] then
  15. begin
  16. c:=a[i];
  17. a[i]:=a[i-1];
  18. a[i-1]:=c;
  19. tamam:=false;
  20. end;
  21. until tamam= true;
  22. writeln('sırali dizimiz');
  23. for i:=1 to n do
  24. write(a[i]:3);
  25. readkey;
  26. end.




 

Yorumlar  

 
0 #4 valdes 14-02-2010 15:52
:twisted: :roll:: :wink: :arrow: :cry:: :cry:: :oops: :shock: :sad: :-) :D :confused: :-x :lol: 8)
Alıntı
 
 
0 #3 Guest 14-02-2010 15:52
:-x
Alıntı
 
 
0 #2 Guest 13-12-2009 15:53
:cry:: yaaaaaaaa bir türlü bulamıyom
:evil:
Alıntı
 
 
+1 #1 Guest 28-10-2009 19:25
güzel ama büyükten küçüğe sırarama yok hhhhhhhhhhhhhhh hhhhhhhhhhhhhhh hhh
Alıntı
 

Yorum ekle


Güvenlik kodu
Yenile

Üye Giriş

Üyeler

3502 Kayıtlı
0 Bugün
3502 Dün
2 Bu Hafta
5 Bu Ay
Son
GuccallFumBus offline