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

Selection-Sort sortiranje niza u C++ Vs 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 main() { int i,j,pom,n; int a[100]; // Unos dimenzije niza cout<<"Unesi ukupan broj clanova niza "<<endl; cin>>n; // Unos clanova niza cout<<"Unesi clanove niza"<<endl; for (int i=0;i<n;i++) { cin>>a[i];} // Sortiranje niza for (int i=0; i<n; i++) { for (int j=i+1; j<n; j++) { if (a[j]<a[i]) { pom=a[i]; a[i]=a[j]; a[j]=pom; } } } // Ispis sortiranog niza cout<<"SORTIRANI NIZ "<<endl; for (int i=0; i<n; i++) { cout<<a[i]<<", "; } system ("pause"); return 0; }	program sortiranje; uses crt; var i,n,pom,j:integer; a:array [1..100]of integer; begin clrscr; 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; writeln('Ispis niza'); for i:=1 to n do begin write(a[i],', '); end; for i:=1 to n do begin for j:=i+1 to n do begin if a[j]<a[i] then begin pom:=a[i]; a[i]:=a[j]; a[j]:=pom; end; end; end; writeln; writeln('Sortirani niz'); for i:=1 to n do begin write(a[i],', '); end; readln; readln; end.


kod je u crvenoj boji!!!