Program Mencari Sisi Miring Segitiga Siku-siku Dengan Pascal

Assalamu'alaikum Wr Wb

Selamat datang di web sibukngoding.com. Pada kesempatan saya kali ini saya akan menyampaikan materi tentang bahasa pemrograman Pascal yang judulnya Program mencari sisimiring segitika siku-siku. Mungkin kita semua sudah tahu yang namanya segitiga. dan rumus-rumusnya. Salah satu rumus yang ada disegitiga khususnya di segitiga siku-siku adalah rumus mencari Sisi miring. 

Gambar di atas merupakan contoh segitiga siku-siku, lalu yang dinamakan sisi miring adalah huruf c (c kecil). Untuk mencari sisi miring(c), maka harus diketahui juga alas(a) dan tingginnya(b) terlebih dahulu. Untuk rumus mencari sisi miring adalah 

Kita bisa juga menuliskan rumusnya seperti dibawah ini:

Nah dari rumus diatas, kita coba aplikasikan ke dalam pemrograman Pascal. Karena yang dipakai Akar Kuadrat dan Pangkat, maka program yang kita pakai menggunakan rumus SQR dan SQRT. SQR adalah pangkat sementara SQRT adalah Akar Kuadrat. Untuk lebih jelasnya tentang materi tersebut bisa dilihat di materi saya sebelumnya disini. Dengan Begitu, rumus dipascal adalah

Ok Selanjutnya kita akan aplikasikan di program, Pertama kita buat variabel yang digunakan untuk menyimpan tinggi(b), alas(a) dan sisimiring(c). Kalian bebas untuk pemberian nama variabelnya, kalau saya tinggi=t, alas=a dan sisimiring=c. Jangan Lupa kasih tipe datanya. Untuk variabel t dan a saya menggunakan tipe data integer karena inputannya berupa angka bulat bukan desimal, sementara variabel s saya menggunakan tipe data real karena dimungkinkan hasil dari sisi miringnya adalah bilangan desimal. Secara keseluruhan source code program menghitung sisi miring segitiga siku siku adalah seperti berikut:

 PROGRAM SisiMiring;
Uses wincrt;
VAR   a, t : Integer;
    s : Real;
BEGIN
  writeln('Program Mencari Sisi Miring Segitiga Siku-Siku');
  writeln('****************************************');
  write('Masukkan Alas: '); readln(a);
  write('Masukkan Tinggi: '); readln(t);
  s:=SQRT(SQR(a)+SQR(t));
  writeln ('Sisi Miringnya  adalah ',s:10:2);
  Readln ;
END.

Jika dijalankan, maka hasilnya seperti gambar dibawah ini:

Silahkan dicek hasilnya dengan perhitungan manual. 

Mungkin itu dulu dari saya untuk postingan kali ini,semoga bermanfaat. Silahkan dicoba coba lagi , jika ada pertanyaan bisa ditanyakan lewat kolom komentar di bawah. Postingan ini saya ambil dari blog saya yang lama annur24.worpress.com. Jangan lupa tetap kunjungi web sibukngoding untuk mendapatkan materi tetorial pemrograman laiinya. Sesibuk sibuknya ngoding, jangn lupa ibadahnya.

Terimakasih atas kunjungannya, Selamat Belajar, tetap semangat dan jangan mudah menyerah.

Wassalamu'alaikum Wr Wb