Contoh Program Pascal

Program Menghitung Luas dan Keliling Segitiga Siku-Siku pada pascal

Assalamu’alaikum, Selamat datang di web Matericoding.com. Pada kesempatan kali ini akan dijelaskan contoh program menghitung luas dan keliling segitiga siku-siku pada pascal. Untuk langkah-langkahnya sebagai berikut:

Mengetahui Rumus Menghitung Luas dan Keliling Segitiga Siku-siku.

Sebelum masuk ke programnya, alangkah baikya kita tahu dulu rumus menghitung luas dan keliling segitiga siku-siku. Untuk Rumus luas adalah (alas x tinggi) /2 sedangkan rumus keliling adalah alas + tinggi + sisimiring . Untuk Rumus luas segitiga berlaku semua segitiga. sedangkan untuk keliling hanya untuk segitiga siku siku saja. untuk penjelasan lebih lanjut silahkan dipelajari matematikanya. hehehe.

segitiga siku-siku

Menentukan variabel dan tipe data yang akan digunakan

Setelah kita tau rumus luas dan keliling segitiga siku-siku, kita buat nama variabel dan tipe datanya. Untuk penamaan bebas, tapi saran saya sesuaikan dengan rumus. Klu mau disingkatpun juga tidak masalah. Untuk program yang saya buat, Nama Variabel dan tipe datanya sebagai berikut

NoNama VariabelTipe DataKeterangan
1LuasRealUntuk menyimpan data Luas
2KelilingRealUntuk menyimpan data Keliling
3aIntegerUntuk menyimpan data alas
4tintegerUntuk menyimpan data tinggi
5smrealuntuk menyimpan data sisi miring

Untuk program yang dibuat nanti, rencananya kita inputkan alas dan tingginya. Setelah dienter maka akan muncul luas dan keliling. Karena kita hanya menginputkan alas dan tinggi, untuk mencari keliling segitiga siku-sikunya kita cari dulu sisi miringnya. Mencari sisi miring bisa dilihat di contoh program sebelumnya disini.

Secara garis besar, rumus di program sebagai berikut:

sm:=SQRT(SQR(a)+SQR(t))

Luas: =( a*t )/2

Keliling:= a+t+sm

Source Code Program Menghitung Luas dan Keliling Segitiga Siku-Siku pada pascal

Berikut ini adalah source code program menghitung luas dan keliling segitiga siku – siku pada Bahasa pascal. Untuk compilernya saya menggunakan dev pascal.

PROGRAM Segitiga;{matericoding.com}
Uses wincrt;
{nama variabel dan type data}
VAR   a, t : Integer;
      Luas, Keliling, sm : Real;
BEGIN
  writeln ('Program Mencari Luas Dan Keliling Segitiga Siku-Siku');
  writeln ('****************************************************');
  write   ('Masukkan Alas: '); readln(a); {membaca inputan a}
  write   ('Masukkan Tinggi: '); readln(t);  {membaca inputan t}
  sm:=SQRT(SQR(a)+SQR(t)); {Rumus Sisi Miring}
  Luas:=(a*t)/2; {Rumus Luas Segitiga}
  Keliling :=a+t+sm; {Rumus Keliling Segitiga siku siku}
  writeln ('Sisi Miringnya  adalah :',sm:2:2);  {Menampilkan Hasil sisi miring}
  writeln ('Kelilingnya  adalah    :',Keliling:2:2);  {Menampilkan Hasil Keliling}
  writeln ('Luasnya  adalah        :',Luas:2:2);  {Menampilkan Hasil Luas}
Readkey
END.

Jika dijalankan Hasilnya sebagai berikut:

Untuk fungsi Luas:2:2 adalah memberi spasi dan membatasi jumlah angka dibelakang koma. Jika ingin menambah jumlah angka dibelakang koma bisa mengganti angka 2 yang paling belakang.

Demikian contoh program menghitung luas dan keliling Segitiga siku-siku. jika ada pertanyaan bisa ditanyakan lewat kolom komentar.

Sekian dan Terimakasih

Wassalamu’alaikum Wr Wb

Salam Matericoding

(sumber)

1 Comment

Leave a Comment