PROGRAM MENGHITUNG BIAYA PERCETAKAN (TURBO PASCAL)

Menghitung biaya percetakan

1. Program Menghitung biaya percetakan;

    Uses crt;
    Var p,l,b,lp,biaya:real;
    Begin
            Writeln(‘kalkulator perusahaan percetakkan’);
            Writeln(‘ukuran cetak panjang’);readln(p);
            Writeln(‘ukuran cetak lebar’);readln(l);
            Lp:=p*l;
            B:=lp*25000;
            Writeln(‘biaya total cetak =’,b);readln(b);
            Writeln;
            If lp <=100 then
            Writeln (‘biaya total cetak =’,lp); readln(lp);
            Begin
            Writeln(‘luas persegi’);readln(lp);
            Biaya:=lp*25000;
            Writeln(‘biaya total cetak=’,biaya);readln(biaya);
            End;
            Writeln (‘luas persegi’);readln(lp)
            If (lp>=100) then
            Biaya:=lp*15000;
            Writeln(‘biaya total cetak=’,biaya)readln(lp);
            Readln;
            Begin
            Writeln(‘luas persegi’);readln(lp);
            If lp <= 300 then
            Biaya:=lp*20000;
            Writeln(‘biaya total cetak=’,biaya);readln(lp)
            Readln;
            End;
End.