Uses wincrt;
type arrint = array [1..100] of integer;
procedure tukar(var a,b: integer);
var bantu : integer;
begin
bantu:=a;a:=b;
b:=bantu; end;
procedure bublesort(var x :arrint; N: word);
var i,j:word;
begin
for i:=1 to N-1 do for j:=1 to N-i do if x[j]>x[j+1] than tukar(x[j],x[j+1); end;
var
data: arrint;i,j,n:integer;begin
clrscr;
writeln('masukan data anda!');writeln;
write('berapakah frekuensi data anda? '); readln(n); writln('silakan masukan data anda!'); for i:=1 to n do
begin
write('data ke-',i,'='); readln (data[i]);
end;
boblesort(data,n);
write('hasil pengurutan data dengan bublesort:');
for i:=1to n do
write (data[i]:3); readln;
end.
------------------------------------------------------
---------------------------------------------------------
<html> <title>Membuat program kalkulator sederhana menggunakan textbox
Tidak ada komentar:
Posting Komentar