Selasa, 09 Oktober 2012

menghitung diskon bahsa pascal


program discount;
uses crt;
var harga,diskon,total:real;
begin
     clrscr;
     write('masukkan harga:');
     read(harga);
     if harga>=1000000 then
      begin
          writeln('diskon 15%');
           diskon:=harga*15/100;
            total :=harga-diskon;
             writeln(total:2:2);
     end
     else
     if (harga<1000000) and (harga>500000) then
      begin
          writeln('diskon 10%');
           diskon:=harga*10/100;
            total:=harga-diskon;
             writeln(total:2:2);
     end
     else
     if (harga<500000) and (harga>100000) then
      begin
          writeln('diskon 5%');
           diskon:=harga*5/100;
            total:=harga-diskon;
             writeln(total:2:2)
     end
     else
     if (harga>100000) and (harga<50000) then
     begin
          writeln('diskon 5%');
          diskon:=harga*5/100;
          total:=harga-diskon;
          writeln(total:2:2);
     end
     else
     if harga<500000 then
     writeln('tidak dapat diskon');
     readln;
     readln;

end.

Tidak ada komentar:

Poskan Komentar