TUGAS LOGIKA dan ALGORITMA 2 (LIST DATA)

2. PROCEDURE LIST DATA

BEGIN
(mulai)
REPEAT
(ulangi)
ASSIGN(FSISWA,'SISWA.PDB')
(hubungkan var FSISWA dengan file SISWA.PDB)
RESET
(membuka file)
OCON80(05,’MELIHAT DATA?)
(tampilkan pesan 'MELIHAT DATA?')
CP2480(‘KETIKAN NIS YANG AKAN AKAN DI LIHAT'
(tampilkan 'KETIKKAN NIS YANG AKAN DI LIHAT',Untuk menginputkan NIS yang akan di lihat)
if NIMC=”THEN
(jikan nis yang di cari ada maka,)
begin close(fsiswa)
(mulai keluar dari file dan merekam data)
jika data yang dicari tidak ada
maka lihat lagi file siswa dan simpan ke file sementara apabila belum dtemukan
dan apabila sudah ditemukan
maka mulai
dengan memunculkan
ctks(18,10,nm)
(cetak pada kolom 18 baris10 data dari var NM)
apabila data tidak ditemukan
CP2480('DATA DENGAN NIS TERSEBUT TIDAK DITEMUKAN')
(munculkan pesan 'DATA DENGAN NIS TERSEBUT TIDAK DITEMUKAN')
CTKS(02,22,'MASIH MAU MELIHAT DATA YANG LAIN(Y/T)?')
(munculkan pesan 'MASIH MAU MELIHAT DATA YANG LAIN (Y/T)?')
UNTIL UPCASE(JWB)<>'Y'
(ulangi procedure list data jika JWB='Y')
end;
(selesai untuk procedure LIST DATA)