Turbo
Pascal dengan Rumus IF dan Else
Contoh sederhana Turbo Pascal dengan
Rumus IF dan Else :
Input :
Nama Barang (NB)
Banyak Barang (BB)
Harga Barang (HB)
Rumus :
Jumlah Bayar (JB) = BB * HB
Jika Jumlah Bayar > 100.000 Maka
diskon 10 %
Jika Jumlah Bayar < 100.000 Maka
Tidak Dapat Diskon
Bayar Akhir (BA) = JB-(10%*JB)
Algoritmanya
uses wincrt;
var
NB :string;
BB,HB,JB,BA:real;
begin
writeln('------by. Habibu------');
writeln;
write('Nama
Barang = '); readln(NB);
write('Banyak
Barang = '); readln(BB);
write('Harga
Barang = '); readln(HB);
JB:=BB*HB;
writeln('Jumlah Bayar =
',JB:9:2);
if JB>100000 Then
BA:=JB-(0.1*JB)
Else
BA:=JB;
write('Bayar Akhir
=',BA:10:2);
end.
Selamat mencoba, Smoga Berhasil.