Program Sederhana PASCAL untuk Mencari Panjang Sisi Miring Segitiga Siku-siku

Berikut ini ialah langkah-langkah menghitung panjang sisi miring segitiga siku-siku beserta luasnya.

1.    1.  Buka program pascal, dalam hal ini saya menggunakan FREE PASCAL

2.      2. Ada 3 bagian dalam membuat pascal,yaitu:

-          Bagian judul

-          Bagian deklarasi

-          Bagian isi

Jadi kita harus memberi judul pada sebuah program pascal. Tapi judul ini tidak akan berpengaruh pada proses kompilasi . caranya memberi judul yaitu ketik “program” kemudian ketik judul program apa yang kita inginkan.

Misalnya “program panjang_sisi_miring_segitiga” (penulisan judul di beri jarak menggunakan garis dibawah) kemudian ketik uses crt ; . Dalam PASCAL terdapat perintah-perintah yang dapat dikenal oleh pascal, yaitu statement. Setiap statement di akhiri dengan tanda titik koma ( ; ).

3.     3.  Kemudian kita harus menuliskan bagian deklarasi. Deklarasi dalam pascal ada berbagai macam sesuai dengan keperluan. Dalam hal ini saya menggunakan deklarasi VAR. Deklarasi ini gunanya adalah untuk menyatakan variabel yang digunakan dalam program. Variabel adalah suatu pengenal (identifier) yang nilainya dapat berubah. Kemudian kita masukan variabel-variabel , setelah itu kita masukan tipe variabel tersebut. Tipe-tipe pada pascal ada berbagai macam. Dalam hal ini saya menggunakan tipe real, karena berhubungan dengan angka. Jumlah variabel yang akan saya masukkan ada 4, yaitu a (panjang alas), b (panjang tinggi), c (panjang sisi miring), dan d (luas segitiga).

Ketik :

Var a,b,c,d : real ;

4.      4. Setelah itu kita menuliskan bagian isi. Di bagian inilah isi dari program yang akan kita buat. Bagian isi ini selalu di awali oleh begin; dan diakhiri oleh end. Berikut ini adalah langkah-langkah yang telah saya buat di bagian isi.

-          Setelah menulis begin (tanpa titik koma)

ketik clrscr ; (fungsi clrscr adalah untuk membersihkan layar setelah di RUN)

-          Ketik :

Writeln (‘Menghitung panjang sisi miring menggunakan rumus Phytagoras’);

(untuk menampulkan kata di dalam kurung setelah di RUN)

-          Ketik :

Writeln ;

(untuk memberi spasi 1 baris setelah di RUN)

-          Ketik :

Write (‘jika panjang alas (m) = ‘);

Readln (a) ;

( setelah di RUN, kata dalam kurung akan muncul dan kita nantinya akan memasukkan nilai a (panjang alas) , (m) maksud nya dalam meter )

-          Ketik :

Write (‘dan jika panjang tinggi  (m) = ‘) ;

Readln (b) ;

(sama seperti di atas cuma kali ini kita memasukkan nilai b (panjang tinggi segitiga) dalam meter).

-          Ketik :

C : = sqrt(sqr(a)+sqr(b)) ;

Write (‘maka panjang sisi miring adalah (m) = ‘ ,c:2:2);

Readln;

( C merupakan nilai dari hasil rumus phytagoras segitiga siku-siku. Dimana rumus mencari panjang sisi miring segitiga siku-siku adalah akar dari nilai kuadrat alas + nilai kuadrat tinggi , pada pascal sqrt = akar dan sqr = kuadrat.  Hasil C tersebut akan muncul setelah kita memasukan nilai alas dan tinggi. Maksud dari c:2:2 adalah ada 2 angka setelah koma pada hasil c  ).

-          Ketik :

d : = ½*(a)*(b) ;

Write (‘dan luas segitiga siku-siku adalah (m²) = ‘);

Readln;

( d merupakan rumus luas segitiga dimana rumusnya ialah ½ * alas * tinggi . dan hasilnya dalam bentuk m²).

-          Ketik :

End.

-          Pilih menu run , kemudian run atau tekan ctrl+F9 pada keyboard

Maka akan muncul

-          Masukkan panjang alas (contoh= 3) kemudian enter.

-          Masukkan panjang tinggi (contoh= 4) kemudian enter.

-          Diperoleh panjang sisi miring = 5,00 (5)

-          Kemudian enter . maka akan diperoleh luas segitiga siku-siku sebesar = 6.00 (6).

-          Selesai.

Demikian tutorial sederhana buatan saya, semoga bermanfaat. Terimakasih.

NAMA             : SUKRAN

NIM                 : J1F113003

PRODI             : ILMU KOMPUTER

FAKULTAS     : MIPA

UNIVERSITAS: LAMBUNG MANGKURAT BANJARBARU

-