Tugas Kombinasi

program kombinasi;
uses    wincrt;
var     n,r,nr,c,h1,h2,h3 :real;
        i,j,k             :integer;
procedure f1(var p,h1:real);
begin
  h1:=1;
  i :=1;
   while i<=p do
begin
  h1:=h1*i;
  i :=i+1;
 end;
 end;
   procedure f2(var q,h2:real);
begin
  h2:=1;
  j :=1;
  while j<=q do
begin
  h2:=h2*j;
  j :=j+1;
 end;
 end;
   procedure f3(var r,h3:real);
begin
  h3:=1;
  k :=1;
  while k<=r do
begin
  h3:=h3*k;
  k :=k+1;
 end;
 end;
begin
 writeln('-----------------------');
 writeln('Nama : Krisdian Eko Robbyanto');
 writeln('NIM  : 111221054');
 writeln('-----------------------');
 write  ('Banyak Data yang dikombinasi = ');readln(n);
 write  ('Banyak Kombinasi             = ');readln(r);

               nr:=n-r;
               f1(n,h1);
               f3(r,h3);
               f2(nr,h2);
               c:=h1/(h2*h3);

writeln('Hasil Kombinasi              = ',c:1:0);
writeln;
end.

Invers Matriks

INVERS MATRIKS
Definisi:
Sebuah matriks n x n dinamakan matriks elementer jika matriks tersebut dapat diperoleh dari
matriks satuan (identitas) n x n dengan melakukan sebuah operasi baris elementer

program PASCAL;
uses wincrt;
var x,y:array[1..20,1..20] of integer;
i,j:integer;
begin
writeln ('matrik invers');
writeln('berordo 2x2');
writeln;
writeln ('masukkan nilai matriks:');
for i:=1 to 2 do
for j:=1 to 2 do
begin
write ('nilai [',i,',',j,']=') ;
readln (x[i,j]);
end;
writeln;
writeln('bentuk matriks');
for i:=1 to 2 do
begin
for j:=1 to 2 do
write (x[i,j]:4);
writeln;
end;
writeln;
writeln ('invers latriks');

y[1,1] :=x[2,2];
y[1,2]:=-(x[1,2]);
y[2,1]:=-(x[2,1]);
y[2,2]:=x[1,1];
for i:=1 to 2 do
begin
for j:=1 to 2 do
write (y[i,j]:4);
writeln;
end;
end.

Kebalikan Matrik Identitas

program matrik;

uses wincrt;

var

   A,B,C:Array[1..10,1..10] of integer;

   X,Y,Kol,Bar:integer;

begin

for x:=1 to 5 do

begin

for y:=1 to 5 do

begin

          C[X,Y]:=0;

          if X+Y=6 then C[X,Y]:=1;

          write(C[X,Y]:4);

     end;

     writeln;

end;

end.

Perkalian Matrik

Program kali_matriks;
uses wincrt;
type
matriksint = array [1..20,1..20] of integer;
var
M,a,b : matriksint; p , q: integer;

procedure bacamatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j: integer;
begin
for i:=1 to Nbar do
begin
for j:= 1 to Nkol do
begin
write ('M[',i,',',j,'] = ');readln (M[i,j]);
end;
end;
end;

procedure tulismatriks (var M:matriksint;Nbar,Nkol:integer);
var i,j : integer;
begin
for i:= 1 to Nbar do
begin
for j:= 1 to Nkol do
begin
write (M[i,j]);
end;
writeln;
end;
end;

procedure kalimatriks (a,b:matriksint; Nbar,Nkol : integer);
var
hasil:matriksint;
i,j,z : integer;
begin
for i := 1 to Nbar do
begin
for j := 1 to Nkol do
begin
hasil[i,j] := 0;
for z := 1 to Nbar do
hasil[i,j] := hasil[i,j]+a[i,z]*b[z,j];
begin
gotoxy (j*5,i*23);
write(hasil[i,j]) ;
end;
end;
writeln;
end;
end;

begin
writeln ('MATRIK A ');
write ('masukkan jumlah baris : '); readln (p);
write ('masukkan jumlah kolom : '); readln (q);
bacamatriks (a,p,q);
write ('A = ');
writeln;
tulismatriks (a,p,q);
writeln;
writeln ('MATRIKS B ');
write ('masukkan jumlah baris : '); readln (p);
write ('masukkan jumlah kolom : '); readln (q);
bacamatriks (b,p,q);
write ('B = ');
writeln;
tulismatriks (b,p,q);
writeln ('hasil perkalian matriks adalah : ');
kalimatriks (a,b,p,q);
end.

Setelah iPad 3, iPad Mini Dikabarkan Siap Meluncur

California, AS - Kehadiran iPad 3 belum juga dikonfirmasi, kini muncul kabar terbaru mengenai produk Apple lain yang juga ditunggu-tunggu. Apple diyakini bersiap meluncurkan iPad dengan ukuran layar lebih kecil atau sering disebut iPad mini pada kuartal ketiga tahun ini.

Laporan yang dilansir pertama kali oleh Digitimes ini menyebutkan, iPad mini sudah mulai diproduksi perusahaan Asia yang menjadi mitra Apple dan segera tersedia di pasar pada akhir tahun ini.

"Contoh produk sudah dikirimkan ke Apple untuk tahap penyelesaian. Produksi penuh dijadwalkan dimulai pada kuartal ketiga," demikian laporan Digitimes yang dikutip Jumat (2/3/2012).

Informasi yang diklaim berasal dari narasumber internal perusahaan mitra Apple ini juga menyebutkan iPad mini akan dibekali layar 7,85 inch dan siap menantang produk di segmen ini seperti Kindle Fire milik Amazon atau Nook dari Barnes & Noble.

Urusan harga pun tampaknya akan menjadi pertimbangan penting bagi Apple, dimana gadget ini akan dibanderol lebih murah dari rata-rata harga gadget Apple lain yang dikenal premium. Kisarannya diperkirakan USD 249 hingga USD 299.

Indonesia Game Festival 2012 Realm of The Titan Siap Saingi DoTA

Jakarta - DoTA memang sudah menjadi salah satu game strategi yang sangat digandrungi, namun Prodigy Infinitech mengklaim punya game yang lebih canggih yakni Realm of Realm. Seperti apa?

Tak ubahnya seperti DoTA, Realm of The Titan merupakan game Real Time Strategi (RTS) yang memang menitikberatkan kepada kekompakan tim atau perorangan soal bersiasat strategi. Kabarnya game ini dibuat oleh para penggemar berat DoTa yang punya segudang prestasi.

"Game ini dibuat oleh para gamer profesional yang sudah banyak malang melintang menjuarai turnamen kelas dunia," kata Sony, General Manager PT Prodigy Infinitech.

Realm of The Titan sendiri menceritakan tentang pertarungan dua kubu yakni The Guardians dan The Harbingers. Baku hantam antar kelompok pun kian seru karena berlangsung di dunia fiksi bernama Omeka.

Dibanding DoTA, game ini diklaim punya sejumlah fitur canggih tiada banding seperti Advance Match Making, Boss System, Achievement System, Replay Game Footage, Titan Sklill, Auctions Sytem, dan Mount System.

"Kami juga punya fitur yang akan menggantikan pemain dengan bot jika koneksi tiba-tiba terputus dan akan kembali ke tangan pemain kalau sudah online kembali. Jadi tim akan tetap bisa bermain," jelas Sony, di sela-sela gelaran Indonesia Game Festival 2012 di JCC, 29 Februari - 4 Maret 2012.

Sayangnya Sony masih enggan menyebutkan soal jadwal perilisan game tersebut, "Pokonya kami usahakan secepat mungkin," tandas pria berkacamata itu.

1 Hari, Windows 8 Consumer Preview Tembus 1 Juta Download

Washington, AS - Dalam kurun waktu 24 jam setelah dirilis Windows 8 Consumer Preview telah diunduh satu juta kali. Tentu ini menjadi kabar gembira buat Microsoft, mengetahui sistem operasi terbarunya yang masih versi beta tersebut disambut baik.

Melalui akun Twitter resmi Microsoft, tim pengembangan Windows 8 menyampaikan kabar ini melalui tweet sederhana, Kamis waktu setempat. "One day later... one million downloads of the consumer preview," tulis mereka.

Consumer Preview merupakan pengembangan dari Developer Previe yang dirilis September silam. Microsoft akan terus mengembangkannya secara bertahap hingga pada akhirnya siap dirilis untuk tablet, laptop maupun desktop akhir tahun ini.

Dilansir Los Angeles Times, Jumat (2/3/2012) Microsoft sengaja memberikan bocoran fitur Windows 8, terutama kepada para developer agar mereka mulai menggunakannya dan membuat berbagai aplikasi yang bisa digunakan di perangkat berbasis layar sentuh maupun yang menggunakan keyboard, trackpad dan mouse.

Sejak kemarin, Microsoft mengumumkan ketersediaan Windows 8 Consumer Preview bagi pengguna yang penasaran mencicipi seperti apa Windows 8. Preview dari Windows 8 dapat diunduh melalui tautan http://preview.windows.com.

Apple Jadi Perusahaan Paling Dikagumi Sedunia

Washington, AS - Apple memuncaki daftar urutan perusahaan yang paling dikagumi di dunia versi majalah Fortune, selama lima tahun berturut-turut.

Perusahaan yang kini dipimpin Tim Cook tersebut dinilai memenuhi seluruh kriteria antara lain inovasi, manajemen sumber daya, penggunaan aset perusahaan, tanggung jawab sosial, kualitas manajemen, kondisi finansial kualitas produk dan layanan serta daya saing global.

Dilansir AFP, Jumat (2/3/2012), selain Apple, Google pun ikut berada di daftar ini pada posisi nomor kedua, kemudian disusul Amazon di urutan ketiga.

Google sendiri telah berada di urutan kedua selama tiga tahun berturut-turut, sementara Amazon naik dari posisi sebelumnya di peringkat ketujuh. Survei ini melibatkan penilaian dari 3.855 eksekutif bisnis, para direktur dan analis keamanan.

Setelah tiga besar urutan selanjutnya ditempati perusahaan terkemuka lainnya seperti Coca-Cola, IBM, FedEx, Berkshire Hathaway, Starbucks, Procter & Gamble dan Southwest Airlines.

J2ME Java Mobile

J2ME Adalah sebuah kombinasi yang terbentuk antara sekumpulan interface Java yang sering

disebut dengan Java API ( Aplication Programming Interface) dengan JVM (Java Virtual

Machine) yang khusus didesain untuk sebuah perangkat, yaitu JVM dengan ruang yang

terbatas. Kombinasi tersebut kemudian digunakan untuk melakukan pembuatan aplikasi

aplikasi yang dapat berjalan di atas alat mobile device.

Terbitkan Entri

J2ME sendiri pada dasarnya terbagi dalam tiga bagian yaitu:

Konfigurasi.
Profil.
Paket paket opsional.

Selengkapnya silahkan klik link ini..

You might also like:

• Java Application Programming Interface (Java API)
• Java Virtual Machine (JVM)
• Teknologi Wireless Java
• Perulangan for dalam JAVA