
Tugas Pemograman Merubah program C++ menginput harga penjualan menggunakan menu ke bahasa pemograman pascal.
Object :
1. Televisi = Harga nya Rp.175000
2. DVD Player = Harga nya Rp.650000
3. CD ROOM = Harga nya 450000
uses crt;
Var
kode:byte;
harga,jumlah:longint;
th:longint;
nama:string;
begin
clrscr;
Writeln('INPUTKAN KODE PENJUALAN');
Writeln('------------------------------------------');
...