LABORATORIUM TEKNIK KIMIA

FAKULTAS TEKNIK
UPN “VETERAN” JATIM

Praktikum : PROGRAM KOMPUTER Nama : Leona Roudhotul Jannah

Percobaan : Statement Perulangan Pascal NPM/Semester : 18031010007/1
Tanggal : 26 September 2018 Sesi :V
Pembimbing : Ir. Kindriani Nurma W.,MT
LAPORAN RESMI

1. Jelaskan perbedaan dari while do, for to do, dan repeat until?
2. Sebuah reaktor digunakan untuk menjalankan reaksi di
bawah ini
A => r (dengan –ra= 0,05 ca mol/liter.min)
Test Tracer Pulse Memberikan Hasil Output
T C A=t.c E=c/a K.t

0 35

a. CONST k=0,05
b. INTERVAL t= 5 (NPM GANJIL) t= 10 (NPM GENAP)
c. INTERVAL c = 10 (NPM GENAP) c=5 (NPM GANJIL)
d. HITUNG DENGAN PROGRAM PERULANGAN
SEBAGAIMANA OUTPUT DIATAS
e. HITUNG JUGA Xa (KONVERSI) JIKA DIGUNAKAN
TANGKI SERI,
DENGAN RUMUSAN :

 Waktu tinggal rata-rata=

 ti  ci  t   ti  ci
 ci  t  ci
 JUMLAH TANGKI = 1 NPM TERAKHIR (KALO 0
DIGANTI 3)

41
 cA 1
 
CAo  k .t (rata  rata) 
1   jumlah _ tan gki
 jumlah _ tan gki 
cA
  1  Xa
cA0
3. Buatlah program, algoritma, hasil run, dan flowchart perhitungan
washing sandfilter dengan ketentuan :
Npm ganjil
a. Menggunakan repeat until
b. Hari sesuai dengan npm
Npm genap
c. Menggunakan while do
d. Hari sesuai dengan npm
Rumus :
% Dari volume
Padatan yang tersaring selama (x) hari = × 𝑅𝑎𝑡𝑒 𝑉𝑜𝑙𝑢𝑚𝑒 𝐴𝑖𝑟
100

42
1. Perbedaan dari while do, for to do, dan repeat until
Jawab :
While do : aksi (atau runtunan aksi) akan dilaksanakan berulang kali selama
kondisi bernilai true. Jika kondisi bernilai false, pengulangan tidak akan
dilaksanakan, yang berarti pengulangan selesai. Pengecekan di awal blok
pernyataan.
For to do : instruksi-instruksi di dalam badan pengulangan diulangi
sejumlah yang di spesifikasikan oleh pemrogram. Perulangan dengan
pernyataan For digunakan untuk mengulang pernyataan atau satu blok
pernyataan sejumlah yang ditentukan.
Repeat until : struktur yang digunakan untuk mengulang statement sampai
kondisi tidak terpennuhi. Perulangan akan berhenti ketika kondisi bernilai
TRUE dan pengecekan dilakukan di akhir blok pernyataan.

43
2. Perhitungan Reaktor
A. ALGORITMA
1. Memulai program
2. Mendeklarasikan t, c, a, e, kt,average,jt, xa sebagai variabel dengan
tipe real, bt tipe integer, u tipe string[25]. Konstanta k=0.05, i=5
3. Masukkan t=0, c=35, A = t x c, U = infinity, Kt = k x t
4. REPEAT
5. Perhitungan t= t + interval t, c= c+ interval c, A = t x c, K= k x t
6. UNTIL

7. Perhitungan Waktu tinggal rata-rata=

 ti  ci  t   ti  ci
 ci  t  ci
8. Memasukkan jumlah tangki dengan 1 NPM terakhir
cA 1
9. Perhitungan 
CAo  k .t (rata  rata) 
1   jumlah _ tan gki
 jumlah _ tan gki 

cA
Dan perhitungan  1  Xa
cA0
10. Selesai

44
B. FLOWCHART ALGORITMA
Start

Var t, c, a, e, kt,average,jt, xa
dengan tipe real. bt tipe integer.
u tipe string[25].
Const k=0.05, i=5

t=0
c=35
A=txc
U = infinity
Kt = k x t

REPEAT

NO
t= t + interval t
c= c+ interval c
A=txc
K= k x t;

UNTIL

YES

Waktu tinggal rata-rata=

Memasukkan
jumlah tangki
dengan 1 NPM
terakhir

Hasil
output

End

45
C. LISTING PROGRAM
program reaktor;
uses crt;
var t, c, a, e, kt,average,jt, xa:real;
bt:integer;
u:string[25];
const k=0.05;
i=5;
begin
clrscr;
writeln('REAKTOR');
t:=0;
c:=35;
writeln(' t ':4,'c ':8,' a ':12,' e ':14,' kt ':16);
t:=0;
a:=t*c;
u:='infinity';
kt:=k*t;
writeln(t:4:0,c:8:2,' nol',' tak hingga',kt:12:2);
t:=0;
repeat
t:=t+i;
c:=c+i;
a:=t*c;
e:=c/a;
kt:=k*t;
writeln(t:4:0,c:8:2,a:12:2,e:14:2,kt:16:2);
until t=20;
writeln('Menghitung Konversi');
average:=(kt/5);
writeln('rata rata kt: ',average:5:2);
46
 write('Jumlah tangki yang diberikan: ');readln(jt);
xa:=1-(1/((jt*(1+(average/jt)))));
writeln('xa: ',xa:5:2);
readln;
end.
readln;
end.

47
D. HASIL RUN

48
3. Perhitungan Washing Sandfilter
A. ALGORITMA
1. Memulai program
2. Mendeklarasikan x,hari sebagai variabel tipe integer.
Volume,hasil,rvol,pvol sebagai variabel dengan tipe real
3. Masukkan rate volume, %dari volume, dan lamanya hari
4. REPEAT x=1
5. Perhitungan padatan yang tersaring selama (x) hari
% Dari volume
= × 𝑅𝑎𝑡𝑒 𝑉𝑜𝑙𝑢𝑚𝑒 𝐴𝑖𝑟
100
6. UNTIL x=7
7. Program selesai

49
 B. FLOWCHART ALGORITMA

BEGIN

Mendeklarasikan x,hari
sebagai variabel tipe
integer.
volume,hasil,rvol,pvolse
bagai variabel dengan
tipe real;

masukkan
1. rate volume
2. % dari volume
3. lamanya hari

REPEAT
x=1

NO

Padatan yang tersaring selama (x) hari =

UNTIL
x=7

End

50
C. LISTING PROGRAM
program wasing;
uses crt;
var x,hari:integer;
volume,hasil,rvol,pvol,c:real;
begin
clrscr;
write('masukkan rate volume: ');readln(rvol);
write('masukkan % dari volume: ');readln(pvol);
write('masukkan hari: ');readln(hari);
x:=1;
repeat
hasil:=pvol/100*rvol;
writeln(x,hasil:2:4);
x:=x+1;
until x=7;
writeln('Ini adalah data yang diinginkan pada', x ,'hari');
writeln('Jumlah padatan yang terambil adalah ',hasil:2:2,'meter kubik');
readln;
end.

51
D. HASIL RUN

52