Contoh Program Pascal

Program Menghitung Sisi miring Segitiga Siku-siku Pada Pascal

Assalamu’alaikum, Selamat datang di web matericoding.com. Pada kesempatan ini akan dijelaskan contoh program pascal yaitu program menghitung sisi miring segitiga siku-siku pada pascal. Untuk contoh program pascal lain bisa dilihat disini. Untuk langkah langkahnya sebagai berikut.

Mengetahui Rumus Menhitung Sisi Miring Segitiga Siku-siku

Sebelum masuk ke program, kita harus tahu dulu rumus menghitung sisi miring segitiga siku-siku. untuk rumusnya, kita menggunakan persamaan berikut:

dimana a adalah sisimiring, b adalah alas dan c adalah tinggi. jadi untuk rumus mengitung sisi miringnya bisa ditulis berikut:

Rumus sisi mirng

Menentukan Variabel dan Tipe Tata yang Akan Digunakan

Setelah mengetahui rumus menghitung sisi miring segitiga siku-siku, saatnya kita menentukan variabel dan tipe datanya. variabel ini nanti yang kan kita masukkan di rumus dalam program. Untuk nama variable bebas, yang penting jangan pakai spasi. Untuk lebih lengkapnya sebagai berikut.

NoNama VariabelTipe DataKeterangan
1smRealUntuk menyimpan data sisi miring
2aIntegerUntuk menyimpan data Alas
3tIntegerUntuk menyimpan data Tinggi

Jika kita aplikasikan ke rumus sperti berikut:

rumus program menghitung sisi miring segitiga siku-siku pada pascal

dalam bahasa pascal tidak ada simbol akar, maka kita tuliskan di linsting program dengan menggunakan fungsi sqrt untuk akar dan sqr untuk kuadrat. jadi di linsting program, penulisan rumusnya adalah sm=sqrt(sqr(a)+sqr(b)).

Source Code Program Menghitung Sisi miring Segitiga Siku-siku Pada Pascal.

Berikut ini adalah source code Program Menghitung Sisi miring Segitiga Siku-siku . Untuk compilernya saya menggunakan dev pascal.

PROGRAM SisiMiring;{matericoding.com}
Uses wincrt;
{nama variabel dan type data}
VAR   a, t : Integer;
      sm : Real;
BEGIN
  writeln ('Program Mencari Sisi Miring 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}
  writeln ('Sisi Miringnya  adalah :',sm:2:2);  {Menampilkan Hasil}
Readkey
END.

Jika dijalankan sebagai berikut:

hasil program menghitung sisi miring segitiga siku-siku pada pascal

Untuk fungsi sm: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 programMenghitung Sisi miring Segitiga Siku-siku Pada Pascal. jika ada pertanyaan bisa ditanyakan lewat kolom komentar.

Sekian dan Terima Kasih

Wassalamu’alaikum Wr Wb.

Salam Matericoding.

(sumber)

Add Comment

Leave a Comment