program mencari L, K, dan V bangun ruang

{menghitung luas, keliling dan volume bangunan dan bangun ruang}
uses wincrt;
const phi=3.14;
var a,t,r,ras,ts,p,l,tb,aal,tal,aspal,tsl,tl:integer;
    hasil:real;

begin
writeln;
writeln('-==================================================================-');
writeln('menghitung luas
, keliling dan volume bangun datar dan bangun ruang');
writeln('by: Muhammad Targiono, NIM: 111 051 035');
writeln('-==================================================================-');
writeln;
write('masukkan alas
segitiga siku-siku   = ');readln(a);
write('masukkan tinggi segitiga siku-siku = ');readln(t);
writeln;
write('masukkan jari-jari lingkaran     = ');readln(r);
writeln;
write('masukkan jari-jari alas silinder = ');readln(ras);
write('masukkan tinggi silinder         = ');readln(ts);
writeln;
write('masukkan panjang balok = ');readln(p);
write('masukkan lebar balok   = ');readln(l);
write('masukkan tinggi balok  = ');readln(tb);
writeln;
write('masukkan panjang alas limas segitiga biru = ');readln(aal);
write('masukkan tinggi alas limas segitiga  = ');readln(tal);
write('masukkan tinggi sisi limas segitiga  = ');readln(tsl);
write('masukkan tinggi limas segitiga       = ');readln(tl);
write('-------------------------------------------------------------------');
writeln;
hasil:=1/2*a*t;
writeln('luas segitiga siku-siku ',1/2:4:2,'*',a,'*',t,' = ',hasil:4:2);
writeln;
hasil:=phi*r*r;
writeln('luas lingkaran     ',phi:4:2,'*',r,'*',r,'  = ',hasil:4:2);
hasil:=2*phi*r;
writeln('keliling lingkaran ',2,'*',phi:4:2,'*',r,'  = ',hasil:4:2);
writeln;
hasil:=(2*phi*ras)*(ras+ts);
writeln('luas silinder ',2,'*',phi:4:2,'*',ras,'*(',ras,'+',ts,') = ',hasil:4:2);
hasil:=phi*ras*ras*ts;
writeln('volume silinder ',phi:4:2,'*',ras,'*',ras,'*',ts,'   = ',hasil:4:2);
writeln;
hasil:=(2*p*l)+(2*p*tb)+(2*l*tb);
writeln('luas permukaan balok (',2,'*',p,'*',l,')+(',2,'*',pk,'*',tbu,')+(',2,'*',l,'*',tb,') = ',hasil:4:2);
hasil:=p*l*tb;
writeln('volume balok         ',p,'*',l,'*',tb,'   = ',hasil:4:2);
writeln;
hasil:=(1/2*aal*tal)+3*(1/2*aal*tsl);
writeln('luas permukaan limas segitiga (',1/2:4:2,'*',aal,'*',tal,')+',3,'*(',1/2:4:2,'*',aak,'*',tsl,') = ',hasil:4:2);
hasil:=1/3*(1/2*aal*tal)*tl;
writeln('volume limas segitiga          ',1/3:4:2,'*(',1/2:4:2,'*',aal,'*',tal,')*',tl,'      = ',hasil:4:2);
writeln;
writeln('=============================___selesai___==========================');
readln;
end.

Penulis : G I O ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel program mencari L, K, dan V bangun ruang ini dipublish oleh G I O pada hari Minggu, 11 Desember 2011. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan program mencari L, K, dan V bangun ruang