program dan design

LABEL
Y,N;

TYPE VOUCHER=RECORD
VOU,KV,PLS : STRING;
HG,JML,TTL : REAL;
END;

VAR
CELLULAR : ARRAY [1..20] OF VOUCHER;
NP : STRING;
TOBAY,UB,UK : REAL;
LAGI : CHAR;
I,JUMDAT : BYTE;


PROCEDURE PROSES;
BEGIN
CLRSCR;
WRITE('NAMA PEMESANAN :');READLN(NP);
WRITE('JUMLAH DATA :');READLN(JUMDAT);
WRITELN;
FOR I:= 1 TO JUMDAT DO
BEGIN
WITH CELLULAR [I] DO
BEGIN
WRITELN('DATA KE :',I);
WRITE('KODE VOUCHER [IM3/MENTARI/SIMPATI] :');READLN(VOU);
WRITE('PULSA [25/50/100] :');READLN(PLS);
WRITE('JUMLAH BELI :');READLN(JML);
IF VOU='IM3' THEN
IF PLS='25' THEN
BEGIN
HG:=26000;
END
ELSE IF PLS='50' THEN
BEGIN
HG:=49000;
END
ELSE
BEGIN
HG:=96000;
END
ELSE IF VOU='MENTARI' THEN
IF PLS='25' THEN
BEGIN
HG:=28000;
END
ELSE IF PLS='50' THEN
BEGIN
HG:=52000;
END
ELSE
BEGIN
HG:=100000;
END
ELSE IF VOU='SIMPATI' THEN
IF PLS='25' THEN
BEGIN
HG:=27000;
END
ELSE IF PLS='50' THEN
BEGIN
HG:=53000;
END
ELSE
BEGIN
HG:=98000;
END;
TTL:=HG*JML;
TOBAY:=TOBAY+TTL;
END;
END;

CLRSCR;
WRITELN('NAMA PEMESAN : ',NP);
WRITELN;
WRITELN(' *************************************** ');
WRITELN(' ====== PHONE CELLULAR ====== ');
WRITELN(' *************************************** ');
WRITELN('ÉÍÍËÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍ»');
WRITELN('ºNOº VOUCHER º PULSA º HARGA º JUMLAH º TOTAL º');
WRITELN('ÌÍÍÎÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍ͹');
{12345678901234567890123456789012345678901234567890123}
BEGIN
WITH CELLULAR [I] DO
FOR I:= 1 TO JUMDAT DO
BEGIN
GOTOXY(1,8+I);WRITE('º',I);
GOTOXY(4,8+I);WRITE('º',VOU);
GOTOXY(15,8+I);WRITE('º',PLS);
GOTOXY(23,8+I);WRITE('º',HG:2:0);
GOTOXY(32,8+I);WRITE('º',JML:2:0);
GOTOXY(41,8+I);WRITE('º',TTL:2:0);
GOTOXY(53,8+I);WRITELN('º');
END;
WRITELN('ÈÍÍÊÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍͼ');
WRITELN('TOTAL PEMBAYARAN :Rp ',TOBAY:2:0);
WRITE('UANG BAYAR :Rp ');READLN(UB);
UK:=UB-TOBAY;
WRITE('UANG KEMBALIAN :Rp ',UK:2:0);
WRITELN;
END;
END;

BEGIN
Y:
CLRSCR;
PROSES;
WRITE('INGIN INPUT LAGI [Y/N] :');READLN(LAGI);
IF UPCASE(LAGI)='Y' THEN
GOTO Y
ELSE
GOTO N;

N:
READLN;
END.