Page 145 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

writeln('===================================================
======');
for i:=1 to n do
if (mhs1.nim) = (mhs.nim[i]) then
begin

writeln('|',mhs.nama[i]:20,mhs1.nim:10,mhs.alamat[i]:20,mhs.ipk[i]:1
0 :2,'|':2);
end;
writeln('=================================================
=========');
writeln;
end;
3: begin
write('Masukan Alamat Mahasiswa : ');readln(mhs1.alamat);
writeln;
writeln('=================================================
========');
writeln('|','Nama':20,'NIM':10,'Alamat':20,'IPK':10,'|':2);
writeln('=================================================
========');
for i:=1 to n do
if (mhs1.alamat) = (mhs.alamat[i]) then
begin

writeln('|',mhs.nama[i]:20,mhs.nim[i]:10,mhs1.alamat:20,mhs.ipk[i]:
10 :2,'|':2);
end;
writeln('=================================================
========');
writeln;
end;
4: begin
write('Masukan IPK : ');readln(mhs1.ipk);
writeln;

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

writeln('===================================================
====');
for i:=1 to n do
if (mhs1.ipk) = (mhs.ipk[i]) then
begin

writeln('|',mhs.nama[i]:20,mhs.nim[i]:10,mhs.alamat[i]:20,mhs1.ipk:
10:2,'|':2);