Algoritma Dan pembelajaran pembahasan modul halaman 20. no. 4

programnya

Uses cRT
Var
    namapelanggan:string[30]
    kd           :string[3]
    jenispelanggan:srting[15]
    biayabeban,hargaperM,jenispelanggan,Tharga:longint;
    pajak,Ttagihan:real;
    lagi:char;
Begin
clrscr;
lagi:='Y';
while upcase(lagi)='Y'do
    Begin
    write('kode produk:');readln(kd);
    if kd='L01' Then
    Begin
    namapelanggan:='pabrik';biayabeban:=50000;hargaperM:=2500;
    end
    Else if kd='L02' Then
begin
    namapelanggan:='swalayan';biayabeban:=35000;hargaperM:=2000;
    end
    Else if kd='L03' Then
begin
    namapelanggan:='toko';biayabeban:=25000;hargaperM:=1500;
    end
   Else if kd='L04' then
begin
  namapelanggan:='rumah';biayabeban:=15000;hargaperM=750;
    end;
writeln('jenis pelanggan:',jenispelanggan);
writeln('biaya beban:',biayabeban);
writeln('hargaperM:',hargaperM);
Write('jumlah pemakaian:');readln(jumlahpemakaian);
Tharga:=hargaperM*jumlahpemakaian+biayabeban;
pajak:=0.1*Tharga;
Ttagihan:=Tharga+pajak;
    Writeln('Tharga:Rp',Tharga:8);
    writeln('pajak:Rp',pajak:7:0);
    writeln('Ttagihan:Rp',Ttagihan:8:0);
    write('ada produk lagi[Y/T:'];readln(lagi);
    end;
end.