Contoh Program
Dasar Turbo Pascal
Oleh: yusrifal
Contoh Program Dasar Turbo Pascal
Ini adalah sebuah contoh program yang saya buat di waktu
luang, saya menyadari ada beberapa orang yang ketika diajari cara menggunakan
Turbo Pascal tidak cukup dengan teori saja namun juga membutuhkan contoh
program beserta kode programnya. Artikel ini saya tulis untuk membantu anda
memahami kode program Turbo Pascal yang saya buat agar anda bisa mengembangkan
kode program berdasarkan logika anda sendiri. Anda juga boleh membagikan kode
program ini pada siapapun dan membuat kesan bahwa andalah yang membuatnya, tapi
dosanya tanggung sendiri ya (hhehehehe....).
Program yang saya buat ini terdiri atas kumpulan contoh
program yang pernah saya dapatkan di mata kuliah bahasa pemrograman yang saya
gabungkan semuanya menjadi satu, program tersebut antara lain:
- Luas Persegi Panjang
- Luas Lingkaran
- Luas Segitiga
- Program Penilai Kuliah
LUAS PERSEGI PANJANG
Rumus untuk penghitung luas dan keliling persegi panjang
adalah :
Luas = panjang x lebar
Pada program ini kita diminta memasukkan ukuran luas
persegi panjang,
uses wincrt;
var luas
:INTEGER;
PJ :INTEGER;
LB :INTEGER;
begin
PJ:=6;
LB:=8;
Luas:=PJ * LB;
write ('
Luas PERSEGI PANJANG =',luas);
END.
Pada contoh diatas, saya memasukkan ukuran panjang 6 dan
ukuran lebar 8 setelah di Run maka hasilnya adalah 48.
LUAS LINGKARAN
Penghitung luas lingkaran menggunakan rumus di bawah ini
:
Luas = π x r 2
Maksud rumus diatas adalah Luas = Pi x jari-jari x
jari-jari, bagi yang masih ingat pelajaran matematika di sekolah tentunya tahu
bahwa nilai dari Pi adalah 3.14 dan pada program penghitung ini
hanya diminta menginput ukuran dari jari-jari sebuah
lingkaran.
Kode Program Luas Lingkaran:
uses wincrt;
var luas :real;
pi
:real;
jari
:real;
begin
jari:=11;
pi
:=3.14;
Luas:=pi * (jari*jari);
write (' Luas LINGKARAN =',luas:4:2);
END.
Pada contoh diatas misalnya kita memasukkan ukuran
jari-jari lingkaran 3.5 dan program menampilkan hasilnya yaitu luas
lingkarannya 38.47
LUAS SEGITIGA
Rumus untuk menghitung luas segitiga adalah sebagai
berikut:
Luas = 0.5 x alas x tinggi
Rumus diatas menjelaskan bahwa luas segitiga diketahui
setelah menghitung 0.5 dikalikan ukuran alas segitiga dikalikan ukuran tinggi
segitiga.
Kode Program Luas Segitiga:
uses wincrt;
var AL,TG,LUAS
: REAL;
begin
gotoxy(5,5); write ('MASUKKAN NILAI ALAS : ');READLN(AL);
gotoxy(5,6); write ('MASUKKAN NILAI
TINGGI : ');READLN(TG);
luas:=0.5*al*tg;
gotoxy(5,8); write ('LUAS SEGITIGA :',
luas:3:2);
end.
kemudian kita diminta masukkan nilai alas dan nilai
tinggi kemudian tekan enter dan hasilnya akan keluar secara otomatis
PROGRAM PENILAI KULIAH
Program penilai kuliah ini adalah program penghitung
nilai seorang mahasiswa ,apakah dia mendapat nilai A,B,C,D atau E dengan cara
memesukkan nilai kemudian tekan enter
dan nilainya akan keluar secara otomatis
uses wincrt;
var nilai :integer;
begin
gotoxy(5,5);
write('masukkan nilai : ');readln(nilai);
if nilai<=50
then
begin
gotoxy(5,8);
write ('E');
end
else if nilai
<=65 then
begin
gotoxy(5,8);
write ('D');
end
else if nilai
<=75 then
begin
gotoxy(5,8);
write ('C');
end
else if nilai
<=85 then
begin
gotoxy(5,8);
write ('B');
end
else if nilai
<=100 then
begin
gotoxy(5,8);
write ('A');
end
else if nilai
>=100 then
begin
gotoxy(5,8);
write ('salah');
end
end.
CATATAN :
di program ini saya membuat nilai sebagai berikut:
jika nilai <=50 maka hasilnya E
jika nilai <=65 maka hasilnya D
jika nilai <=75 maka hasilnya C
jika nilai <=85 maka hasilnya B
jika nilai <=100 maka hasilnya A
jika nilai >=100 maka hasilnya salah
nilai ini bias di ubah sesuai keinginan kalian,
CATATAN PENULIS
Nama Pembuat :
Yusrifal
Facebook : rhyfhal nakatury
Blog : http://yusrifal05.blogspot.com
Special Thanks To:
-Pak Mahdi [Guru Turbo Pascal Pertamaku di TI (S1) UNIGHA]
-Teman-teman di Indonesian Coder [“thanks buat ilmunya yg
sangat berguna....”]
Dan semua teman-teman blogger di dunia maya yang sudah
banyak membantu....
sigli,16 desember 2012
jangan lupa tinggalkan coment,,,
baik berupa kritikan cacian makian semua saya terima ,,,