Selamat Malam sudah lama sekali Mr Stolid tidak menulis di blog ini , maklum banyak kegiatan di luar salah satunya kuliah . Dan kali ini saya akan memberikan tutorial tentang cara membuat program untuk menghitung luas segitiga siku-siku dengan menggunakan bahasa pemrograman turbo pascal sehingga kita tidak perlu repot-repot lagi menghitung secara manual , cukup dengan memasukkan data dan tunggu hasilnya. Ok gak usah panjang lebar lagi kita langsung ke Tkp aja.
Langkah-langkahnya sebagai berikut :
1. Buka Turbo pascal atau Tpw , masih bingung antara pascal dengan TPW?
santai, sebenrnya keduanya merupakan sebuah software yang sama , bedanya TPW
ialah Turbo pascal yang digunakan untuk komputer yang memiliki sistem operasi
windows.
2. Masukkan kode-kode di bawah ini..
program hitungsegitiga;
uses wincrt;
var a,b,c,d,e:real;
begin
writeln('Program untuk menghitung sisi miring, keliling, dan luas segitiga siku-siku');
writeln('Masukkan data anda degan benar');
write('Sisi pertama = ');readln(a);
write('Sisi kedua = ');readln(b);
c:=sqrt(a*a+b*b); {mencari sisi miring}
d:=a+b+c; {mencari keliling}
e:=(a*b)/2; {mencari luas}
writeln('Hasilnya adalah');
writeln('Sisi miring segitiga siku-siku adalah: ',c:5:3);
writeln('Keliling segitiga siku-siku adalah: ',d:5:3);
writeln('Luas segitiga siku-siku adalah: ',e:5:3);
end.
kode diatas selain untuk mencari luas bisa juga untuk mencari elemen lain dalam sebuah sagitiga yakni sisi miring(pada baris ke..) keliling(pada baris ke...).
penjelasan- Var: adalah variabel atau bisa dibilang merupakan nilai input data yang harus dimasukkan. Nilai dari var bisa diisi dengan angka seperti real atau integer, namun jika ingin diisi dengan huruf bisa memakai string.
- a,b,c,d,e:real maksudnya ialah variabel a,b,c,d,e menggunakan bilangan real.
- c := sqrt(a*a+b*b) bisa diterjemahkan sebagai akar dari a kuadrat ditambah akar dari b kuadrat, digunakan untuk mengetahui sisi miring pada segitiga siku-siku ,namun tidak berpengaruh terhadap hasil dari luas. Setelah didapat sisi miring maka kita bisa mencari kelilingnya.
- writeln : digunakan sebagai label atau kalimat yang akan ditampilkan saat program dijalankan. Oh ya, anda bisa juga memodifikasi tulisan yang ada di writeln karena hal ini tidak berpengaruh terhadap pemrosesan data pada program
- luas := (a*b)/2 , adalah rumus dari segitiga siku-siku dengan menghitung kedua sisinya yang saling tegak lurus.
- c:5:3, d:5:3 , kedua variabel diatas bisa diisi sampai 5 digit angka di depan koma dan memiliki ketilitian sampai 3 digit di belakang koma.
3. Jalankan Program dengan cara klik Run, maka kurang lebih hasilnya seperti ini.
pada gambar diatasa saya mencoba menyelesaikan soal menentukan luasa dan keliling suatu segitiga siku-siku dengan program TPW yang telah saya buat. Disini saya memasukkan nilai
sisi pertama : 3
sisi kedua : 4
sehingga didapatkan hasil
sisi miring : 5
pada gambar memang dituliskan 5.000 , tanda titik disini disebut sebagai tanda koma sama seperti 5,000 dan memiliki ketelitian sampai dengan tiga digit di belakang koma seperti yang saya tuliskan pada kode program diatas.
keliling : 12
luas : 6
Ya sekian tutorial tentang cara membuat program untuk menghitung luas segitiga siku-siku dengan menggunakan bahasa pemrograman turbo pascal
0 Comments