Menghitung Discount dengan Menggunakan Function dalam PASCAL

program menghitung_diskon;
uses
    wincrt;
var pembelian,diskon,pembayaran:real;

function caridiskon(beli:real):real;
var diskon:real;
begin
     if (beli>1000000) then
        begin
          diskon:=beli*0.15;
        end
     else if(beli>500000) then
            begin
                 diskon:=beli*0.1;
            end
         else if (pembelian>100000) then
                begin
                     diskon:=beli*0.05;
                end;
         caridiskon:=diskon;
end;
begin
     clrscr;
     write('masukkan jumlah pembelian:');readln(pembelian);
     diskon:=caridiskon(pembelian);
     pembayaran:=pembelian-diskon;
     writeln('jumlah diskon:',diskon:8:0);       
     writeln('pembayaran   :',pembayaran:8:0);
end.

Tidak ada komentar:

Diberdayakan oleh Blogger.