RUMUS MEMBUAT DAFTAR FAKTUR

program PENJUALAN;

uses crt;
var
HRGBRG,JML,BYR :LONGINT;
NAMABRG,NOFAK,TGL,KODE :STRING;

begin
clrscr;
gotoxy(34,2);writeln('DAFTAR FAKTUR');
gotoxy(35,3);writeln('TOKO PASCAL');
gotoxy(13,4);writeln('=========================================================');
writeln(' ');
write('NO FAKTUR :');
readln(NOFAK);
write('TANGGAL :');
readln(TGL);
write('KODE :');
readln(KODE);
IF (KODE='A')THEN
BEGIN
NAMABRG :='BAJU';
HRGBRG :=50000;
END;
IF (KODE='B')THEN
BEGIN
NAMABRG :='CELANA';
HRGBRG :=150000;
END;
IF (KODE='C')THEN
BEGIN
NAMABRG :='KEMEJA';
HRGBRG :=300000;
END;
IF (KODE='D')THEN
BEGIN
NAMABRG :='JAKET';
HRGBRG :=95000;
END;
WRITELN('NAMA BARANG :',NAMABRG);
WRITELN('HARGA SATUAN :',HRGBRG);
WRITE('JUMLAH BARANG :');
READLN(JML);
BYR:=JML*HRGBRG;
WRITELN('BAYAR :Rp ',BYR);
gotoxy(36,17);WRITELN('TERIMA KASIH');
gotoxy(33,18);WRITELN('ATAS KUNJUNGAN ANDA');
gotoxy(13,19);writeln('=========================================================');
READLN(BYR);
end.