SOAL QUIS Kasus Pembayaran Rekening Listrik
uses crt; var kode:integer; jnsplg:string; beban:real; hargakwh:integer; pembayaran:real; pemakaian:real; no:integer; q:integer; label ulang; begin clrscr; no:=1; writeln('Informasi Pembayaran Rekening Listrik'); writeln('-----------------------------------------------------------------'); gotoxy(0,3);write('No'); gotoxy(5,3);write('Kode'); gotoxy(13,3);write('Jenis Pelanggan'); gotoxy(30,3);write('Beban'); gotoxy(40,3);write('Pemakaian'); gotoxy(55,3);write('Pembayaran'); writeln; ...