LABORATORIUM TEKNIK KIMIA

FAKULTAS TEKNIK
UPN “VETERAN” JAWA TIMUR Nama : MERRY JHOE S M
NPM/Semester : 19031010114/ 1
Praktikum : PEMPROGAMAN KOMPUTER Sesi :X
Percobaan : LOOPING STATEMENT DALAM Paralel :C
MATLAB
Tanggal : 15 NOVEMBER 2019
Pembimbing : DR.T.IR.DYAH SUCI P.MT
LAPORAN RESMI

Soal!
1. Buatlah program, hasil run, flowchart, dan algoritma program (tiap
praktikan wajib berbeda) !
a) While end
b) For end
c) While end-for end
d) For end-while end
e) While end-switch case-for end
f) For end-switch case-while end
2. Buatlah program dan flowchart untuk permasalahan ini. Rancanglah
sebuah Tangki dengan data debit aliran air 1NMP m3/ hari dengan waktu
tinggal awal 10 menit dan asumsi volume tangki terisi air 95%, asumsi
tingggi tangki 1-3 kali diameter. Hitunglah Volume Air, Volume
Tangki,Tinggi Tangki,Tinggi air dalam tangki.
Vt=1/4 π D2H
Ketentuan:
NPM= 2 angka terakhir NPM praktikan, contoh: 1231010009 jadi debit=
109.
Interval(untuk debit)=5,
Interval(Untuk waktu tinggal)=12 , pertambahan waktu tinggal <=30
menit.
3. Buat program serta flowchart program perhitungan pangkat.
Contoh hasil tampilan.
 4. There’s a system consist of methanol (1) and methyl acetate (2) and there
are the equation provide to solve the problem.

ln γ1 = Ax22 ln γ2 = Ax12 A = 2.771 − 0.00523 T

In addition, the following Antoine equation provide vapor pressure
3643.31 2665.54
ln P1sat = 16.59158 − ln P2sat = 14.25326 −
T − 33.424 T − 53.424
P = x2 P2𝑠𝑎𝑡 + x1 P1sat
yi P = xi Pisat γi
∆T = 5
∞

1 = ∑ xi
i=1

Question:
a. P and yi for T1= 45o to T2= 90o and x2 = 0.3
b. P and yi for T1= 60o to T2= 105o and x2 = 0.1

T 𝐱𝟏 𝐱𝟏 𝐏𝟐 𝐏𝟏 P 𝐲𝟏 𝐲𝟐
Jawaban
1. Membuat program dengan statement
A. While End
a. Alogartima
1. Mulai program
2. Input nilai n
3. Perulangan menggunakan statement while end
For i=1;n
4. Proses perhitungan
5. Menampilkan hasil perhitungan dan perulangan
6. Selesai
b. flowchart

Mulai

Input
n

No

While

Yes

Proses
Perhitungan

Menampil-
Kan data

Selesai
c. Listing
clc;
disp('++++++++++++++++++++++++');
disp('Program Bilangan Kuadrat');
disp('++++++++++++++++++++++++');
n=input('Menampilkan Bilangan kuadrat sampai n kuadrat dengan n=')
for i=1:n
disp([(n-(n-i))^2])
end
d. Hasil Run
B. For End
a. Algoritma
1. Mulai program
2. Perulangan menggunakan statement for end untuk mencari luas lingkaran
a=jari-jari lingkaran
a=a+1
3. Proses Perhitungan luas lingkaran
L=0.5*phi*(a^2) ……….…satu lingkaran
L2=0.5*0.5*phi*(a^2)…….1/2 lingkaran
L3=0.75*0.5*phi*(a^2)……3/4 lingkaran
4. Menampilkan hasil perhitungan dan perulangan
5. Selesai
b. Flowchart

Mulai

For
A=0:10

Proses
Perhitungan

No
Hasil
Perhitungan

Yes

Selesai
c. Listing
disp('Perhitungan seberapa besar cintaku padamu');
disp('-----------------------------------------');
disp('Luas Lingkaran');
disp( 'R L 1/2L 3/4L ');
for a=0:10
a=a+1;
phi=3.14;
L=0.5*phi*(a^2);
L2=0.5*0.5*phi*(a^2);
L3=0.75*0.5*phi*(a^2);
fprintf('%1.0f%7.2f%7.2f%8.2f\n',a,L,L2,L3);
end
d. Hasil Run
C. While end – For end
a. Algoritma
1. Mulai program
2. Perulangan menggunakan statement while end
3. Proses Perhitungan dan perulangan
4. Menampilkan output
5. Perulangan menggunakan statement for end
6. Proses perhitungan dan perulangan
7. Menampilkan output
8. Selesai
b. Flowchart

Mulai

No

While

Yes

Proses
Perhitungan

Hasil
Perhitungan

For

Proses
Perhitungan

No
Hasil
Perhitungan

Yes

Selesai
c. Listing

disp('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
disp(' D O N U T S PATTERN ');
disp(' spesialis donat ');
disp('\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
disp('Diskon anniversary 20th');
disp(' Hot Sale 10% ');
disp('Harga 1 Box = Rp50.000,00');
while box<=5
box=1;
box=box+1
Harga=50000;
Harga=Harga*box*0.1;
fprintf('%5.0f%5.0f\n',box,Harga);
end;
for jum=10:50;
jum=10;
box=box+1;
jum=jum*box;
fprintf('%5.0f%5.0f\n',jum,box);
end;
end
d. Hasil Run
D. For end – While end
a. Algoritma
1. Mulai program
2. Perulangan menggunakan statement while end
3. Proses Perhitungan dan perulangan
4. Menampilkan output
5. Perulangan menggunakan statement for end
6. Proses perhitungan dan perulangan
7. Menampilkan output
8. Selesai
b. Flowchart

Mulai

For

Proses
Perhitungan

No
Hasil
Perhitungan

Yes

No
While

Yes

Proses
Perhitungan

Hasil
Perhitungan

Selesai
c. Listing
disp('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
disp(' D O N U T S PATTERN ');
disp(' spesialis donat ');
disp('\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
disp('Diskon anniversary 20th');
disp(' Hot Sale 10% ');
disp('Harga 1 Box = Rp50.000,00');
for box=1:5
box=1;
box=box+1
Harga=50000;
Harga=Harga*box*0.1;
fprintf('%5.0f%5.0f\n',box,Harga);
end;
while jum<=50
jum=10;
box=1;
box=box+1;
jum=jum*box;
jum=jum+10;
fprintf('%5.0f%5.0f\n',jum,box);
end;
end
d. Hasil Run
E. While end – switch case – for do
a. Algoritma
1. Mulai program
2. Input pilihan
3. Pemilihan kondisi menggunakan statement switch case
Case 1 = perulangan konversi mata uang menggunakan statement while end
Case 2 = perulangan konversi mata uang menggunakan statement for end
4. Proses perhitungan dan perulangan
5. Menampilkan hasil perhitungan dan perulangan
6. Selesai
b. Flowchart

Mulai

No No
Input
Case 1 Case 2
pilihan

Yes
Yes

No

While For

Yes

Proses Proses

No
Output Output

Yes

Selesai
c. Listing
disp('-----------------------------------');
disp('-----------------------------------');
disp(' KONV3R51 ');
disp(' M4T4 U4N9 ');
disp('-----------------------------------');
disp('1. IDR - USD - MYR');
disp('2. IDR - HKD - EUR');
pil=input('Pilihan Anda=');
switch pil
case (1)
disp('Konversi mata uang');
disp(' Rupiah Dollar US Ringgit');
rup=0;
while rup<=50000
rup=rup+10000;
usd=rup*0.000071;
ring=rup*0.0003;
fprintf('%7.0f%11.3f%12.0f\n',rup,usd,ring);
end;
case (2)
disp('Konversi mata uang');
disp(' Rupiah Dollar Hongkong Euro');
for rup=10000:40000
rup=rup+10000;
hkd=rup*0.00055;
eur=rup*0.000064;
fprintf('%7.0f%12.3f%12.3f\n',rup,hkd,eur);
end;
end
d. Hasil Run
F. For end – switch case – While end
a. Algoritma
1. Mulai program
2. Perulangan menggunakan statement for end
3. Proses Perhitungan dan perulangan
4. Menampilkan hasil
5. Input pilihan untuk pilihan konversi (switch case)
Case 1 USD – Dolar Australia
Case 2 USD – Peso Filipina
Case 3 USD – Rupee India
6. Perulangan menggunakan statement while end
7. Proses Perhitungan dan perulangan
8. Menampilkan hasil
9. Selesai
b. Flowchart

Mulai

For

Proses

Menampil-
kan hasil

Input
Case 1 Case 2 Case 3
Pilihan

While While While

Proses Proses Proses

Menampil- Menampil- Menampil-

kan hasil kan hasil kan hasil

Selesai
c. Listing
disp(' no satu last');
disp('--------------------------------------');
disp(' MASIH KONVERSI ');
disp(' $ mata uang $ ');
disp('--------------------------------------');
disp('Nilai tukar US Dollar per 21 Nov 2019');
disp(' 1 USD = 14.088 Rupiah ');
disp(' IDR USD');
rup=rup+5000;
for rup=5000:5000:25000
usd=rup/14.088;
fprintf('%5.0f%10.3f\n',rup,usd);
end;
disp('--------------------------------------');
disp(' yuk konversi ke mata uang lain ');
disp('1. Dolar Australia');
disp('2. Peso Filipina ');
disp('3. Rupee India ');
a=input('Mau dikonversi kemana? 1/2/3=');
switch a
case (1)
disp('Dolar US - Dolar Aus');
usd=0;
while usd<=9
usd=usd+1;
ausd=usd*1.47;
fprintf('%5.0f%12.2f\n',usd,ausd);
end;
case (2)
disp('Dolar US - Peso Filipina');
 usd=0;
while usd<=9
usd=usd+1;
pf=usd*50.84;
fprintf('%5.0f%14.2f\n',usd,pf);
end;
case (3)
disp('Dolar US - Rupee India');
usd=0;
while usd<=9
usd=usd+1;
ruin=usd*71.76;
fprintf('%5.0f%14.2f\n',usd,ruin);
end;
end
d. Hasil Run
2. Program Perancangan Tangki
a. Algoritma
1. Memulai program
2. Menggunakan while do untuk perulangan dalam ( waktu/sec<=30)
3. Proses perhitungan
VolumTang:=Qdeb*sec;
VolumAir:=95/100*VolumTang
HighTang:=3*diam;
HighAir:=4*VolumAir/(phi*diam*diam);
4. Menampilkan hasil perhitungan
5. Selesai
6. Flowchart

Mulai

Qdeb=114

No
While

Yes

Proses
Perhitungan

Menampil-
kan hasil

selesai
7. Listing
disp('----------------------------------------------------');
disp(' Debit Waktu VTangki VAir Ttangki TAir ');
disp('-----------------------------------------------------');
Qdeb=114;
interQdeb=5;
inters=12;
Diam=21;
s=10;
phi=3.14;
while s<=30
VolumTang=Qdeb*s;
VolumAir=(95/100)*VolumTang;
HighTangki=3*Diam;
HighAir=4*VolumAir/(phi*Diam*Diam);

fprintf('%5.0f%9.0f%9.0f%11.2f%6.0f%8.2f\n',Qdeb,s,VolumTang,VolumAir,Hi
ghTangki,HighAir);
s=s+inters;
Qdeb=Qdeb+interQdeb;
end
d. Hasil Run
3. Program Perhitungan Pangkat
a. Algoritma
1. Mulai program
2. Input nilai X dan Y
3. Proses Perhitungan
4. Menampilkan hasil perhitungan
5. Selesai
b. Flowchart

Mulai

Input
Nilai
X&Y

Proses
Perhitungan

Menampil-
kan hasil

selesai
c. Listing
disp(' Program Menghitung Pangkat');
disp(' =============================');
x=input('Masukkan Jumlah Pangkat :');
y=input('Masukkan Bil.Yang Dipangkat :');
v=y^x;
disp('Hasil Pangkat :')
disp(v)
d. Hasil Run
4.
a. Algoritma

a) Start
b) Display the options
c) Input your choice
d) Condition selection:
 If co==1
1) Calculation process:
Iteratiton process (while TS<=TD)
2) Calculation process:
Display the results
 Elseif co==2
1) Calculation process:
TS=60+273;
A=2.771-(0.00523*TS);
TD=105+273;
XD=0.1;
XS=1-XD;
PD=exp(14.25326-(2665.54/(TS-53.424)));
PS=exp(16.5958-(3643.31/(TS-33.424)));
P=(XD*PD)-(XS*PS);
LS=exp(A*(0.3^2));
LD=exp(A*(0.7^2));
2) Iteration process (while TS<=TD)
3) Calculation process:
A=2.771-(0.00523*TS);
LS=exp(A*(XD^2));
LD=exp(A*(XS^2));
PS=exp(16.5958-(3643.31/(TS-33.424)));
PD=exp(14.25326-(2665.54/(TS-53.424)));
 P=(XD*PD)-(XS*PS);
Y1=(XS*PS*LS)/P;
4) Display the results
e) End
b. Flowchart

Start

No
No
Input Elseif
If YY=1
Data YY=2

Yes Yes

No
No

While While

Yes
Yes

Calculating Calculating
Process Process

Output Output
Data Data

Finish
 c. Listing
clear all;
clc;
disp('------------------------------------------------------------');
disp(' v a p o r p r e s s u r e (P) & y i ');
disp('------------------------------------------------------------');
disp('Calculation of P and yi if');
disp('1. T1=45 C to T2= 90 C and x2=0.3');
disp('2. T1=60 C to T2=105 C and x2=0.1');
YY=input('your choice? =');
if YY==1
TS=45+273;
A=2.771-(0.00523*TS);
TD=90+273;
XD=0.3;
XS=1-XD;
PD=exp(14.25326-(2665.54/(TS-53.424)));
PS=exp(16.5958-(3643.31/(TS-33.424)));
P=(XD*PD)-(XS*PS);
LS=exp(A*(0.3^2));
LD=exp(A*(0.7^2));
fprintf('%5s%7s%7s%8s%9s%9s%8s%7s\n','T1','X2','X1','P2','P1','P','Y1','Y2');
while TS<=TD
A=2.771-(0.00523*TS);
LS=exp(A*(XD^2));
LD=exp(A*(XS^2));
PS=exp(16.5958-(3643.31/(TS-33.424)));
PD=exp(14.25326-(2665.54/(TS-53.424)));
P=(XD*PD)-(XS*PS);
Y1=(XS*PS*LS)/P;
fprintf('%6.0f%7.2f%9.2f%9.2f%9.2f%7.2f%7.2f%7.2f\n',TS,XD,XS,PD,PS,P,L
D,LS);
TS=TS+4.5;
end;
elseif YY==2
TS=60+273;
A=2.771-(0.00523*TS);
TD=105+273;
XD=0.1;
XS=1-XD;
PD=exp(14.25326-(2665.54/(TS-53.424)));
PS=exp(16.5958-(3643.31/(TS-33.424)));
P=(XD*PD)-(XS*PS);
LS=exp(A*(0.3^2));
LD=exp(A*(0.7^2));
fprintf('%5s%7s%7s%8s%9s%9s%8s%7s\n','T1','X2','X1','P2','P1','P','Y1','Y2');
while TS<=TD
A=2.771-(0.00523*TS);
LS=exp(A*(XD^2));
LD=exp(A*(XS^2));
PS=exp(16.5958-(3643.31/(TS-33.424)));
PD=exp(14.25326-(2665.54/(TS-53.424)));
P=(XD*PD)-(XS*PS);
Y1=(XS*PS*LS)/P;

fprintf('%6.0f%7.2f%7.2f%9.2f%8.2f%10.2f%7.2f%7.2f\n',TS,XD,XS,PD,PS,P,L
D,LS);
TS=TS+4.5;
end;
end
d. Hasil Run