TUGAS MATA KULIAH ALGORITMA no 4

Tugas no 4

uses crt;

var

Npelanggan: string[30];

     kd: string[3];

     Jpelanggan: string[15];

    Bbeban,Harga per m3,Jpemakaian:longint;

    Tharga,pajak,Ttagihan:real;

    lagi:char;

Begin

    lagi :='Y'

    While upcase (lagi)='y' do

     Begin

     Write('Npelanggan:');readln(nama);

      write('kode produk:');readln(kd);

     If kd='LO1' then

    Begin

         Jpelanggan:='pabrik';Bbeban:=50000;harga per m3:=2500;

    end

    else if kd='LO2' then

    Begin

         Jpelanggan:='Swalayan';Bbeban:=35000;harga per m3:=2000;

    end

    else if kd='LO3' then

    Begin

         Jpelanggan:='Toko';Bbeban:=25000;harga per m3:=1500;

    end

    else if kd='LO4' then

    Begin

         Jpelanggan:='Rumah';Bbeban:=15000;harga per m3:=750

    end;

    writeln('Jpelanggan:',Jpelanggan);

    writeln('Bbeban:',Bbeban);

    writeln('Harga per m3;',Harga per m3);

    write('Jpemakaian:');readln(jumlah);

    Tharga:=Harga per m3*Jpemakaian+Bbeban;

    Pajak:=0.1*Tharga;

    else

        Pajak:=0;

    Ttagihan:=Tharga+Pajak;

    writeln('Tharga:',total:8:0);

   writeln('pajak:',pajak:8:0);

   writeln('Ttagihan:',Ttagihan:8:0);

    write('ada produk lagi[Y/T]');readln(lagi)

   end;

end.
  santi melinda sitohang,NPM:1302062