Program Menghitung Luas Segitiga dengan Pascal

  Oke sudah lama sekali saya tidak menulis di blog ini , maklum banyak kegiatan di luar salah satunya tugas kuliah yang semakin menumpuk akibat sering ditunda-tunda. 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. 

Segitiga Siku siku 

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 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

Bagaimana, cukup mudah bukan dalam membuat suatu program , agar lebih masih dan lancar latihlah terus logika serta sering-seringlah mencoba membuat suatu program dengan turbo pascal atau TPW. Tapi kelemahan dari TPW ialah program yang dibuat masih berbasis tulisan/teks sehingga menurut saya terlihat kurang menarik dan atraktif, apalagi jika anda ingin membuat sebuah program untuk pembelajaran anak-anak. Saat ini sudah banyak program berbasis grafik dan yang cara pembuatannya mirip TPW ialah Lazarus. Tertarik mencobanya?