Algoritma dan Pemrograman

Mencari  Flowchart beserta program dari output berikut :

Nama Pelanggan      :  x(30)

Kode                       :  x(3)

Jenis Pelanggan        :  x(15)

Biaya Beban            :

Harga Per M³          :

Jumlah Pemakaian   :

Total Harga     Rp    :

Pajak  10%      Rp   :

Total Tagihan Rp      :

Dengan Ketentuan Sebagai Berikut :

1.       Nama Pemakaian, Jumlah pemakaian di input

2.       Jenis Pelanggan, Biaya Beban, Harga Per M³ didapat dari kode

Kode	Jenis Pelanggan	Biaya Beban	Harga Per M³
L01	Pabrik	50000	2500
L02	Swalayan	35000	2000
L03	Toko	25000	1500
L04	Rumah	15000	750

3.       Total Harga  =  Harga Per M³ * Jumlah Pemakaian + Biaya Beban

4.       Pajak  =  10 * Total Harga

Total Tagihan  =  Total Harga + Pajak

Hasilnya Sebagai Berikut :

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.

Berikut Mencari Flowchart beserta program dari output Pembayaran Uang Kuliah :
outputnya:
Nama Mahasiswa              :
Npm                                 :
Kode                                :
Jurusan                             :
Pembayaran Awal       Rp :
Jumlah Cicilan             Rp :
Besar Cicilan              Rp :
Pembayaran Ke               :
Uang Kuliah               Rp :
Uang Kuliah Terbayar Rp :
Sisa Uang Kuliah        Rp :

Ketentuannya :

• Nama. Npm, Kode dan Pembayaran diperoleh dari input
• untuk mencari Jurusan, Pembayaran Awal, Jumlah Cicilan dan Besar Cicilan dari kode, yaitu :
•  

  Kode	Jurusan	Pembayaran Awal	Jumlah Cicilan	Besar Cicilan
  SI	Sistem Informasi	2100000	7	300000
  TI	Teknik Informatika	2500000	7	300000
  KA	Komputer Akutansi	1750000	6	200000
  MI	Manajemen Informatika	1500000	6	250000

    
• Uang Kuliah = Pembayaran Awal + (Jumlah Cicilan + Besar Cicilan)
• Uang Kuliah Terbayar = Pembayaran Awal + pembayaran ke * Besar Cicilan)
• Sisa Uang Kuliah = Uang Kuliah - Uang Kuliah Terbayar

Hasilnya Adalah :
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.

Demikianlah dari saya
Terima Kasih.......!!!!!

Tutorial ini saya tujukan kepada Dosen Saya Pak Mesran