Contoh Program Pascal

Program Menghitung Luas dan Keliling Segitiga Sama Kaki pada pascal

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

Mengetahui Rumus Luas dan Keliling Segitiga Sama Kaki

Pada tutorial sebelumnya telah dijelaskan program menghitung luas dan keliling segitiga siku-siku. Pada dasarnya rumus menghitung luas dan keliling segitigia sama kaki sama dengan rumus menghitung luas dan keliling segitiga siku siku. Perbedaanya pada saat mencari sisi-sisi yang digunakan untuk menghitung keliling segitiga. Pada segitiga siku siku untuk menghitung keliling adalah sisi 1 +sisi 2 + sisi 3 dimana sisi 1 kita bisa ambil nilai alas, sisi 2 kita bisa ambil nilai tinggi sedangkan sisi 3 kita bisa ambil nilai sisi miring(Keliling = alas + tinggi + sisi miring). Segitiga sama kaki memiliki 2 sisi miring yang sama sehingga untuk menghitung keliling segitiga sama kaki, kita harus mencari dulu nilai kedua sisi miringnya sementara sisi 1 bisa memakai nilai alas (Keliling = alas+sisi miring 1 +sisi miring 2). Untuk lebih jelas kita bisa lihat segitiga sama kaki berikut.

Segitiga sama kaki

Jadi untuk rumus Luas = (a * t)/2 dan Keliling = a+s1+s2. Untuk mencari s1 atau S2 adalah

Rumus sisi miringnya

Menentukan variabel dan tipe data yang akan digunakan

Setelah kita tau rumus luas dan keliling segitiga sama sisi, 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

Nilai sisi miring kedua kaki sama maka kita cukup buat satu variabel saja.

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 sama kaki kita cari dulu sisi miringnya.

Secara garis besar, rumus di program sebagai berikut:

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

Luas: =( a*t )/2

Keliling:= a+sm+sm

Source Code Program Menghitung Luas dan Keliling Segitiga Sama Kaki pada pascal

Berikut ini adalah source code program menghitung luas dan keliling segitiga sama kaki 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 Sama Kaki');
  writeln ('****************************************************');
  write   ('Masukkan Alas: '); readln(a); {membaca inputan a}
  write   ('Masukkan Tinggi: '); readln(t);  {membaca inputan t}
  sm:=SQRT(SQR(a/2)+SQR(t)); {Rumus Sisi Miring}
  Luas:=(a*t)/2; {Rumus Luas Segitiga}
  Keliling :=a+sm+sm; {Rumus Keliling Segitiga sama kaki}
  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:

Hasil Run menghitung luas dan keliling segitiga sama kaki

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 sama kaki. jika ada pertanyaan bisa ditanyakan lewat kolom komentar.

Sekian dan Terimakasih

Wassalamu’alaikum Wr Wb

Salam Matericoding

(sumber)

1 Comment

Leave a Comment