Question

Buatlah contoh program menggunakan FREE PASCAL Menghitung luas sisi kerucut.

Answer 1

Verified answer

Kerucut adalah bangun ruang yang terbentuk dari limas dengan alas lingkaran. Luas sisi kerucut didapatkan dengan menjumlahkan luas alas dan luas selimut kerucut. Luas tersebut dapat dihitung dengan rumus

atau

dimana r adalah jari - jari lingkaran alas

             t adalah tinggi kerucut

             s adalah garis pelukis dimana

Pembahasan

Maka diketahui program akan menerima input jari - jari alas dan tinggi kerucut untuk menghitung luas sisi kerucut. Program dalam pascal adalah

var

L,r,t,s:real;

begin

       writeln('masukkan nilai r:');

       readln(r);

       writeln('masukkan nilai t:');

       readln(t);

       s:=sqrt(sqr(r)+sqr(t));

       L:=Pi*r*(r+s);  

       writeln('Luas kerucut dengan jari-jari : ',r:10:1,' dan tinggi ',t:10:1, ' adalah  ',L:10:3);

end.

Pertama kita mendeklarasikan variabel yang dibutuhkan yaitu

L,r,t,s:real;  

real adalah tipe data yang digunakan oleh bilangan pecahan.

Kemudian kita menerima input tinggi dan jari -jari kerucut

      writeln('masukkan nilai r:');

       readln(r);

       writeln('masukkan nilai t:');

       readln(t);

Setelah itu kita mencari nilai s baru kemudian menggunakan s untuk menghitung luas sisi kerucut

      s:=sqrt(sqr(r)+sqr(t));

      L:=Pi*r*(r+s);  

Terakhir kita tinggal mencetak nilai luas yang telah dihitung oleh program

writeln('Luas kerucut dengan jari-jari : ',r:10:1,' dan tinggi ',t:10:1, ' adalah  ',L:10:3);

L:10:3 digunakan untuk memberikan format pada tipe data real. 10 adalah jumlah digit angka yang ditampilkan sebelum koma, dan 3 adalah jumlah digit angka yang ditampilkan setelah koma

Pelajari lebih lanjut  

1. Cara menghitung luas sisi kerucut brainly.co.id/tugas/903351

2. Program sederhana penentu kelulusan menggunakan pascal brainly.co.id/tugas/18902580

Detail jawaban

Kelas:  10

Mapel:  TIK

Bab:  Mengenal Pemrograman Komputer

Kode:  10.11.06

Kata Kunci:  pascal, luas sisi, kerucut