LUAS DAN KELILING BANGUN RUANG

LUAS DAN KELILING BANGUN RUANG

 Pada Program ini saya akan membahas tentang LUAS dan KELILING BANGUN RUANG yang meliputi Bangun ruang lingkaran, segitiga siku-siku, Persegi Panjang, Kerucut berikut LUAS PERMUKAAN dan VOLUME Balok, Kubus dan BOLA. Berikut codingnya :

program case_of_kondisional;

uses wincrt;

const phi=22/7;

var a,b: integer;hasil:longint;

hasil2:real;

pil:1..8;

label lagi;

begin

lagi:clrscr;

writeln(' rumus bangunan dan ruang ');

writeln('1. luas dan keliling ligkaran ');

writeln('2. luas dan keliling segitiga siku-siku ');

writeln('3. luas dan keliling persegi panjang ');

writeln('4. luas kerucut ');

writeln('5. luas permukaan dan volum tabung ');

writeln('6. luas permukaan dan volum kubus ');

writeln('7. luas permukaan dan volume bola ');

writeln('8. selesai');

write('pilih  <1-8>');readln(pil);

case pil of

1:begin

       write('masukan jari-jari lingkaran: ');readln(a);

       hasil2:=phi*sqr(a);

       writeln('luas lingkaran dengan jejari ',a,' adalah ' ,hasil2:5:3, 'cm2')

       ;hasil2:=2*phi*a;

       writeln('keliling adalah',hasil2:5:3, ' cm');end;

2:begin

       write('masukan alas segitiga siku-siku: ');readln(a);

       write('masukan tinggi segitiga siku-siku:');readln(b);

       hasil2:=1/2*a*b;

       writeln('luas segitiga siku-siku ',a,' dan ',b,' adalah ', hasil2,' cm2');

       hasil2:=sqrt(sqr(a)+sqr(b));

       hasil2:=hasil2+a+b;

       writeln('keliling segitiga siku-siku ',a,' dan ',b,' adalah ',hasil2:5:3,' cm');

       end;

3:begin

       write('masukan panjang dari persegi panjang: ');readln(a);

       write('masukan lebar dari persegi panjang: ');readln(b);

       hasil:=a*b;

       write('luas persegi panjang ',a,' dan ',b,' adalah ',hasil,'cm ');

       hasil:=2*(a+b);

       write('keliling persegi panjang ',a,' dan ',b,' adalah ',hasil,'cm');

       end;

4:begin

       write('masukan jari-jari dari kerucut');readln(a);

       write('masukan tinggi dari kerucut');readln(b);

       hasil2:=1/3*phi*sqr(a)*b;

       writeln('luas kerucut ',a,' dan ',b,' adalah ',hasil,'cm');

       end;

5:begin

          write('masukan jari-jari dari tabung ');readln(a);

          write('masukan tinggi dari tabung ');readln(b);

          hasil2:=(phi*a*a)*b;

          writeln('volume dari tabung berjari-jari ',a,' dan tinggi ',b,' adalah : ',hasil2:5:3 ,' cm');

          hasil2:=(2*phi*a*a)+(phi*(2*a)*b);

          writeln('luas permukaan tabung dengan jari-jari ',a,' dan tinggi ',b,' adalah : ',hasil2:5:3,' cm');

        end;

6:BEGIN

                write( 'masukan sisi kubus ');readln(a);

          hasil2:=a*a*a;

          write(' volume kubus dari sisi ',a,' adalah ',hasil2:5:3, 'cm');

          hasil2:=6*a*a;

          write(' luas permukaan kubus dari sisi ',a,' dadalah ',hasil2:5:3, 'cm');

        end;

7:BEGIN

          write('masukan jari-jari bola');readln(a);

          hasil2:=4/3*phi*a*a*a;

          write('volume bola dari jari-jari',a,'adalah',hasil2:5:3, 'cm');

          hasil2:=4*phi*a*a;

          write('luas permukaam bola dari jari jari ',a,' adalah',hasil2:5:3 ,'cm');

        end;

8:begin

     writeln('terimakasih sudah mencoba dan belajar');

     exit;

end;

end; {end dari case of}

readln;

goto lagi;

end.

Apakah masih bingung dengan program tersebut ???. anda bisa buka kembali di program awal tentang pembahasan Perulangan IF-THEN-ELSE, FOR-DO, WHILE-DO dan REPEAT-UNTIL. Selamat mencoba coding program pascal, semoga bermanfaat, dan kunjungi juga ke coding program pascal tentang PROGRAM MENGHITUNG IPK…..