Page 101 - Pemrograman Dasar kelas X

Bab 3 Struktur Percabangan 97

KEGIATAN BELAJAR 2PERCABANGAN DENGAN 2 KONDISI

Tujuan Pembelajaran
Sisiwa memahami algoritma percabangan dengan dua kondisi
Aktivitas Kegiatan Belajar

Mengamati
Perhatikan kedua source codeberikut :

Kode Program 1
Program DiskonBaju;
var hargaNormal, ProsenDiskon:integer;

BesarDiskon, hargaAkhir: real;
Begin

write(‘Masukkan total harga pembelian: ‘ );
readln( TotalBelanja);
ProsenDiskon:=20;
if (TotalBelanja>=200000) then

ProsenDiskon:=25;
BesarDiskon=(ProsenDiskon/100)*TotalBelanja;

TotalBayar=TotalBelanja-BesarDiskon;
writeln(‘Total harga yang harus dibayar adalah : ‘, TotalBayar:6:2);
end.

Kode Program 2
Program DiskonBaju;
var hargaNormal, ProsenDiskon:integer;

BesarDiskon, hargaAkhir: real;
Begin

write(‘Masukkan total harga pembelian: ‘ );
readln( TotalBelanja);
if (TotalBelanja>=200000) then

ProsenDiskon:=25
Else

ProsenDiskon:=25;
BesarDiskon=(ProsenDiskon/100)*TotalBelanja;
TotalBayar=TotalBelanja-BesarDiskon;
writeln(‘Total harga yang harus dibayar adalah : ‘, TotalBayar:6:2);