Labels

B.Indonesia (4) b.inggris (3) b.sunda (1) biografi (2) Biologi (7) cerita pengalaman (18) cerpen (2) Cheat Point Blank (20) Cheats (18) cracking (3) ekonomi (2) Fisika (13) games (3) Geografi (5) hari raya (1) HPO (1) informasi (11) jualan (3) kimia (20) koleksi (3) matematika (8) musik (1) ngakak (16) ninja saga (9) Pelajaran (127) Pengetahuan (52) perenungan (27) PKN (29) PLH (6) rajutan (1) rempah (1) Request (7) sejarah (8) Seni Budaya (7) Seram (2) sinopsis film (2) software (10) sosiologi (2) story telling (1) TIK (13) tugas (121) Tutorial (38)

Saturday, December 1, 2012

Membuat rumus volume bola , volume tabung , volume prisma , dan volume kerucut dengan turbo pascal(TIK KELAS XI)

kali ini saya akan menshare tentang cara membuat rumus-rumus volume bola , tabung , prisma dan kerucut. Oke bisa kita lihat disini hasilnya, saya menggunakan textcolor hanya untuk memperindah saja tidak ada pengaruhnya ke dalam program yang akan dihasilkan.

Yang Pertama Volume Bola hasilnya
 program diatas kita hanya perlu memasukkan input jari-jari yang diinginkan nanti udah deh akan muncul hasilnya
source codenya:

program Volume_bola;
uses crt;
var
r,r2:integer;
hasil1,hasil2: real;
const
phi=3.14;
empatpertiga=1.33;

begin
clrscr;
textcolor(yellow);writeln('masukkan jari-jari: '); readln(r);
r2:=r*r*r;
hasil1:=phi*r2*empatpertiga;
textcolor(red);writeln('tunggu sebentar.....!!');
delay(500);

textcolor(Blue+128);writeln('Volume Bola: ',hasil1:2:3);

readkey;
end.

Yang kedua volume tabung
hasilnya seperti ini
cara kerjanya sama dengan volume bola tinggal memsaukkan jari-jari dan tingginya saja

source codenya:

program Volume_tabung;
uses crt;
var
r,r2,tinggi:integer;
hasil1,hasil2: real;
const
phi=3.14;


begin
clrscr;
textcolor(yellow);writeln('masukkan jari-jari: '); readln(r);
r2:=r*r;
hasil1:=phi*r2;
writeln('tunggu sebentar.....!!');
delay(500);

textcolor(red+128);writeln('Luas alasnya: ',hasil1:2:3);
textcolor(yellow);writeln('masukkan tinggi tabung: ');readln(tinggi);
hasil2:=hasil1*tinggi;
textcolor(blue+128);writeln('Volume Tabung= ',hasil2:2:3);

readkey;
end.

Yang ketiga volume kerucut
hasilnya seperti ini:
cara kerja sama dengan volume sebelumnya

source codenya:

program Volume_kerucut;
uses crt;
var
r,r2,tinggi:integer;
hasil1,hasil2: real;
const
phi=3.14;
sepertiga=0.33;


begin
clrscr;
textcolor(yellow);writeln('masukkan jari-jari: '); readln(r);
r2:=r*r;
hasil1:=phi*r2;
writeln('tunggu sebentar.....!!');
delay(500);

textcolor(red+128);writeln('Luas alasnya: ',hasil1:2:3);
textcolor(yellow);writeln('masukkan tinggi Kerucut: ');readln(tinggi);
hasil2:=hasil1*tinggi*sepertiga;
textcolor(blue+128);writeln('Volume Limas Segitiga = ',hasil2:2:3);

readkey;
end.

Yang terakhir volume prisma
hasilnya:
sama caranya seperti diatas

source codenya:

program Volume_prisma;
uses crt;
var
a,t,tinggi:integer;
hasil1,hasil2: real;
const
setengah=0.5;

begin
clrscr;
textcolor(yellow);writeln('masukkan alas: '); readln(a);
textcolor(yellow);writeln('masukkan tinggi: '); readln(t);
hasil1:=a*t*setengah;
writeln('tunggu sebentar.....!!');
delay(500);

textcolor(red+128);writeln('Luas alasnya: ',hasil1:2:3);
textcolor(yellow);writeln('masukkan tinggi prisma: ');readln(tinggi);
hasil2:=hasil1*tinggi;
textcolor(blue+128);writeln('Volume Prismanya = ',hasil2:2:3);

readkey;
end.

mungkin cukup sekian dulu postingan dari saya mohon maaf apabila ada kesalahan karena saya juga baru belajar ^^, semoga dapat membantu kalian semua yang membutuhkan ^^
jangan lupa follow dan berkomentar lah setidaknya ^^



2 comments:

RYAN D said...

nice gan programnya ..
thanks

Unknown said...

kalau buat prisma segitiga dengan powerpoint caranya gimana yha???

Post a Comment

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Hot Sonakshi Sinha, Car Price in India