TUGAS LOGIKA dan ALGORITMA 2 (ENTRY DATA)

1. PROSES ENTRY DATA (PROSES INPUT/PENAMBAHAN DATA)

BEGIN(mulai)
REPEAT(ulangi)
ASSIGN(FSISWA,'SISWA.PDB')
(Menghubungkan var FSISWA dengan file SISW.PDB)
if result<>0 then rewrite (FSISWA);
( jika hasil tidak kosong maka kosongkan FSISWA)

TAMPILAN;
(menampilkan)

OCON80(05,’MENAMBAH DATA)
(tampilkan pesan ,’ menambah data)
CP2480(‘KETIKKAN NOMOR INDUK SISWA YANG AKAN DITAMBAHKAN’)

(munculkan tampilan 'KETIKKAN NOMOR INDUK SISWA YANG AKAN DITAMBAHAKAN') untuk menginputkan NIS yang akan ditambahkan.

gotoxy(18.09);readln(NIMC)
(letakkan kursor pada kolom18 baris 9,ambil data dari var NIMC)
if NIMC=” THEN
(jika NIMC sudah dimasukkan , maka )
BEGIN
(mulai)
close(fsiswa);EXIT;
(tutup FSISWA sekaligus rekamkan data ke FSISWA,lalu keluar)
end;(selesai untuk penginputan NIMC)
assign(FADA,’siswa’pdb)
(hubungkan var FADA dengan file SISWA.PDB)
reset(fada)
(buka file SISWA.PDB yang sudah dihubungkan dengan var FADA)
swada=0
(jika data yang dicari tidak ada)
while
(lakukan pengulangan dengan mebuka file dan membacanya dan memindhakan ke file sementara bila belum ditemuakan)
if siswa NIMC=1
(jika siswa dengan nim sudah ditemukkan,maka)
begin
(mulai)
ctks(18,10,NM)
(cetak di kolom18 baris 10 data dari var NM)
ctks(18,12,JRS)
(cetak di kolom 18 baris 12 data dari var JRS)
dst sampai ctks(18,21 KET)
CP2480(‘KETIKKAN NAMA SISWA)
(munculkan tampilan 'KETIKKAN NAMA SISWA', untuk menginputkan nama siswa)
gotoxy(18,10);readln(nm)
(cetak di kolom 18 baris 10,masukkan data dari var NM)
dst sampai gotoxy(19,16);readln(NP)
end
(selesai penginputan data baru)
SEEK (FSISWA,BD);
(gerakkan pointer dari FSISWA ke banyaknya record yang sudah terekam ke FSISWA)
WRITE (FSISWA,RSISWA)
(rekamkan data dari var record RSISWA ke var file FSISWA)
end (selesai)
ctks(02,22,’ masih mau menambah data baru?)
(tampilkan pesan ,’ masih mau menambah data baru?')
jwb=readkey
cp2480(‘tunggu lagi proses')
(tampilkan di layar 'Tunggu Lagi Proses')
close(fsiswa)
(tutup FSISWA sekaligus rekamkan data yang ada)
until upcase(jwb=Y)
(ulangi lagi menambah data baru jika dijawab Y)
end
(selesai entry data baru)