Membuat Rumus Volume Bola , Volume Tabung , Volume Prisma , Dan Volume Kerucut Dengan Turbo Pascal(Tik Kelas Xi)

kali ini aku akan menshare ihwal cara menciptakan rumus-rumus volume bola , tabung , prisma dan kerucut. Oke sanggup kita lihat disini hasilnya, aku memakai textcolor hanya untuk memperindah saja tidak ada pengaruhnya ke dalam kegiatan 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
balasannya menyerupai ini

cara kerjanya sama dengan volume bola tinggal memsaukkan jari-jari dan tingginya saja

source codenya:

kegiatan 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
balasannya menyerupai ini:

cara kolaborasi dengan volume sebelumnya

source codenya:

kegiatan 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 menyerupai diatas

source codenya:

kegiatan 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 aku mohon maaf apabila ada kesalahan alasannya yakni aku juga gres mencar ilmu ^^, biar sanggup membantu kalian semua yang membutuhkan ^^
jangan lupa follow dan berkomentar lah setidaknya ^^




Sumber http://sulaiman4fun.blogspot.com