Algoritma Diskon Belanja - Tugas Soal No.2 Hal 153

Algoritma Diskon Belanja - Tugas Soal No.2 Hal 153

Soal :

Pasar swalayan X memberikan diskon harga bagi pembeli yang nilai total belanjanya lebih dari Rp.100.000. Tulislah algoritma untuk menentuka harga belanja setelah di kurangi diskon. Data masukan adalah nilai total belanja pembeli,sedangkan keluarannya adalah diskon harga dan nilai belanja setelah di kurangi

Source Code :

PROGRAM Soal_No2_Hal_153;

USES CRT;
VAR
   nilai_total_pembelian   : REAL;
   nilai_diskon            : REAL;
   diskon                  : REAL;
   bayar                   : REAL;

BEGIN
     WRITE('nilai total pembelian           : ');READLN(nilai_total_pembelian);
     WRITE('nilai diskon ( % dalam desimal ): ');READLN(nilai_diskon);

     IF(nilai_total_pembelian>100000) THEN
        BEGIN
             diskon := nilai_total_pembelian * nilai_diskon;
             bayar  := nilai_total_pembelian - diskon;
        END
     ELSE
         BEGIN
              bayar    := nilai_total_pembelian;
         END;

     WRITELN('nilai total pembelian : ',nilai_total_pembelian:4:2);
     WRITELN('potongan diskon : ',diskon:4:2);
     WRITELN('bayar : ',bayar:4:2);

     READLN;
END.

Tampilan program ketika di jalankan :

Algoritma Diskon Belanja - Tugas Soal No.2 Hal 153