uses WinCRT
Type arrint = array [1..100];
Procedure tukar (var a,b : real);
var bantu :real;
begin
bantu :=a; a :=b;
b :=bantu; end;
Procedure selectionsor (var x : arrint; N: integer);var i,j :integer;
begin
for i:=1 to N-1 do for j :=i+1 to N do if x [i]> x[j] than tukar (x[i] than tukar (x[i],x[j]); end;
Var
data : arrint;
i,j,n: integer;
Begin clrscr;
writeln('masukan data anda !');writln;
write('berapakah frekuensi data anda?'); readln(N); writeln('silakan masukan data yang anda punya !');
For i:=1to n do
begin
write('data ke-',i,'=');readln(data[i]); end;
selectionSort(data,n);
for i:= to n do
write('(',data[i]:4:2,'),'); readln;
end.
Tidak ada komentar:
Posting Komentar