koding:
Program Mahasiswa;
uses crt;
label 1;
type
DMHS = record
NPM : String;
Nama : String;
KELAS : string;
end;
var
List : array [1..15] of DMHS;
i, h, j, n, pil, m : integer;
NPM1 : String;
temp : DMHS;
procedure insert;
begin
inc(i);
inc(n);
gotoxy(6,16); write('Masukkan Data Mahasiswa');
gotoxy(6,18); write('NMP Mahasiswa : '); readln(List[i].NPM);
gotoxy(6,19); write('Nama Mahasiswa : '); readln(List[i].Nama);
gotoxy(6,20); write('KELAS Mahasiswa : '); readln(List[i].KELAS);
end;
procedure cari(z : String);
var
k : integer;
ketemu : boolean;
begin
k := 1;
ketemu := false;
while (not ketemu) and (k <= n) do
if List[k].NPM = z then
ketemu := true
else
k := k + 1;
if ketemu then
begin
gotoxy(21,15); write('Mahasiswa Dengan NPM ',z,' : Ditemukan');
gotoxy(18,17); writeln('|¯¯¯¯¯¯¯¯¯¯¯|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|¯¯¯¯¯¯¯¯¯|');
gotoxy(18,18); writeln('| NPM | NAMA | KELAS |');
gotoxy(18,19); writeln('|___________|____________________|_________|');
gotoxy(18,20); writeln('| | | |');
gotoxy(18,21); writeln('| | | |');
gotoxy(20,21); writeln(List[k].NPM);
gotoxy(33,21); writeln(List[k].Nama);
gotoxy(55,21); writeln(List[k].KELAS);
gotoxy(18,22); writeln('|___________|____________________|_________|');
end
else
begin
gotoxy(20,15); write('Mahasiswa Dengan NPM ',z,' : Tidak Ditemukan');
end;
end;
procedure update(p : String);
var
z, x, y : String;
q, o : integer;
ketemu : boolean;
begin
q := 1;
if (NPM1 = '0') or (NPM1 = '') then
begin
gotoxy(15,20); write('Masukkan NPM yang Benar');
end
else
begin
ketemu := false;
while (not ketemu) and (q <= n) do
if List[q].NPM = p then
ketemu := true
else
q := q + 1;
if ketemu then
begin
gotoxy(5,21); write('Data Yang Akan di Update : ');
gotoxy(5,20); write('1. NPM 2. Nama 3. KELAS');
gotoxy(33,21); readln(pil);
case pil of
1 : begin
gotoxy(5,23); write('Masukkan NPM yang Baru : ');
readln(x);
List[q].NPM := x;
end;
2 : begin
gotoxy(5,23); write('Masukkan Nama yang Baru : ');
readln(y);
List[q].Nama := y;
end;
3 : begin
gotoxy(5,23); write('Masukkan KELAS yang Baru : ');
readln(z);
List[q].KELAS := z;
end;
end;
end
else
begin
gotoxy(5,22); write('NPM ',p,' Tidak Terdapat Dalam Daftar');
end;
end;
end;
procedure cetak;
begin
if m = 2 then
begin
gotoxy(37,2); write('Tabel Nilai Mahasiswa Setelah Diurutkan');
end
else if m = 0 then
begin
gotoxy(47,2); write('Tabel Nilai Mahasiswa');
end;
gotoxy(35,4); writeln ('|¯¯¯¯¯¯¯¯¯¯¯|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|¯¯¯¯¯¯¯¯¯|');
gotoxy(35,5); writeln ('| NPM | NAMA | KELAS |');
gotoxy(35,6); writeln ('|___________|____________________|_________|');
gotoxy(35,7); writeln ('| | | |');
gotoxy(35,8+n); writeln('|__________|____________________|_________|');
for j := 1 to n do
begin
gotoxy(35,7+j); writeln('| | | |');
gotoxy(37,7+j); writeln(List[j].NPM);
gotoxy(50,7+j); writeln(List[j].Nama);
gotoxy(72,7+j); writeln(List[j].KELAS);
end;
end;
begin { Program Utama }
i := 0;
n := 0;
repeat
1 : clrscr;
m := 0;
gotoxy(3,2); writeln ('|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|');
gotoxy(3,3); writeln ('| Menu |');
gotoxy(3,4); writeln ('| |');
gotoxy(3,5); writeln ('|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|');
gotoxy(3,6); writeln ('| 1. Insert |');
gotoxy(3,7); writeln ('| 2. Urutkan |');
gotoxy(3,8); writeln ('| 3. Cari MHS |');
gotoxy(3,9); writeln ('| 4. Update |');
gotoxy(3,10); writeln('| 5. Exit |');
gotoxy(3,11); writeln('| |');
gotoxy(3,12); writeln('|¯¯¯¯¯¯¯¯¯¯¯¯¯¯|');
gotoxy(3,13); writeln('| Pilihan : |');
gotoxy(3,14); writeln('|______________|');
cetak;
gotoxy(16,13); readln(pil);
case pil of
1 : begin
m := 0;
insert;
end;
2 : begin
repeat
clrscr;
gotoxy(3,2); writeln ('|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|');
gotoxy(3,3); writeln ('| Menu |');
gotoxy(3,4); writeln ('| |');
gotoxy(3,5); writeln ('|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯|');
gotoxy(3,6); writeln ('| 1. NPM |');
gotoxy(3,7); writeln ('| 2. Nama |');
gotoxy(3,8); writeln ('| 3. KELAS |');
gotoxy(3,9); writeln ('| 4. Menu |');
gotoxy(3,10); writeln('| 5. Exit |');
gotoxy(3,11); writeln('| |');
gotoxy(3,12); writeln('|¯¯¯¯¯¯¯¯¯¯¯¯¯¯ |');
gotoxy(3,13); writeln('| Pilihan: |');
gotoxy(3,14); writeln('|______________ |');
cetak;
gotoxy(16,13); readln(pil);
m := 2;
case pil of
1 : begin
for h := 1 to n-1 do
for j := 1 to n-1 do
if List[j].NPM > List[j+1].NPM then
begin
temp := List[j];
List[j] := List[j+1];
List[j+1] := temp;
end;
end;
2 : begin
for h := 1 to n-1 do
for j := 1 to n-1 do
if List[j].Nama > List[j+1].Nama then
begin
temp := List[j];
List[j] := List[j+1];
List[j+1] := temp;
end;
end;
3 : begin
for h := 1 to n-1 do
for j := 1 to n-1 do
if List[j].KELAS > List[j+1].KELAS then
begin
temp := List[j];
List[j] := List[j+1];
List[j+1] := temp;
end;
end;
4 : begin
goto 1;
end;
end;
cetak;
until
pil >= 5;
end;
3 : begin
gotoxy(21,15); write('NPM Mahasiswa yang akan dicari : ');
readln(NPM1);
cari(NPM1);
gotoxy(18,24); write('Tekan Sembarang Tombol Untuk Kembali Ke Menu');
end;
4 : begin
gotoxy(5,18); write('NPM Mahasiswa Yang Akan di Update : ');
readln(NPM1);
update(NPM1);
end;
end;
until pil >= 5;
end.
ketika program jadi, kita mendapatkan tampilan sebagai berikut:
Disini kita dapat memilih beberapa pilihan. Seandainya kita pilih '1. Insert' : maka kita dapat menginsert/memasukan data mahasiswa dengan ketentuan 'masukan NPM, Nama, dan kelas'. Kita pilih terus '1. insert' dan masukan terus data sesuai dengan kemauan kita. Contoh 5 data di masukan seperti gambar diatas.
Kemudian kita dapat mensort/ mengurutkan data-data yang sudah ada dengan memilih '2. Urutkan'. Dan kita akan mendapat beberapa pilihan:
' 1. NPM ' , ini berguna untuk mengurutkan data berdasarkan NPM.
' 2. Nama ' , ini berguna untuk mengurutkan data berdasarkan nama.
' 3. Kelas ' , ini berguna untuk mengurutkan data berdasarkan kelas.
' 4. Menu ' , ini untuk kembali ke menu awal.
' 5. Exit ' , untuk keluar dari program.
Andai kita pilih '3. Cari MHS' , maka akan muncul tulisan ' NPM mahasiswa yang akan dicari '.
'4, Update ' , untuk mengupdate atau merubah data yang sudah ada. Dan kita diminta NPM mahasiswa yang akan di update. Kemudian kita di beri 3 pilihan yaitu :
'1. NPM' , untuk mengupdate NPM mahasiswa.
'2. Nama' , untuk mengupdate Nama mahasiswa.
'3. Kelas' , untuk mengupdate Kelas mahasiswa.
setelah mengupdate data, data tersebut akan terupdate dengan sendirinya seperti contoh di atas.
'1. NPM' , untuk mengupdate NPM mahasiswa.
'2. Nama' , untuk mengupdate Nama mahasiswa.
'3. Kelas' , untuk mengupdate Kelas mahasiswa.
setelah mengupdate data, data tersebut akan terupdate dengan sendirinya seperti contoh di atas.
Tidak ada komentar:
Posting Komentar