Senin, 30 Maret 2015
program_data_mahasiswa;
uses crt;
type data= record
nama, nim: string;
ipk : real;
end;
var
mhs : array [1..100] of data;
i, j, n, temp : integer;
pilih : char;
procedure input;
begin
clrscr;
write('Masukkan jumlah mahasiswa :
');
readln(n);
for i := 1 to n do
begin
clrscr;
writeln('Masukkan Data ke- ', i);
writeln('______________________');
write ('Nama : ');
readln(mhs[i].nama);
write ('NIM : ');
readln(mhs[i].nim);
write ('IPK : ');
readln(mhs[i].ipk);
end;
end;
procedure tampil;
begin
clrscr;
writeln('
>>
Tampilan Data Mahasiswa <<');
writeln;
writeln;
writeln('|---------------------------------------------|');
writeln('| NIM
Nama
IPK |');
writeln('|---------------------------------------------|');
for i:=1 to n do
begin
gotoxy(1,6+i); writeln('|');
gotoxy(10,6+i); writeln('|');
gotoxy(40,6+i); writeln('|');
gotoxy(47,6+i); writeln('|');
gotoxy(3,6+i); writeln(mhs[i].nim);
gotoxy(14,6+i);
writeln(mhs[i].nama);
gotoxy(42,6+i);
writeln(mhs[i].ipk:2:2);
end;
writeln('|---------------------------------------------|');
readkey;
end;
procedure selection;
var max: integer;
temp: data;
begin
for i:=1 to n-1 do
begin
max:=i;
for j:= i+1 to n do
if mhs[j].ipk> mhs[max].ipk then
max:=j;
temp:= mhs[max];
mhs[max]:= mhs[i];
mhs[i]:= temp;
end;
tampil;
end;
begin
input;
selection;
Output :
Subscribe to:
Posting Komentar (Atom)
0 komentar:
Posting Komentar