Volume Krucut program c++

Volume krucut

Program perhitungan volume kerucut dalam program c++ sebagai berikut:

output nya

silahkan mencoba, dan terima kasih

Pertambahan dan pengurangan program c++

 Pertambahan dan pengurangan

Program perhitungan pertambahan dan pengurangan dalam program c++  sebagai berikut

contoh outputnya

silahkan mencoba, dan terima kasih

ANIME ONE PIECE

One Piece adalah sebuah anime dan manga tentang sekelompok bajak laut yang dipimpin oleh Monkey D. Luffy yang pergi mencari harta karun legendaris bernama One Piece.

One Piece diciptakan oleh Eiichiro Oda. Komiknya dimulai pada 1997 di Shonen Jump terbitan Shueisha dan hingga kini masih terus berlanjut. Versi TV nya dimulai pada Oktober 1999. Hingga 2012, lebih dari 669 cerita dan 62 jilid versi manganya telah diterbitkan. Di Indonesia manga ini diterbitkan Elex Media Komputindo dan hingga juni 2012 telah mencapai jilid ke-62. Versi TV-nya, yang diproduksi Toei, telah mencapai 669 episode di Jepang. Selain itu, 10 film layar lebarnya juga telah beredar. Di Indonesia sendiri pernah ditayangkan di RCTI dan juga di Global TV.

One Piece sukses berkat ceritanya yang kuat, penuh fantasi, nuansa humor yang khas, tokoh-tokohnya yang beraneka ragam, pertarungan yang ketat antara tokoh-tokoh yang kuat, serta tokoh-tokoh yang diceritakan secara mendalam. Popularitasnya di Jepang telah menyaingiDragon Ball.

Pada Februari 2005, One Piece mencetak rekor di Jepang sebagai penerbitan manga yang tercepat mencapai 100.000.000 eksemplar.

Manga

Manga One Piece mulai diserialisasikan pada majalah Shonen Jump edisi #34 pada tanggal 4 Agustus 1997. Animenya mulai diproduksi oleh Toei Animation di Fuji TV pada 20 Oktober 1999.

Pada awalnya, Eiichiro Oda merencanakan One Piece akan berjalan sekitar 5 tahun, dan dia telah menetapkan endingnya. Tetapi dia terlalu “menikmati” jalan ceritanya dan sekarang dia tidak tahu kapan One Piece akan berakhir.

One Piece adalah manga dengan penjualan tertinggi ke tiga (setelah Kochikame dan Dragon Ball sepanjang sejarah Shonen Jump. Manga ini juga yang menyebabkan total penjualan Shonen Jump naik pada 11 tahun terakhir ini. Volume 25 memegang rekor penjualan manga di Jepang, dengan 2.630.000 unit terjual pada cetakan pertama. Dan volume 46 mencapai lebih dari 140.000.000 unit terjual dan merupakan manga tercepat yang mencapai total penjualan 100.000.000.

Anime

Kepopuleran One Piece dalam Weekly Shonen Jump, membuat pihak Toei Animation memutuskan membuat serial anime nya. Rating animenya sangat tinggi.

Awal dari era anime One Piece sebenarnya adalah sebuah OVA One Piece, yaitu One Piece: Defeat the Pirate Ganzackt!, diterbitkan pada tahun 1997 kemudian diikuti tayangan mingguan per episode.

Sampai 30 Maret 2008, total episode TV One Piece yaitu 349 Episode. Dari episode 207 kedepan, One Piece disiarkan dalam fitur high-definition dengan resolusi 1080i. One Piece disiarkan rata-rata 4 episode per bulan.

Movie

Toei telah membuat 11 movie, dan semuanya dirilis setiap musim semi di Jepang sejak tahun 2000. Semua movie digarap dengan profesional, dan dengan tingkat grafik yang lebih tinggi dari tayangan mingguan biasanya. Movie tersebut juga memiliki plot tersendiri, dan jauh dari alur One Piece yang sebenarnya (non-canon), sehingga selain peminat One Piece pun bisa mengikuti movie ini. Ke 11 movie yaitu:

§  One Piece: The Movie. Movie pertama dengan self titled, menceritakan petualangan Kelompok Bajak Laut Topi Jerami, (Sanji belum masuk) mencari harta yang ditinggalkan Wonan, Bajak Laut legendaris. Tetapi harus berhadapan dengan Bajak Laut El Drago yang memiliki buah iblis.

§  One Piece: Adventure in Clockwork Island. Petualangan Kelompok Topi Jerami di pulau misterius di East Blue yaitu Clockwork Island untuk mengejar kapal mereka yang dicuri Kartu Bersaudara.

§  One Piece: Chopper's Kingdom of the Strange Animal. Kisah yang berpusat pada Chopper yang mendadak menjadi seorang Raja dari segala hewan.

§  One Piece: Dead End Adventure: Kisah tentang perlombaan balap kapal yang diikuti Topi Jerami karena kekurangan biaya. Tetapi ternyata pertandingan ini telah dikorup oleh Bajak Laut yaitu Jenderal Gasparade.

§  One Piece: Curse of Seven Star Sword. Cerita yang memusatkan Roronoa Zoro, bercerita tentang keberadaan pedang terkutuk, Pedang Tujuh Bintang yang merasuki teman masa kecil Zoro, Saga.

§  One Piece: Baron Omatsuri and the Secret Island

§  One Piece: Giant Mechanical Soldier of Karakuri Castle. Bercerita tentang keberadaan pulau canggih yang dibangun Dr. Ratchet. Kelompok Topi Jerami bertujuan akan menghentikan ambisi Ratchet untuk menguasai dunia.

§  Episode of Arabasta: The Princess, Desert, and Pirates, menceritakan kembali sepenuhnya cerita Arabasta (akhir dari kisah Baroque Works).

§  Episode of Chopper: Island of Perpetual Winter. Berada di luar timeline aslinya, menceritakan kembali kisah Drum Kingdom (bergabungnya chopper) tetapi dengan kru yang sudah mencakup Robin dan Franky. Disertai dengan beberapa penyesuaian cerita lainnya.

§  Episode Strong World. Merupakan serial movie One Piece yang dirilis pada bulan desember 2009 di Jepang. Menceritakan Topi Jerami yang bertemu dengan salah satu bajak laut terkenal, Golden Shiki yang merencanakan untuk menculik Nami.

§  Mugiwara Chase. Serial movie One Piece 3D - 2011.

METODE NEWTON RAPHSON

Metode newton raphson merupakan salah satu metode terbuka untuk menemukan akar dari persamaan tak-linier, dibawah ini adalah program pascal metode newton raphson sebagai berikut

uses crt;

label ulang;

var

x,x1,y,y1,z,f,f1,f2 : real;

i : integer;

ab :char;

begin

ulang:

clrscr;

writeln('Tent. nilai akar dari persamaan f(x)=3x+sin(x)+exp x dgn Metode Newton Raphson');

write('Input x1 = ');

readln(x1);

y1:= 3 * x1 + sin (x1) - exp (x1);

f1:= 3 + cos (x1) - exp(x1);

f2:= -sin(x1) - exp (x1);

z:= (y1*f2) / (f1*f1);

writeln(' Nilai f(x1)= ',y1:0:5);

writeln(' Nilai f`(x1)= ',y1:0:5);

writeln(' Nilai f``(x1)= ',y1:0:5);

if abs (z)<1 then;

i := 1;

readln;

writeln('Penyelesaian persamaan karekteristik dengan Metode Newton Raphson');

writeln('----------------------------------------------------------------------');

writeln(' n x f(x) error ');

writeln('----------------------------------------------------------------------');

repeat

begin

i := i + 1;

x := x1 - (y1/f1);

Y := 3 * x + sin (x) - exp (x);

f := 3 + cos (x) - exp (x);

if i<10 then

writeln(i,' :: ',x,' : ',y,' ',abs(y),' :: ')

else

writeln(': ,i, :: ,x, :: ,y, :: ',abs(y),' :: ');

x1 := x;

y1 := y;

f1 := f;

end;

until abs(y) < 1E-08;

writeln('----------------------------------------------------------------------');

writeln('Akar persamaan= ',x);

writeln('Errornya=' ,abs(y));

writeln('----------------------------------------------------------------------');

writeln('Apakah anda ingin mengulangi (y/t): ');

readln(ab);

if (ab='y') or (ab='Y') then

begin

goto ulang;

end

else

end.

silahkan mencoba, dan terimakasih

METODE REGULA FALSI

Metode Regula Falsi disebut juga metode Interpolasi Linear yaitu metode yang digunakan untuk mencari akar- akar persamaan nonlinear melalui proses iterasi dengan persamaan, dibawah ini adalah program metode regulafalsi dalam program pascal sebagai berikut:

uses wincrt;

label ulang;
var
x1,x2,x3,y1,y2,y3 : real;
i : integer;
Ab :char;
data1 : real;
begin
ulang:
clrscr;
writeln('Tentukan nilai akar dari persamaan f(x)=x^3+x^2-3x-3=0 dengan Regula Falsi');
write('Masukan nilai x1 = ');readln(x1);
y1 := x1 * x1 * x1 + x1 * x1 - 3 * x1 - 3;
writeln(' Nilai f(x1)= ',y1:0:4);
repeat
begin
write( 'Masukan nilai x2 = ' ); readln(x2);
y2 := x2 * x2 * x2 + x2 * x2 - 3 * x2 - 3;
write(' Nilai f(x2)= ',y2:0:4);
end;
if (y1*y2)<0 then
Writeln(' Syarat Nilai Ok')
else
Writeln(' Nilai X2 Belum Sesuai');
until ( y1 * y2 ) <0;
writeln;
writeln('Penyelesaian persamaan karekteristik dengan metoda regula falsi');
writeln('----------------------------------------------------------------------');
writeln(' n x f(x) error ');
writeln('----------------------------------------------------------------------');
repeat
begin
i:= i + 1; x3 := ( x2-( y2 / ( y2 - y1))*(x2-x1));
y3 := x3 * x3 * x3 + x3 * x3 - 3 * x3 - 3;
if i<10 then
writeln(' ',i,' : ',x3,' : ',y3,' : ',abs(y3),' : ')
else
writeln(i,' : ',x3,' : ',y3,' : ',abs(y3),' : ');
if ( y1 * y3 ) <0 then
begin
x2 := x3 ; y2 := y3 ;
end
else
begin
x1 := x3 ; y1 := y3;
end;
end;
until abs( y3 ) < 1E-08;
writeln('----------------------------------------------------------------------');
writeln('Akar persamaannya= ',x3);
writeln('Errornya=' ,abs( y3 ));
writeln('----------------------------------------------------------------------');
writeln('Apakah anda ingin mengulangi (y/t): ');
readln(ab);
if (ab='y') or (ab='Y') then
begin
goto ulang;
end
else
donewincrt;
end.

silahkan mencoba, dan terima kasih

METODE BISEKSI

Metode biseksi disebut juga metode Pembagian Interval atau metode yang digunakan untuk mencari akar-akar persamaan nonlinear melalui proses iterasi dengan persamaan, dan ini program metode biseksi dalam program pascal sebagai berikut:


uses wincrt;
label ulang;
var
x1,x2,x3,y1,y2,y3 : real;
i : integer;
ab : char;
begin
ulang :
clrscr;
writeln('Tentukan nilai akar dari persamaan f(x)=x^3+x^2-3x-3=0 dengan Metode Biseksi');
write( 'Masukan nilai x1 = ' );
readln( x1 );
y1 := x1 * x1 * x1 * + x1 * x1 - 3 * x1 -3;
writeln(' Nilai f(x1)= ',y1:0:4);
repeat
begin
write( 'Masukan nilai x2 = ');
readln(x2);
y2 := x2 * x2 * x2 + x2 * x2 - 3 * x2 - 3;
write(' Nilai f(x2)= ',y2:0:4);
end;
if (y1*y2)<0 then
Writeln(' Syarat Nilai Ok')
else
Writeln(' Nilai X2 Belum Sesuai');
until ( y1 * y2 ) < 0;
I :=2;
Writeln;
writeln('Penyelesaian Persamaan Dengan Metode Biseksi, Nilai x1= ',x1:0:2,' & x2= ',x2:0:2);
writeln('--------------------------------------------------------------------------');
writeln('n x f(x) error ');
writeln('--------------------------------------------------------------------------');
repeat
begin
i :=i + 1 ; x3 := ( x1 + x2) / 2;
y3 := x3 * x3 * x3 + x3 * x3 - 3 * x3 -3;
if (i mod 10)=0 then readln;
if i<10 then
writeln(' ',i,' :: ',x3,' :: ',y3,' :: ',abs( y3 ),' ::')
else writeln(i,' :: ',x3,' :: ',y3,' :: ',abs( y3 ),' ::');
if ( y1* y3) <0 then
begin
x2 :=x3;
end else
begin
x1 := x3;
end;
end;
until abs( y3 )<1E-07;
writeln('-------------------------------------------------------------------------');
writeln('akar persamaanya = ',x3);
writeln('errornya =',abs( y3 ));
writeln('-------------------------------------------------------------------------');
write('Apakah anda ingin mengulanginya (y/t): ');
readln(ab);
if (ab='y') or (ab='Y') then
begin
goto ulang;
end
else
donewincrt;
end.

silahkan mencoba, dan terimakasih

METODE TABULASI

Metode Tabulasi adalah metode penyelesaian persamaan nonlinear dengan cara membuat tabel-tabel persamaan atau fungsi nonlinear di sekitar titik penyelesaian, dan berikut ini contoh program metode tabulasi dalam program pascal sebagai berikut:

uses wincrt;
label ulang;
var
x,x1,x2,xa,xb,xc,y,y1,y2,ya,yb:real;
I,j,k:integer;
ab:char;
begin
ulang:
clrscr;
writeln('Tentukan aakar penyelesaian dengan Metode Tabulasi dari f(x)=x^3-7x+1');
writeln;
write('masukkan nilai x1 =');
readln(x1);
y1 := x1* x1* x1 - 7 * x1 + 1;
Writeln(' f(',x1:0:2,')=',y1:0:4);
repeat
begin
write('masukkan nilai x2 =');
readln(x2);
y2 := x2 * x2 * x2 - 7 * x2 + 1;
writeln(' f(',x2:0:2,')=',y2:0:4);
writeln;
writeln('Syarat (x1*x2)<0');
write(' x1*x2=',y1*y2:0:5);
if (y1*y2)<0 then write(' Nilai OK') else write(' Nilai Tidak Sesuai');
readln;

end;
until(y1 * y2) <0;
clrscr;
k:=0;
repeat
begin
k:=k+1;
if x1 > x2 then
begin
xa := x1;
xb := x2;
end
else
begin
xa := x2;
xb := x1;
end;
xc := (xa - xb) /10;
i:=0;
repeat
begin
i:=i+1;
x := xb + xc * I;
ya := x * x * x - 7 * x +1;
yb :=( x - xc) *(x - xc) *(x - xc) - 7 * (x - xc)+1;
end;
until (ya * yb) <0;
x1 :=x;
x2 :=x - xc;
writeln ('tabulasi ke-',k);
writeln ('--------------------------------------------------------------------------');
writeln (' n x f(x) error');
writeln ('--------------------------------------------------------------------------');
for j:=1 to 9 do
begin
x := xb + xc * (j -1);
y := x * x * x - 7 * x + 1;
writeln (' ',j,':: ',x,' :: ',y,' :: ',abs(y),' ::');
end;
for j:=10 to 11 do
begin
x := xb + xc * (j -1);
y := x * x * x - 7 * x + 1;
writeln (j,':: ',x,' :: ',y,' :: ',abs(y),' ::');
end;
writeln('---------------------------------------------------------------------------');
end;
readln;
until abs(y)<10e-8;
writeln ('akar pendekatannya adalah x=',x);
writeln ('error=',abs(y));
writeln;
write ('apakah anda ingin mengulangi(y/t):');
readln(ab);
if (ab='Y') or (ab='y') then
begin
goto ulang;
end
else
donewincrt;
end.


silahkan mencoba, dan terimakasih