TUTORijali.org - Flash, Photoshop, Delphi, PHP, ASP, C++, Maya, MS Office

Funkcija Bubble-Sort sortiranje niza u C++ Vs Funkcija Sortiranje niza u Pascalu
Dabi ste testirali ove kodove potrebno vam je da download-ujete i instalirate kompajlere za C++ i za Pascal. To možete uraditi sa sledećih linkova: Dev-C++ Turbo Pascal
C++	Pascal
#include<iostream.h> #include<stdlib.h> int i,j,pom,n; int a[100]; void unos(int a[100]) { cout<<"Unesi ukupan broj clanova niza "<<endl; cin>>n; cout<<"Unesi clanove niza"<<endl; for (int i=0;i<n;i++) cin>>a[i]; } void ispis(int a[100]) { for (int i=0; i<n; i++) cout<<a[i]<<", "; } void bubblesort (int n, int a[]) { for (i=n-1; i>0; i--) { for (j=0; j<i; j++) { if (a[j]>a[j+1]) { pom=a[j]; a[j]=a[j+1]; a[j+1]=pom; } } } } int main() { cout<<"\n**POCETAK PROGRAMA\n"; unos(a); cout<<"\n-------- CLANOVI NIZA --------\n"; ispis(a); bubblesort(n,a); cout<<"\n-------- SORTIRANI NIZ --------\n"; ispis(a); cout<<"\n**KRAJ PROGRAMA***\n"; system ("pause"); return 0; }	program sortiranje; uses crt; var i,n,pom,j:integer; a:array [1..100]of integer; function unos(i:integer):real; begin writeln('Unesite ukupan broj clanova niza'); readln(n); writeln('Unesite clanove niza'); for i:=1 to n do begin writeln('Unesite ',i,' clan niza: '); read(a[i]); end; end; Function ispis(i:integer):real; begin writeln('Ispis niza'); for i:=1 to n do begin write(a[i],', '); end; end; function bubblesort(i,j:integer):real; begin for i:=n-1 downto 1 do begin for j:=1 to i do begin if a[j]>a[j+1] then begin pom:=a[j]; a[j]:=a[j+1]; a[j+1]:=pom; end; end; end; end; function sortiraniniz(i:integer):real; begin writeln; writeln('Sortirani niz'); for i:=1 to n do begin write(a[i],', '); end; end; begin writeln('**** UNOS CLANOVA NIZA *****'); unos(i); ispis(i); bubblesort(i,j); sortiraniniz(i); readln; readln; end.


kod je u crvenoj boji!!!