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.