Program Komputer merupakan suatu perangkat lunak bahasa pemrograman yang digunakan untuk menterjemahkan perintah-perintah yang ditulis dalam bahasa pemrograman ke dalam bahasa mesin, sehingga dapat diterima dan dimengerti oleh komputer.Program Komputer ini digunakan dalam beberapa bidang profesi salah satunya digunakan oleh insinyur Teknik Kimia Untuk pemudahkan pekerjaan. berikut saya ingin berbagi program penerapan menggunakan program Pascal:
program perhitungan_Koligatif_larutanprogram perhitungan_Koligatif_larutan;
uses wincrt;
var
gram,Mr,Gram_larutan,molal,kb,dtb1,dtb,i:real;
mutzz:integer;
ulang:char;
pilih:byte;
const
T=1000;
begin
clrscr;
writeln('============================================');
writeln('|| MENU KENAIKAN TITIK DIDIH ||');
writeln('|| ||');
writeln('|| 1. Molalitas ||');
writeln('|| 2. Kenaikan titik didih Non Elektrolit ||');
writeln('|| 3. Kenaikan titik didih Elektrolit ||');
writeln('|| 4. Keluar ||');
writeln('============================================');
writeln;
write('Masukan pilihan [1-4] :');readln(mutzz);
case mutzz of
1 : begin
repeat
clrscr;
writeln (' Menghitung Molalitas : ');
writeln('============================================');
writeln;
write('Masukan massa zat(m)=gr: ');readln(gram);
write('Masukan Mr = ');readln(Mr);
write('Masukan Gram larutan=gr: ');readln(Gram_larutan);
molal:=(gram/Mr)*(T/Gram_larutan);
writeln('============================================');
writeln('Jadi molal(m)= ',molal:5:2);
writeln;
write('Apakah Mau Tambah Lagi Perhitungan???? Y/T : ');readln(ulang);
until upcase (ulang) <> 'Y';
end;
2 : begin
repeat
clrscr;
writeln (' Kenaikan Titik didih Non Elektrolit : ');
writeln('============================================');
writeln;
write('Masukan molal(m) = ');readln(molal);
write('Masukan Tetapan Kenaikan Tb(Kb)=C/m: ');readln(kb);
dtb1:=molal*kb;
writeln('============================================');
writeln('Jadi Kenaikan titik didih(/\tb)=C: ',dtb1:5:2);
writeln;
write('Apakah Mau Tambah Lagi Perhitungan???? Y/T : ');readln(ulang);
until upcase (ulang) <> 'Y';
end;
3 : begin
repeat
clrscr;
writeln (' Menghitung Kenaikan Titik Didih Elekrolit : ');
writeln('============================================');
writeln;
write('Masukan molal(m) = ');readln(molal);
write('Masukan tetapan kenaikan tb(kb)=C/m: ');readln(kb);
write('Masukan jumlah Ion (i) = ');readln(i);
dtb:=molal*kb*i;
writeln('============================================');
writeln('Jadi Kenaikan Titik Didih Elektrolit /\tb= C: ',dtb:5:2);
writeln;
write('Apakah Mau Tambah Lagi Perhitungan???? Y/T : ');readln(ulang);
until upcase (ulang) <> 'Y';
end;
4 :begin
donewincrt;
end;
end;
end.
Program Perhitungan Thermokimia
program Perhitungan Thermokimia;
uses wincrt;
var
p,V1,V2,X,A2,e,e1,I,W1,W2,Q,W,Z1,Z2,H,R:real;
kode:char;
begin
writeln('PROGRAM
PERHITUNGAN THERMOKIMIA');
writeln;
writeln('PERUBAHAN
ENERGI DALAM');
writeln('1.usaha (W)');
writeln('2.perubahan
energi dalam (Delta E)');
writeln('3.perubahan
entalpi (Delta H)');
writeln('masukkan kode
angka :');readln(kode);
case kode of
'1':begin
write('masukkan
P:');readln(P);
write('masukkan V1
awal:');readln(V1);
write('masukkan V1
akhir:');readln(V2);
write('masukkan
interval:');readln(I);
writeln(' p
v1 v2 W');
P:=1;
repeat
e:=V2-V1;
W:=p*e;
writeln(p:6:0,v1:10:2,v2:10:2,w:10:2);
v1:=v1+I;
P:=P+1;
until P=10
end;
'2':begin
write('masukkan Q
:');readln(Q);
write('masukkan W awal
:');readln(W1);
write('masukkan W akhir
:');readln(W2);
write('masukkan
interval :');readln(I);
writeln(' Q
W1 W2 E');
Q:=1;
repeat
W:=W2-W1;
E:=Q+W;
writeln(Q:6:0,W1:10:0,W2:10:2,E:10:2);
W1:=W1+I;
Q:=Q+1;
until Q=10
end;
'3':begin
write('masukkan E awal
:');readln(Z1);
write('masukkan E
akhir:');readln(Z2);
write('masukkan W awal
:');readln(W);
;write('masukkan
interval :');readln(I);
writeln(' E1
E2 W H');
W:=1;
repeat
R:=Z2-Z1;
H:=R+W;
writeln(Z1:10:0,Z2:10:0,W:10:0,H:10:2);
Z1:=Z1+I;
W:=W+1;
until W=10
end;
end;
end.
Program Perhitungan Campuran Zat
Program Perhitungan_Campuran_Zat;
Uses Wincrt;
Var
C:char;
Volume_a,volume_b,volume_akhir:real;
ulangan,VA,VK,VB,I:integer;
begin
clrscr;
Begin
Writeln('Macam-macam Zat:');
writeln('1 NaOH');
writeln('2 Nacl');
writeln('3 H2O');
writeln('4 CH3COOH');
writeln('5 HCL');
writeln('Pilihan Campuran');
Writeln('a= 1 dan 2');
writeln('b= 2 dan 3');
writeln('c= 3 dan 4');
writeln('d= 4 dan 5');
writeln('Pilihlah Campuran campuran yang akan di campur:');readln(C);
case C of
'a':
begin
writeln('1 dan 2');
write('Masukkan Volume A:');readln(VA);
write('Masukkan Volume B:');readln(VB);
write('Masukkan Interval:');readln(I);
end;
'b':
begin
writeln('2 dan 3');
write('Masukkan Volume A:');readln(VA);
write('Masukkan Volume B:');readln(VB);
write('Masukkan Interval:');readln(I);
end;
'c':
begin
writeln('3 dan 4');
write('Masukkan Volume A:');readln(VA);
write('Masukkan Volume B:');readln(VB);
write('Masukkan Interval:');readln(I);
end;
'd':
begin
writeln('4 dan 5');
write('Masukkan Volume A:');readln(VA);
write('Masukkan Volume B:');readln(VB);
write('Masukkan Interval:');readln(I);
end;
end;
Writeln('Volume A Volume B Volume Akhir');
repeat
volume_akhir:=VA+VB;
write(VA);
write(' ',VB);
writeln(' ',volume_akhir:5:2);
VA:=VA+I;
VB:=VB+I;
until volume_akhir>=50
end;
end.
program konversi satuan kecepatan
program konversi_satuan_kecepatan;
uses wincrt;
var mps,kmph,knot,milph, mps_awal,kmph_awal,knot_awal,milph_awal:real;
mps_akhir,kmph_akhir,knot_akhir,milph_akhir,ulang:integer;
kecepatan,ya:char;
const k1=3.6 {kmph};
k2=1.94384449 {knot};
k3=2.23693629 {milph};
label awal,akhir;
begin
writeln('| DAFTAR KONVERSI SATUAN KECEPATAN |');
writeln(' ==================================== ');
writeln;
writeln('-1- m/s ke km/j');
writeln('-2- m/s ke knot');
writeln('-3- m/s ke mil/j');
awal:
writeln;
write('Pilih nomor konversi (1/2/3) = ');readln(kecepatan);
mps_awal:=1;
kmph_awal:=1;
knot_awal:=1;
milph_awal:=1;
case kecepatan of
'1':begin
write('Masukkan batas m/s akhir = ');readln(kmph_akhir);
writeln('m/s ke km/j :');
for ulang:=1 to kmph_akhir do
begin
kmph:=k1*mps_awal;
writeln(mps_awal:1:0, kmph:10:3);
mps_awal:=mps_awal+1;
end;
end;
'2':begin
write('Masukkan batas m/s akhir = ');readln(knot_akhir);
writeln('m/s ke knot');
for ulang:=1 to knot_akhir do
begin
knot:=k2*mps_awal;
writeln(mps_awal:1:0, knot:10:3);
mps_awal:=mps_awal+1;
end;
end;
'3':begin
write('Masukkan batas m/s akhir = ');readln(milph_akhir);
writeln('m/s ke mil/j');
for ulang:=1 to milph_akhir do
begin
milph:=k3*mps_awal;
writeln(mps_awal:1:0, milph:10:3);
mps_awal:=mps_awal+1;
end;
end;
else
begin
writeln('Maaf, nomor konversi tidak terdaftar.');
write('Masukkan nomor konversi lagi (y/n) ? ');readln(ya);
if ya='y' then goto awal
else goto akhir;
akhir:
end;
end;
end.
1 Comments
Blog e gak update ngene
BalasHapus