PROGRAM INPUT DAN PROSES SEDERHANA (PROG 13)

PROGRAM PROG13;
USES WINCRT;
     VAR
        HARGA,JUMLAH,DISKON,TOTAL_HARGA,TOTAL_DISKON : REAL;
BEGIN
     WRITE('HARGA BARANG   = '); READLN(HARGA);
     WRITE('JUMLAH BARANG  = '); READLN(JUMLAH);
     WRITE('DISKON         = '); READLN(DISKON);
     TOTAL_DISKON := (DISKON/100)*(HARGA*JUMLAH);
     TOTAL_HARGA := (HARGA*JUMLAH)-TOTAL_DISKON;
     WRITELN('TOTAL HARGA    = ',TOTAL_HARGA:10:0);
END.


HASIL

Add caption