TUGAS PROGRAM DAN FLOWCHART

Belajar Pemrograman

Tugas No 4.
Flowchart

Sementara untuk Program diatas sebagai berikut :

uses crt;
var
  nama : string[30];
  kd       : string[3];
  jp        : string[15];
  bb,hpm,jpemakai : longint;
  tharga,pajak,ttagih : real;

begin
write('Nama Pelanggan   : ');readln(nama);
write('kode                           : ');readln(kd);
if kd='lo1'  then
begin
jp:='Pabrik'; 
bb:=50000 ; 
hpm:=25000 ;
end
  else if kd='l02' then
  begin
  jp:='Swalayan' ; 
  bb:=35000 ; 
  hpm:=2000 ;
  end
     else if kd='l03' then
     begin
     jp:='Toko' ; 
     bb:=25000 ; 
     hpm:=1500 ;
     end
        else if kd='l04' then
        begin
        jp:='Rumah' ; 
        bb:=15000 ; 
        hpm:=750 ;
        end;
      
begin 
writeln('Jenis Pelanggan : ',jp);
writeln('Biaya Beban         : ',bb); 
writeln('Harga Per M³      : ',hpm);
write('Jumlah Pemakaian :');readln(jpemakai);
tharga:=hpm*jpemakai+bb;
pajak:=0.1*tharga;
ttagih:=tharga+pajak;
writeln('Total Harga    : Rp ',tharga:8:0);
writeln('Pajak             : Rp ',pajak:8:0);
writeln('Total Tagihan  : Rp ',ttagih:8:0);
readln;
end;
end.

Tugas No 6
Flowchart :

Programnya adalah :

uses crt;
var
  nama,npm,kd : string;
  jurus : string;
  pk : integer;
  jc,pa,bc,uk,ukt,suk : longint;
begin
write('Nama Mahasiswa :');readln(nama);
write('Npm                           : ');readln(npm);
write('kode                           : ');readln(kd);
if kd='SI'  then
begin
jurus:='Sistem Informasi' ; 
pa:=2100000 ; 
jc:=7 ; 
bc:=300000 ;
end
  else if kd='TI' then
  begin
  jurus:='Teknik Informatika' ; 
  pa:=2500000 ; 
  jc:=7 ; 
  bc:=300000 ;
  end
     else if kd='KA' then
     begin
     jurus:='Komputer Akutansi' ; 
     pa:=17500000 ; 
     jc:=6 ; 
     bc:=200000 ;
     end
        else if kd='MI' then
        begin
        jurus:='Manajemen Informatika' ; 
        pa:=1500000 ; 
        jc:=6 ; 
        bc:=250000 ;
        end;
           
begin 
writeln('Jurusan                        : ',jurus);
writeln('Pembayaran Awal  : ',pa); 
writeln('Jumlah Cicilan          : ',jc);
writeln('Besar Cicilan          : ',bc); 
write('Pembayaran Ke       :');readln(pk);
uk:=pa + jc + bc;
ukt:=pa + pk * bc;
suk:=uk - ukt;
writeln('Uang Kuliah                 : Rp ',uk);
writeln('Uang Kuliah Terbayar  : Rp ',ukt);
writeln('Sisa Uang Kuliah         : Rp ',suk);
readln;
end;
end.