Program pengurutan data
Download as DOCX, PDF0 likes213 views
This program sorts integer data input by the user. It contains procedures for inputting the data, sorting it from lowest to highest, and outputting the sorted data. The user is prompted to enter the number of data values, the data is input and sorted, and finally the sorted data is displayed.
1 of 2
Download to read offline
![Program Pengurutan Data
program pengurutandata;
uses wincrt;
const NilaiMaksimum = 1000;
type Data = array[1..NilaiMaksimum] of integer;
var
D : Data;
batas : integer;
procedure masukan (var D : Data; n : integer);
var
a : integer;
begin
for a := 1 to n do
begin
write('Masukkan Nilai Data Ke-' ,a,' : '); readln(D[a]);
end;
end;
procedure pengurutan (var D : Data; n : integer);
var
i, k, temp : integer;
begin
for i := 1 to (n-1) do
for k := n downto i+1 do
if D[k] < D[k-1] then
begin
temp := D[k];
D[k] := D[k-1];
D[k-1] := temp;
end;
end;
procedure keluaran (var D : Data; n : integer);
var
i : integer;
begin
for i := 1 to n do
write(D[i]:5);
end;
begin
write('Masukkan Banyak Data : '); readln(batas);
writeln;
writeln;
masukan (D,batas) ; writeln;
pengurutan (D,batas); writeln;](https://image.slidesharecdn.com/programpengurutandata-160317163539/85/Program-pengurutan-data-1-320.jpg)
More Related Content
What's hot (6)
Ad
Similar to Program pengurutan data (20)
Ad
More from linda_rosalina (20)
Recently uploaded (20)
Program pengurutan data
- 1. Program Pengurutan Data program pengurutandata; uses wincrt; const NilaiMaksimum = 1000; type Data = array[1..NilaiMaksimum] of integer; var D : Data; batas : integer; procedure masukan (var D : Data; n : integer); var a : integer; begin for a := 1 to n do begin write('Masukkan Nilai Data Ke-' ,a,' : '); readln(D[a]); end; end; procedure pengurutan (var D : Data; n : integer); var i, k, temp : integer; begin for i := 1 to (n-1) do for k := n downto i+1 do if D[k] < D[k-1] then begin temp := D[k]; D[k] := D[k-1]; D[k-1] := temp; end; end; procedure keluaran (var D : Data; n : integer); var i : integer; begin for i := 1 to n do write(D[i]:5); end; begin write('Masukkan Banyak Data : '); readln(batas); writeln; writeln; masukan (D,batas) ; writeln; pengurutan (D,batas); writeln;
- 2. writeln; writeln('Hasil Pengurutan Data : '); writeln; keluaran(D,batas); end.