Rabu, 25 Maret 2015

Download Film Animasi Big Hero 6(2014) Subtitle Indonesia


Sinopsis Big Hero 6
Seorang anak bernama Hiro Hamada (Ryan Potter) sangat terobsesi dengan dunia robot. Hiro adalah anak cerdas yang mampu menyelesaikan sekolahnya lebih cepat dari usia yang seharusnya. Dengan kata lain, Hiro adalah anak ajaib. Ia juga ahli dalam membuat robot. Untuk menguji keahliannya itu, ia ikut kompetisi pertarungan robot jalanan. Hiro berhasil menang dan mendapatkan uang banyak, namun sialnya tempat pertarungan tersebut digrebek polisi dan ia pun tertangkap.
Untungnya, ia ditolong oleh kakaknya, Tadashi Hamada (Daniel Henney) dan bibinya, Cass (Maya Rudolph. Melihat kondisi adiknya yang punya potensi tetapi tidak dimaksimalkan, Tadashi mencoba mengajaknya untuk kuliah di tempatnya, San Fransokyo Tech. Hiro merasa takjub ketika melihat berbagai perlengkapan teknologi memukau yang ada di sana. Seketika, Hiro berubah pikiran dan ingin belajar di sana. 
Ia juga bertemu dengan Profesor Callaghan (James Cromwell), instruktur terkemuka di San Fransokyo Tech. Tadashi juga memperkenalkan teman-temannya yang kreatif dan inovatif di sana, yaitu  Fred (T.J. Miller), Go Go (Jamie Chung), Wasabi (Damon Wayans Jr.), dan Honey Lemon (Genesis Rodriguez). Mereka jualah yang menguatkan tekad Hiro untuk bisa segera belajar di sana. 
Big Hero ...
Namun, untuk bisa belajar di sana Hiro harus membuat sebuah penemuan yang luar biasa dan mendemonstrasikannya di pameran SFIT. Para penemu dengan karya teknologi terbaik akan memenangkan kesempatan kuliah di San Fransokyo Tech. Ironisnya, setelah Hiro berhasil menemukan teknologi terobosan baru dan mempresentasikannya, gedung tempat pameran berlangsung mengalami kebakaran. Tadashi yang mencoba menyelamatkan Profesor Callaghan yang masih berada di dalam, tewas seketika. 
Kesedihan mendalam dialami oleh Hiro. Hingga pada akhirnya ia berteman dengan Baymax (Scott Adsit), robot asisten medis pertama di dunia. Baymax adalah robot ciptaan dari mendiang kakaknya, Tadashi. Robot inilah yang menjadi obat kesedihan bagi Hiro setelah ditinggal sang kakak. Dan ternyata, Baymax memiliki potensi lebih dari yang diperkirakan. Mulai saat itu pulalah Hiro bereksperimen dengan Baymax. 
Big Hero ...
Inilah beberapa kejadian yang ada dalam film animasi terbaru persembahan Walt Disney berjudul Big Hero 6. Film yang disutradarai oleh Don Hall dan Chris William ini termasuk dalam daftar film yang sangat dinanti di tahun 2014. Bahkan, film ini diprediksi bisa menyamai kesuksesan film Disney sebelumnya, yaitu Frozen (2013). Yang membedakannya adalah film Big Hero 6 mengambil latar zaman yang kekinian dan futuristik. 
Untuk Anda yang ingin melepas kepenetan setelah beraktivitas atau menonton film bersama keluarga, film ini patut masuk dalam list Anda. Big Hero 6 menawarkan cerita aksi petualangan komedi yang seru dan menyenangkan. Bisa dijamin, setelah Anda menontonnya otak Anda akan segar kembali. Ceritanya yang jauh dari dongeng dan ditambah dengan penggunaan teknologi grafis yang mumpuni, membuat film animasi ini tidak hanya bisa dinikmati oleh anak-anak saja.

Dikemas dengan berbagai tingkah dan dialog lucu para karakternya, membuat film ini ringan untuk dinikmati berbagai kalangan. Adegan action di film ini juga patut diacungi jempol. Meski berbentuk animasi, namun film ini mampu menghasilkan kualitas serunya adegan dan suasana action layaknya menonton film superhero Marvel. 
Yang bakal banyak menarik perhatian dan dijamin membuat Anda tertawa adalah tokoh robot Baymax. Robot ini sangat lucu dan baik hati. Ditambah lagi dengan bentuknya yang tinggi, besar, perut gendut, tidak bisa lari kencang, dan terbuat dari bahan yang kenyal membuatnya lucu maksimal. Selain keseruan dan kelucuan, di film ini juga terdapat banyak kisah haru dan menyentuh. Jadi, walaupun ini film animasi, tetapi bisa membuat emosi Anda naik turun.

LINK DOWNLOAD :
Subtitle : 

Sumber : http://www.21cineplex.com/review/big-hero-6-kisah-seru-seorang-anak-jenius-dengan-robotnya,3033.htm  
Spesial Thanks to : Ganool.com

Selasa, 24 Maret 2015

Program Rekursif pada Pascal

Contoh program Rekursif pada pascal tentang faktorial, bilangan legendre dan fibonacci

uses crt;
var I, JumSuk, a, b, n : Integer;
    Bilx : real;
    Pilih : Char;

Function Faktorial(n:Integer):Longint;
Begin
 IF n=0 then Faktorial:=1
 else Faktorial:=n*Faktorial(n-1);
end;

Function Legendre(x : real; N : Integer) : Real;
var Suku1, Suku2 : Real;
Begin
 IF N=0 then
  Legendre:=1 else
  IF N=1 then
   Legendre:=x else
    Begin
     Suku1:=((2*N-1)*(x*Legendre(x,N-1)))/N;
     Suku2:=((N-1)*Legendre(x,N-2))/N;
     Legendre:=Suku1+Suku2;
    end;
end;

Function Fibonacci(n:Integer):Longint;
Begin
 IF (n=1) then Fibonacci:=0 else
 IF (n=2) then Fibonacci:=1 else
 Fibonacci:=Fibonacci(n-1)+Fibonacci(n-2);
end;

Procedure Faktor;
begin
clrscr;
 gotoxy(20,6);writeln('    _______________________________');
 gotoxy(20,7);writeln('   /                              /|');
 gotoxy(20,8);writeln('  /                              / |');
 gotoxy(20,9);writeln(' /______________________________/  |');
 gotoxy(20,10);writeln('|                              |  /|');
 gotoxy(20,11);writeln('|       Bilangan Faktorial     | / |');
 gotoxy(20,12);writeln('|______________________________|/  |');
 gotoxy(20,13);writeln('|                              |  /|');
 gotoxy(20,14);writeln('| Masukkan Nilai :             | / |');
 gotoxy(20,15);writeln('|______________________________|/  |');
 gotoxy(20,16);writeln('|                              |  /');
 gotoxy(20,17);writeln('|      :                       | /');
 gotoxy(20,18);writeln('|______________________________|/');
 gotoxy(39,14);readln(n);
 gotoxy(22,17);writeln(n,'!');
 gotoxy(29,17);writeln(Faktorial(n));
 readkey;
end;

Procedure Table;
begin
 writeln('|                                        |  |');
 writeln('|                                        |  |');
end;

Procedure Legend;
begin
 clrscr;
 writeln('    ________________________________________ ');
 writeln('   /                                       /|');
 writeln('  /                                       / |');
 writeln(' /_______________________________________/  |');
 writeln('|   |                                    |  |');
 writeln('|   |        Suku Banyak Legendre        |  |');
 writeln('|   |____________________________________|  |');
 writeln('|   |                                    |  |');
 writeln('|   |   Sampai Suku ke   :               |  |');
 writeln('|   |____________________________________|  |');
 writeln('|   |                                    |  |');
 writeln('|   |   Masukkan Nilai x :               |  |');
 writeln('|   |____________________________________|  |');
 writeln('|   |                                    |  |');
 gotoxy(28,9);readln(JumSuk);
 gotoxy(28,12);readln(Bilx);
 For I:=1 to JumSuk do
  Begin
   gotoxy(1,14+I);Table;
   gotoxy(2,14+I);writeln('   | Suku ke-',I:2,',',' Nilainya = ',Legendre(Bilx, I):8:3);
  end;
 writeln('|   |____________________________________|');
 writeln('|  /                                     |  /');
 writeln('| /                                      | /');
 writeln('|/_______________________________________|/');
 readkey;
end;

Procedure Table1;
Begin

end;

Procedure Fibo;
begin
 clrscr;
 gotoxy(10,1);writeln('    _______________________________');
 gotoxy(10,2);writeln('   /                              /|');
 gotoxy(10,3);writeln('  /                              / |');
 gotoxy(10,4);writeln(' /______________________________/  |');
 gotoxy(10,5);writeln('|                              |   |');
 gotoxy(10,6);writeln('|       Bilangan Fibonacci     |   |');
 gotoxy(10,7);writeln('|______________________________|   |');
 gotoxy(10,8);writeln('|                              |   |');
 gotoxy(10,9);writeln('| Masukkan Nilai :             |   |');
 gotoxy(10,10);writeln('|______________________________|   |');
 gotoxy(29,9);readln(n);
 for a:=1 to n do
  begin
   gotoxy(10,10+a);writeln('|           |      |           |   |');
   gotoxy(10,10+a);writeln('|           |      |           |   |');
   gotoxy(25,10+a);writeln(Fibonacci(a));
  end;
 gotoxy(10,11+a);writeln('|___________|______|___________|   |');
 gotoxy(10,12+a);writeln('|                              |  /');
 gotoxy(10,13+a);writeln('|                              | /');
 gotoxy(10,14+a);writeln('|______________________________|/');
 readkey;
end;

Procedure Keluar;
begin
clrscr;
writeln('     **********************************');
writeln('   ***                            *****');
writeln(' ***                             **  **');
writeln('*********************************    **');
writeln('*********************************    **');
writeln('**  ___       __           __  **    **');
writeln('**   |  |__| |__| |\ | |/ |__  **    **');
writeln('**   |  |  | |  | | \| |\  __| **    **');
writeln('**                             **    **');
writeln('*********************************  **');
writeln('***********************************');
readkey;
end;


Begin
 Repeat
 clrscr;
 gotoxy(15,1);writeln('    ________________________________________ ');
 gotoxy(15,2);writeln('   /                                       /|');
 gotoxy(15,3);writeln('  /             DAFTAR MENU               / |');
 gotoxy(15,4);writeln(' /_______________________________________/  |');
 gotoxy(15,5);writeln('|                                        |  |');
 gotoxy(15,6);writeln('| 1. Faktorial                           |  |');
 gotoxy(15,7);writeln('|________________________________________|  |');
 gotoxy(15,8);writeln('|                                        |  |');
 gotoxy(15,9);writeln('| 2. Bilangan Legendre                   |  |');
 gotoxy(15,10);writeln('|________________________________________|  |');
 gotoxy(15,11);writeln('|                                        |  |');
 gotoxy(15,12);writeln('| 3. Bilangan Fibonacci                  |  |');
 gotoxy(15,13);writeln('|________________________________________|  |');
 gotoxy(15,14);writeln('|                                        |  |');
 gotoxy(15,15);writeln('| 4. Keluar                              |  |');
 gotoxy(15,16);writeln('|________________________________________|  |');
 gotoxy(15,17);writeln('|                                        |  /');
 gotoxy(15,18);writeln('|          Pilih Menu :                  | /');
 gotoxy(15,19);writeln('|________________________________________|/');
 gotoxy(39,18);readln(Pilih);
 Case Pilih of
 '1' : Faktor;
 '2' : Legend;
 '3' : Fibo;
 '4' : Keluar;
 end;
 until (Pilih)='4';
end.


LINK DOWNLOAD :
Program Rekursif

Flowchart Rekursif


Rabu, 18 Maret 2015

Kumpulan Lagu Hits Terbaru

Download lagu gratis

Not A Bad Thing : http://adf.ly/1AO66t
Demi Lovato-Heart Attack : http://adf.ly/1AO6FU
Magic-Rude : http://adf.ly/1AO6Qf
Milley Cirus - Wrecking Ball : http://adf.ly/1AO6bW
Thinking Out Loud : http://adf.ly/1AO6gh
Taylor Swift-Shake It Off : http://adf.ly/1AO6kI
Maddi Jane-Impossible : http://adf.ly/1AO6rU
Blank Space : http://adf.ly/1AO6zK
Maddi Jane - Price Tag : http://adf.ly/1AO74J
Ellie Goulding-Love Me Like You Do : http://adf.ly/1AO7Am
Miley Cyrus-Party In The USA : http://adf.ly/1AO7Eb
Sugar : http://adf.ly/1AO7eD
Wrecking Ball : http://adf.ly/1AO7uO
All About The Bass : http://adf.ly/1AO8MI
Ariana - Grande Problem feat Iggy Azalea : http://adf.ly/1AO8eB

Kumpulan Musik Terbaru 2015

Kumpulan musik terbaru 2015 yang bisa dibilang hits dan yang pastinya asik untuk didengerin

Link Download : http://adf.ly/1ANjWz

Array dan Record pada Pascal

Contoh program Array dan Record beserta flowchart pada Pascal tentang data Mahasiswa
 
Program DataMahasiswa;
uses crt;
Type Rec = Record
     Kode,Kode1, NMK,NMK1, NIM,NIM1, Nama, Grade : String;
     SKS : Integer;
end;

var Data : Array[1..100] of Rec;
    Pilih : Char;
    jlhMK, jlhmhsswa,I,a,b,n,k,s  : integer;
    Cocok : String;

Procedure InputMataKuliah;
Begin
clrscr;
write(' Masukkan Jumlah Mata Kuliah : ');readln(jlhMK);
n:=jlhMK;
for I:=1 to jlhMK do
 begin
  writeln(' ___________________________________');
  writeln('|           Data Ke-',I,'               |');
  writeln('|-----------------------------------|');
  writeln('| Kode             :                |');
  writeln('| Nama Mata Kuliah :                |');
  writeln('| SKS              :                |');
  writeln('|___________________________________|');
  gotoxy(22,5+(7*(I-1)));readln(Data[I].Kode);
  gotoxy(22,6+(7*(I-1)));readln(Data[I].NMK);
  gotoxy(22,7+(7*(I-1)));readln(Data[I].SKS);
  writeln;
 end;
end;

Procedure InputNilaiMahasiswa;
Begin
clrscr;
write(' Masukkan Jumlah Mahasiswa : ');readln(jlhmhsswa);
for I:=1 to jlhmhsswa do
 begin
  writeln(' ___________________________________');
  writeln('|           Data Ke-',I,'               |');
  writeln('|-----------------------------------|');
  writeln('| NIM               :               |');
  writeln('| Nama              :               |');
  writeln('| Kode              :               |');
  writeln('| Nama Mata Kuliah  :               |');
  writeln('| Grade             :               |');
  writeln('|___________________________________|');
  gotoxy(23,5+(9*(I-1)));readln(Data[I].NIM);
  gotoxy(23,6+(9*(I-1)));readln(Data[I].Nama);
  gotoxy(23,7+(9*(I-1)));readln(Data[I].Kode1);
   for a:=1 to n do
    begin
     IF Data[I].Kode=Data[a].Kode1 then
      begin
       Cocok:='y';
       b:=a;
      end;
    end;
   IF Cocok='y' then
    Data[I].NMK1:=Data[b].NMK else
    Data[I].NMK1:='Kode Tidak Ada';
    gotoxy(23,8+(9*(I-1)));writeln(Data[I].NMK1);
    gotoxy(23,9+(9*(I-1)));readln(Data[I].Grade);
  writeln;
 end;
end;

Procedure Table;
Begin
 writeln('|             |                  |     |');
 writeln('|_____________|__________________|_____|');
 writeln('|                                      |');
 writeln('| Total SKS :     SKS                  |');
 writeln('|______________________________________|');
end;

Procedure CetakMataKuliah;
Begin
k:=0;
 clrscr;
 writeln(' ______________________________________');
 writeln('|            NILAI MAHASISWA           |');
 writeln('|______________________________________|');
 writeln('|     Kode    | Nama Mata Kuliah | SKS |');
 writeln('|_____________|__________________|_____|');
 writeln('|             |                  |     |');
 for I:=1 to jlhMK do
  begin
   with Data[I] do
    begin
     gotoxy(1,6+i);Table;
     gotoxy(3,6+i);writeln(Data[I].Kode);
     gotoxy(17,6+i);writeln(Data[I].NMK);
     gotoxy(37,6+i);writeln(Data[I].SKS);
     k:=k+Data[I].SKS;
    end;
  end;
gotoxy(15,9+i);writeln(k);
 readkey;
end;

Procedure Table1;
Begin
 writeln('|           |               |            |                  |       |');
 writeln('|___________|_______________|____________|__________________|_______|');
end;

Procedure ProcedureCetakRekapNilai;
Begin
 clrscr;
 writeln(' ___________________________________________________________________');
 writeln('|                             Rekap Nilai                           |');
 writeln('|___________________________________________________________________|');
 writeln('|    NIM    |      Nama     |     Kode   | Nama Mata Kuliah | Grade |');
 writeln('|___________|_______________|____________|__________________|_______|');
 writeln('|           |               |            |                  |       |');
 for I:=1 to jlhmhsswa do
  begin
   with Data[I] do
    begin
     gotoxy(1,6+i);Table1;
     gotoxy(3,6+i);writeln(Data[I].NIM);
     gotoxy(15,6+i);writeln(Data[I].Nama);
     gotoxy(31,6+i);writeln(Data[I].Kode1);
     gotoxy(44,6+i);writeln(Data[I].NMK1);
     gotoxy(63,6+i);writeln(Data[I].Grade);
    end;
  end;
 readkey;
end;


Procedure CetakKHS;
Begin
I:=1;
clrscr;
 writeln(' __________________________________________________');
 writeln('| NIM  :                                                                                |');
 writeln('| Nama :                                                                              |');
 writeln('|__________________________________________________|');
 writeln('|                   KARTU HASIL STUDI                                   |');
 writeln('|__________________________________________________|');
 writeln('| Kode Mata Kuliah | Nama Mata Kuliah |    Grade   |');
 writeln('|__________________|__________________|____________|');
 writeln('|                  |                  |            |');
 writeln('|__________________|__________________|____________|');
 gotoxy(10,2);readln(Data[I].NIM1);
 for a:=1 to jlhmhsswa do
  begin
   IF Data[I].NIM1=Data[a].NIM then
    begin
   gotoxy(10,3);writeln(Data[a].Nama);
   gotoxy(3,9);writeln(Data[a].Kode1);
   gotoxy(22,9);writeln(Data[a].NMK1);
   gotoxy(41,9);writeln(Data[a].Grade);
    end;
  end;
 readkey;
end;

Procedure Keluar;
begin
clrscr;
writeln('*********************************');
writeln('*********************************');
writeln('**       ___       __         __         **');
writeln('**         |  |__| |__| |\ | |/ |__         **');
writeln('**         |  |    | |   | | \| |\  __|        **');
writeln('**                                             **');
writeln('*********************************');
writeln('*********************************');
readkey;
end;


Begin
repeat
clrscr;
writeln(' ____________________________');
writeln('|        Menu Pilihan                      |');
writeln('| 1. Input Mata Kuliah                  |');
writeln('| 2. Input Nilai Mahasiswa           |');
writeln('| 3. Cetak Mata Kuliah                 |');
writeln('| 4. Cetak Rekap Nilai                 |');
writeln('| 5. Cetak KHS                           |');
writeln('| 6. Keluar                                  |');
writeln('|____________________________|');
writeln('|                                                  |');
writeln('| Masukkan Pilihan :                      |');
writeln('|____________________________|');
gotoxy(22,11);readln(Pilih);
Case Pilih of
 '1' : InputMataKuliah;
 '2' : InputNilaiMahasiswa;
 '3' : CetakMataKuliah;
 '4' : ProcedureCetakRekapNilai;
 '5' : CetakKHS;
 '6' : Keluar;
end;
Until (Pilih)='6';
end.




Link download : Program Array & Record + flowchart