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

Funkcija Insertation-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 insertionsort(int n, int a[]) { for (i=1; i<n; i++) { for (j=i; (j>0) && (a[j]<a[j-1]); j--) { 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); insertionsort(n,a); cout<<"\n-------- SORTIRANI NIZ --------\n"; ispis(a); cout<<"\nKRAJ 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 insertationsort(i,j:integer):real; begin for i:=1 to n do begin for j:=i downto 1 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); insertationsort(i,j); sortiraniniz(i); readln; readln; end.


kod je u crvenoj boji!!!