Page 144 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

writeln('====================================================
======');
writeln;
write('Ingin mencari data tertentu (y/n) ? ');readln(pilih);
writeln;
case pilih of
'y': begin
tekan:='Y';
while upcase(tekan)='Y' do
begin
clrscr;
writeln;
writeln('MENU PILIHAN');
writeln;
writeln('[1] NAMA');
writeln('[2] NIM');
writeln('[3] ALAMAT');
writeln('[4] IPK');
writeln;
write('Pilihan anda : ');readln(no);
case no of
1: begin
write('Masukan Nama Mahasiswa : ');readln(mhs1.nama);
writeln;

writeln('===================================================
======');
writeln('|','Nama':20,'NIM':10,'Alamat':20,'IPK':10,'|':2);

writeln('===================================================
======');
for i:=1 to n do
if (mhs1.nama) = (mhs.nama[i]) then
begin
writeln('|',mhs1.nama:20,mhs.nim[i]:10,mhs.alamat[i]:20,mhs.i
pk[i]:10:2, '|':2);
end;

writeln('===================================================
======');
writeln;
end;
2: begin
write('Masukan No. Mahasiswa : ');readln(mhs1.nim);
writeln;

writeln('===================================================
======');
writeln('|','Nama':20,'NIM':10,'Alamat':20,'IPK':10,'|':2);