LABORATORIUM TEKNIK KIMIA
FAKULTAS TEKNIK
UPN “VETERAN” JAWA TIMUR Nama : CINDY SASKIA D.
NPM/Semester : 19031010029/1
Praktikum : PEMROGAMAN KOMPUTER Sesi : VI
Percobaan : LOOPING STATEMENT DALAM Paralel :A
PASCAL
Tanggal : 02 OKTOBER 2019
Pembimbing : LILIK SUPRIANTI, ST,[Link]
LAPORAN RESMI
SOAL :
1. Jelaskan secara detail tentang statement perulangan!
2. Buat program serta Flowchart dan hasil runnya untuk menyelesaikan
permasalahan dibawah ini :
Sebuah fluida mengalir pada sebuah pipa dengan luas penampang 0,06 ft2
A(ft v (ft/s) ∆P/ρ = ∆Ek = ft ∆Ep = ft ∑hf (ft (-) Wf(ft Hp
2
) ft lbf/lbm lbf/lbm lbf/lbm) lbf/lbm
lbf/lbm
dengan menghasilkan output dibawah ini
Ketentuan:
• ∆P=0+interval
ρ= Densitas Hidrogen Peroksida untuk NPM Ganjil, Asam Phospat
Untuk NPM Genap
• ∆Ek = npm*100/2000+Interval
• ∆Ep = 0,15+interval*2
• v = (∆Ek/(2*gc*α))^0,5
∆P g ∆V2
• -Wf = + ∆Z + + Σhf
ρ gc 2 α gc
• Σhf = (∆Ep+∆Ek+∆P/ρ)/10
• 𝑚=𝑣𝑥𝐴𝑥𝜌
65
• 𝑃𝑜𝑤𝑒𝑟 𝑃𝑜𝑚𝑝𝑎 = −𝑊𝑓 𝑥 𝑚
𝑃𝑜𝑤𝑒𝑟 𝑃𝑜𝑚𝑝𝑎 𝑟𝑎𝑡𝑎−𝑟𝑎𝑡𝑎
• Hp= 550
• Interval=0,25 untuk NPM ganjil ,Interval=0,35 untuk NPM genap
• Diulang hingga nilai interval ∆Ep > 4 dengan While Do (NPM
Ganjil) dan Repeat Until (NPM genap)
3. Buatlah sebuah program,flowchart dan screenshot hasilnya, yang meliputi
statetment input,output,Pemilihan kondisi dan satetment perulangan dalam
sebuah program! (Setiap praktikan berbeda)
66
JAWABAN :
1. Perulangan adalah sebuah perintah yang menjalankan suatu perintah tertentu
berulang-ulang sampai suatu kondisi terpenuhi. Perulangan terbagi menjadi tiga
bagian yakni for-do, repeat, dan while-do.
a. Perulangan For do
Looping for-do digunakan untuk mengulang statement sejumlah yang
ditentukan. Jumlah perulangan diketahui atau dapat ditentukan sebelum
eksekusi. Perulangan dibagi menjadi 2 yaitu, perulangan positif dan
perulangan negatif.
• Perulangan Positif (For-to-do)
Perulangan positif adalah perulangan dengan penghitung dari kecil ke
besar atau pertambahan positif.
Bentuk umum :
For variable:= start index (to) end index (do)
Begin
Statement
End;
Contoh program :
program for_a;
var awal, akhir:integer;
begin
writeln(' masukkan jumlah perhitungan : ');readln(akhir);
for awal:=1 to akhir do
begin
writeln(' Urutan ke - ',awal);
end;
readln;
end.
67
Hasil eksekusi :
• Perulangan Negatif (For-downto-do)
Perulangan negative adalah perulangan yang perhitungannya dari besar
ke kecil.
Contoh program :
Uses Crt;
Var
i : Integer;
Begin
For i := 10 DownTo 1 Do Write (i:3);
End.
68
b. Perulangan While-do
While-do digunakan untuk melakukan perulangan yang belum diketahui
jumlahnya. While-do melakukan pengujian syarat pada awal proses
berulang. Pengujian awal digunakan untuk agar program dapat
menyeleksi kondisi, sehingga program dapat menentukan tindakan apa
yang harus dikerjakan, tergantung dari kondisi yang diseleksi tersebut.
Statement While-do tidak akan dijalankan jika kondisi tidak terpenuhi.
Dengan kata lain, While-do mengulang pernyataan selama kondisi masih
terpenuhi.
Contoh program :
var
i, j: Integer;
M: Char;
begin
Write('Masukkan sembarang karakter : ');Readln(M);
i := 1;
while i <= 10 do
begin
j := 1;
while j <= i do
begin
Write(M);
Inc(j);
end;
Writeln;
Inc(i);
end;
Readln;
end.
69
Hasil eksekusi:
c. Perulangan Repeat Until
Statement ini digunakan untuk menangani perulangan yang jumlahnya
belum diketahui. Repeat until digunakan untuk mengulang statement
sampai kondisi terprnuhi. Seleksi kondisi pada Repeat-until berada di akhir
proses, sehingga statement diproses paling sedikit satu kali.
Contoh program :
program repeat_a;
uses crt;
var i,j:integer;
begin
i:=1;
writeln(' masukkan jumlah pengulangan : ');readln(j);
repeat
writeln(' urutan yang ke- ',i);
i:=i+1;
until (i=j);
readln;
end.
70
Hasil eksekusi:
71
2.
a. Algoritma
• Memulai
• Mendeklarasi konstanta
a. g= 32
b. gc=32,174
c. alfa=1
d. p=90,5204
e. npm=29
• Input Data Perhitungan
• Mencetak perulangan hingga delta Ep<=4
• Proses Perhitungan
• Menampilkan hasil perhitungan
• Melakukan perulangan hingga delta Ep<=4
• Selesai
72
b. Flowchart
MULAI
ΔEP=0.25
Input Data
Perhitungan
TIDAK
ΔEP<=4
YA
Proses Perhitungan
YA
Aa
Menampilkan
Hasil
Perhitungan
SELESAI
73
c. Screenshoot
74
75
d. Script
program Fluida_Pada_Pipa_Hidrogen_Peroksida;
uses crt;
var
A,i,V,dP,dP_per_p,dEk,dEp,hf,Wf,m,Power_pompa,Hp:real;
const
g=32;
gc=32.174;
alfa=1;
p=90.5204;
npm=29;
begin
clrscr;
Writeln('Diketahui:');
Writeln('Sebuah fluida mengalir pada sebuah pipa dengan luas
penampang 0,06 ft^2');
A:=0.06;
writeln('Luas Penampang= ',A:3:2);
i:=0.25;
writeln('Interval= ',i:3:2);
dP:=0;
writeln('delta p= ',dP:3:2);
dEk:=npm*100/2000;
writeln('delta Ek= ',dEk:3:2);
dEp:=0.15;
writeln('delta Ep= ',dEp:3:2);
writeln(' A dP_per_p dEk dEp V hf (-)Wf
Hp');
76
while dEp<=4 do
begin
A:=A*1;
dP:=dP+i;
dP_per_p:=dP/p;
dEk:=dEk+i;
dEp:=dEp+i*2;
V:=exp((0.5)*(dEk/(2*gc*alfa)));
hf:=(dEk+dEp+dP_per_p)/10;
Wf:=dP_per_p+dEp+dEk+hf;
m:=V*A*p;
Power_pompa:=Wf*m;
Hp:=Power_pompa/550;
writeln(A:0:2,dP_per_p:10:2,dEk:10:2,dEp:10:2,V:10:2,hf:10:2,Wf:10:2,
Hp:10:2);
end;
readln;
end.
77
3.
a. Algoritma
• Memulai
• Menampilkan pilihan konversi :
1. Konversi satuan panjang
2. Konversi satuan luas
• Memilih pilihan konversi
• Jika memilih :
1. Konversi satuan panjang maka,
o Memasukkan panjang
o Mencetak perulangan hingga p>=50
o Proses perhitungan
o Menampilkan hasil perhitungan Konversi panjang
2. Konversi satuan luas maka,
o Memasukkan luas
o Mencetak perulangan hingga l>=50
o Proses perhitungan
o Menampilkan hasil perhitungan Konversi luas
• Selesai
78
b. Flowchart
MULAI
Masukkan
Pilihan
Konversi
Konversi Ya
Masukkan
Satuan
panjang (p)
Panjang
Ya
i=1
Ya
Repeat
Ya
Input Rumus
Konversi
Panjang
Tidak Ya
Proses
Perhitungan
Ya
Menampilkan
Hasil Perhitungan
Konversi Panjang
Ya
Until
P>=50
Ya Tidak
a b
79
a b
Ya
Konversi Masukkan
Satuan Luas luas (l)
Ya
i=1
Ya
Repeat
Ya
Tidak Input Rumus
Konversi
Luas
Ya
Proses
Perhitungan
Konversi Luas
Ya
Menampilkan
Hasil
Perhitungan
Konversi Luas
Ya
Until
P>=50
Ya Tidak
SELESAI
80
c. Screenshoot
81
82
d. Script
program Konversi_Satuan_Panjang_dan_Luas;
uses crt;
const
interval=1;
var
km,hm,dam,m,dm,cm,mm,p,km2,hm2,dam2,m2,dm2,cm2,mm2,l:real;
pil:integer;
begin
clrscr;
writeln('Pilihan Konversi');
writeln('1. Konversi Panjang');
writeln('2. Konversi Luas');
writeln('Masukkan Pilihan Anda= ');readln(pil);
case pil of
1:begin
write('Masukkan panjang dalam kilometer(km)= ');readln(p);
writeln('Panjang',p:10:2);
writeln('km hm dam m dm cm mm');
repeat
km:=p*1;
hm:=p*10;
dam:=p*100;
m:=p*1000;
dm:=p*10000;
cm:=p*100000;
mm:=p*1000000;
writeln(km:0:0,hm:8:0,dam:10:0,m:12:0,dm:14:0,cm:15:0,mm:15:0);
83
p:=p+1;
until p>=50;
readln;
end;
2:begin
write('Masukkan luas dalam kilometer persegi(km^2)= ');readln(l);
writeln('Luas',l:10:2);
writeln('km2 hm2 dam2 m2 dm2 cm2
mm2');
repeat
km2:=l*1;
hm2:=l*100;
dam2:=l*10000;
m2:=l*1000000;
dm2:=l*100000000;
cm2:=l*10000000000;
mm2:=l*1000000000000;
writeln(km2:0:0,hm2:8:0,dam2:10:0,m2:12:0,dm2:14:0,cm2:15:0,mm2:15
:0);
l:=l+1;
until l>=50;
readln;
end;
end;
readln;
end.
84