program sortingmenaik;
uses crt;
type
mahasiswa
= record
nama :
string [15];
nilai : string [15];
end;
var
i,j,n :
integer ;
mhs : array
[1..15] of mahasiswa;
siswa :
mahasiswa;
const
a=('================================================');
b=('Nama Nilai');
c=('================================================');
procedure
input;
begin
for i:= 1 to
n do
begin
with
mhs[i] do
begin
write(mhs[i].nama:0);
write(mhs[i].nilai:44);
writeln;
end;
end;
writeln(a);
end;
begin
clrscr;
write('jumlah
mahasiswa : ');readln(n);
for i :=1 to
n do
begin
write('Nama:
');readln(mhs[i].nama);
write('Nilai:
');readln(mhs[i].nilai);
writeln;
end;
write('data
semula');
writeln(a);
writeln(b);
writeln(c);
for i:=n downto 1 do
for j:=2
to i do
begin
if
mhs[i].nilai < mhs[j].nilai then
begin
siswa:=mhs[i];
mhs[i]:=mhs[j];
mhs[j]:=siswa;
end;
end;
writeln;
write('sorting berdasarkan nilai');
writeln('
');
writeln(b);
writeln(a);
writeln(c);
writeln;
write('selesai...');readln;
readkey; end.
Tidak ada komentar:
Posting Komentar