Program Menghitung Besar Pembayaran dari Banyak Pembelian

Tweet

Program Menghitung Besar Pembayaran dari Banyak Pembelian di Turbo Pascal - Berikut adalah program menghitung besar pembayaran dengan data sebagai berikut :

T-Shirt size S

• Harga normal 1000
• Jika Beli 2, jumlah bayar dikali 900
• Beli >= 3, jumlah bayar dikali800

T-Shirt size M

• Harga normal 1250
• Beli 2, jumlah bayar dikali 1100
• Beli >= 3, jumlah bayar dikali 1000

T-Shirt size L

• Harga normal 1500
• Beli 2, jumlah bayar dikali 1400
• Beli >= 3, jumlah bayar dikali 1300

Maka, contoh programnya adalah sebagai berikut :

program Bhs_Pemograman;
uses crt;
var
Ukuran : char;
Banyak, Jumlah : integer;
begin
clrscr;
       write('Ukuran T-Shirt = ');read(Ukuran);
       write('Banyak T-Shirt = ');read(Banyak);
        if (Ukuran = 'S') and (Banyak = 1) then
begin
     Jumlah := 1000 * Banyak;
     write('Jumlah Bayar = ' , Jumlah);
end
else
       if (Ukuran = 'S') and (Banyak = 2) then
begin
     Jumlah := 900 * Banyak;
     write('Jumlah Bayar = ' , Jumlah);
end
else
       if (Ukuran = 'S') and (Banyak >= 3) then
begin
     Jumlah := 800 * Banyak;
     write('Jumlah Bayar = ' , Jumlah);
end
else
       if (Ukuran = 'M') and (Banyak = 1) then
begin
     Jumlah :=  1250 * Banyak;
     write('Jumlah Bayar = ' , Jumlah);
end
else
       if (Ukuran = 'M') and (Banyak = 2) then
begin
     Jumlah := 1100 * Banyak;
     write('Jumlah Bayar = ' , Jumlah);
end
else
        if(Ukuran = 'M') and (Banyak >=3) then
begin
     Jumlah:= 1000 * Banyak;
     write('Jumlah Bayar = ' , Jumlah);
end
else
        if(Ukuran = 'L') and (Banyak = 1) then
Begin
     Jumlah:=1500 * Banyak;
     write ('Jumlah Bayar = ' , Jumlah);
end
else
        if(Ukuran= 'L') and (Banyak = 2) then
Begin
     Jumlah:=1400 * Banyak;
     write ('Jumlah Bayar = ' , Jumlah);
end
else
        if(Ukuran= 'L') and (Banyak >=3) then
Begin
     Jumlah:=1300 * Banyak;
     write('Jumlah Bayar = ' , Jumlah);
end;
readkey;
end.

Hasil Keluaran Program adalah :

Ukuran T-Shirt : S

Banyak T-Shirt : 3

Jumlah Bayar : 2400

Diketahui Maka, demikianlah artikel Program Menghitung Besar Pembayaran dari Banyak Pembelian, semoga dapat membantu Anda untuk lebih paham. Terima kasih telah membaca artikel diatas.