Oleh Galang Otnaites
Pada kesempatan kali ini saya akan
memberikan sebuah tutorial mengenai cara membuat program pascal. Namun, saya
juga masih newbie dalam bidang ini. Jadi apa bila ada kesalahan dalam tutur
tulisan ini saya mohon maaf.
Okey, berbicara mengenai pemrograman pascal
maka tidak akan jauh dari alogaritma. Alogaritma bisa dikatakan sebagai system
pemecahan atau penyelesaian masalah. Contohnya jika kita merasa terbebani jika
harus mengitung Kubus/ Persegi, Balok, dan Bola, maka kita
akan membuat sebuah progam penghitung
Luas dan Volume Kubus/ Persegi, Balok, dan Bola. Jika kita
bisa membuat program sendiri meskipun sangat sederhana tapi itu dapat membuat
kita bangga.
Pada pembuatan program kali ini software
yang kita gunakan adalah Turbo Pascal 1.5/ TPW 1.5 . Jika laptop/ PC yang anda
gunakan tidak bisa diinstall maka anda perlu mengganti PC/ Laptop anda
mengganti 64 bit menjadi 32 bit.
Selanjutnya, adalah script Bangun Ruang Bola :
Program Penghitung_Bola;
uses wincrt;
var
l_bola, v_bola, jari, phi :real;
begin
writeln('
.::GALANG SETIANTO::. ');
writeln('------------------------------------------------');
writeln(' .::BANGUN
RUANG BOLA::. ');
writeln('------------------------------------------------');
write(' Tuliskan Jari-Jari =
');readln(jari);
writeln(' Phi ( TT ) =
22/7 ');
phi:=22/7;
l_bola:=4*phi*jari*jari;
v_bola:=(4/3)*phi*jari*jari*jari;
writeln('------------------------------------------------');
writeln(' Luas Bola =
',l_bola:4:2);
writeln(' Volume Bola =
',v_bola:4:2);
writeln('------------------------------------------------');
Script
Bangun Ruang Kubus :
Program
Penghitung_Kubus;
uses
wincrt;
var
l_sisi,
l_permukaan, K_kubus, v_kubus, rusuk :real;
begin
writeln(' .::GALANG SETIANTO::. ');
writeln('------------------------------------------------');
writeln(' .::PENGHITUNG KUBUS::. ');
writeln('------------------------------------------------');
write(' Tuliskan Rusuk Kubus =
');readln(rusuk);
l_sisi:=rusuk*rusuk;
l_permukaan:=6*rusuk*rusuk;
k_kubus:=12*rusuk;
v_kubus:=rusuk*rusuk*rusuk;
writeln('------------------------------------------------');
Writeln('
Luas Sisi Kubus = ',l_sisi:4:0);
writeln('
Luas Permukaan Kubus = ',l_permukaan:4:0);
writeln('
Keliling Kubus = ',k_kubus:4:0);
writeln('
Volume Kubus = ',v_kubus:4:0);
writeln('------------------------------------------------');
writeln('------------------------------------------------');
end.
Script
Bangun Ruang Balok :
Program
Penghitung_Balok;
uses
wincrt;
var
l_permukaan,
K_balok, v_balok, t, l, p, permukaan :real;
begin
writeln(' .::GALANG SETIANTO::. ');
writeln('------------------------------------------------');
writeln(' .::BANGUN RUANG BALOK::. ');
writeln('------------------------------------------------');
write(' Tuliskan Panjang Balok =
');readln(p);
write(' Tuliskan Tinggi Balok = ');readln(t);
write(' Tuliskan Lebar Balok = ');readln(l);
permukaan:=(p*l)+(p*t)+(l*t);
l_permukaan:=2*permukaan;
k_balok:=4*(p+l+t);
v_balok:=p*l*t;
writeln('------------------------------------------------');
writeln('
Luas Permukaan Balok = ',l_permukaan:4:0);
writeln('
Keliling Balok = ',k_balok:4:0);
writeln('
Volume Balok = ',v_balok:4:0);
writeln('------------------------------------------------');
end.
Keterangan :
l : Luas
k : Keliling
v : Volume
p : Panjang
l : Lebar
t : Tinggi
Untuk menyalinnya blok dan pencet tombol
Ctrl+C kemudian pastekan pada lembar kerja TPW 1.5 dengan memencet tombol
Ctrl+Ins/ Ctrl+Insert. Untuk menyimpannya klik Menu File => Save =>Pilih
direktori/ tempat penyimpanan =>tentukan nama disertai ”.pas” sebagai type
penyimpanan pascal.
Okey, itulah sekelumit tutorial pembuatan
program pascal, apabila ada pertanyakan silahkan berikan komentar.
Jika ingin merepost mohon sertakan sumber website ini. Trimakasih, Salam IT!!
0 Comments