Page 119 - MODUL PDKP'21

Modul 4 – Interface, File dan Kursor 2021

Gambar 4.11 Instruction Page

LATIHAN SOAL

1. Jelaskan mengapa jika menggunakan perintah penulisan file harus ditutup
dengan menggunakan syntax close ?
2. Jelaskan arti UTF8ToCP866 pada penulisan sourcecode !
3. Jelaskan fungsi penggunaan kursor pada suatu program?

4. Jelaskan apa yang dimaksud dengan primitif pada file !
5. Jelaskan perbedaan nama fisis dan nama logis dalam proses penamaan file !

Integrasi Antar Modul
program integrasimodul;
Uses crt,sysutils,Lconvencoding;
type
makanan=record
Nama,Harga:string;
HBB,JB:integer;
total:real;
end;
var
pembelian:array[1..5] of makanan;
n,B,i,j:integer;
berkasteks:text;
no,username,password:string;
key,key1:char;
hasil:real;

procedure Daftarmakanan;
begin
clrscr;
writeln('Hari/Tanggal:',datetimetostr(now));
writeln(UTF8ToCP866('╔═══════════════════════════╗'));
writeln(UTF8ToCP866('║ ║'));
writeln(UTF8ToCP866('║ Administrasi Restaurant ║'));
writeln(UTF8ToCP866('║ ║'));

Praktikum Dasar Komputer dan Pemrograman 2021 IV-108