PROGRAM MENGHITUNG_HASIL_PENJUALANCOTO

PROGRAM MENGHITUNG_HASIL_PENJUALANCOTO;

USES winCRT;

LABEL IRA;

CONST

KETP= 500;

COTO=3500;

VAR

MK,KT : BYTE;

TOT_BAYAR,diskon :REAL;

HR_MK : integer;

HR_KT : longint;

LAGI :CHAR;

bayar,uang,kembali:real;

BEGIN

writeln('Menghitung Hasil Penjualan Coto');

writeln('===============================');

WRITE('BERAPA MANGKUK=');READLN(MK);

WRITE('BERAPA KETUPAT=');READLN(KT);

WRITELN;

HR_MK := MK * 3500;

HR_KT := KT * 500;

BAYAR := HR_MK + HR_KT;

IF BAYAR >=10000 THEN

DISKON := 0.05 * BAYAR;

writeln('Total Belanja :',Bayar:10:2);

writeln('Discount :',diskon:10:2);

tot_bayar:=bayar-diskon;

writeln('Total Bayar setelah discount :',tot_bayar:10:2);

write('Uang diBayar=');readln(Uang);

writeln(Uang:10:2);

kembali:=uang-tot_bayar;

write('Uang Kembali=',kembali:10:2);

end.

layout:

Share On