program cari_carian; uses wincrt; const ukuran = 20; type larik = array [1..20] of integer; var a: larik; x,kuncipencarian, elemen :integer; function pencarianlinear( aray:larik; kunci,ukuran:integer):integer; var ketemu:boolean; i,n:integer; ... [Read Post]
02 Feb 2008, 09:06 |
More from Satya Sembiring :
program buble_sort; uses wincrt; type larik = array [1..100] of integer; var jmldata: byte; data :larik; procedure input_data ( var data: larik; jmldata:byte); var i:integer; begin writeln(’masukkan data berupa angka’); for i:= 1...
02 Feb 2008 09:02
program kali_matrik; uses wincrt; const barisA =2; kolomA =2; barisB =2; kolomB =2; type matrikA = array [1..barisA, 1..kolomA] of integer; matrikB = array [1..barisB, 1..kolomB] of integer; matrikC = array [ 1..2, 1..2 ] of integer; var A: matrikA; B:...
02 Feb 2008 08:42
Kairo - Kerusakan kabel internet di laut Mediterania dilaporkan berdampak hebat pada aktivitas bisnis di sebagian wilayah Timur Tengah dan Asia. Hal ini karena kerusakan itu membuat kapasitas akses internet menjadi sangat minim untuk menunjang kegiatan bi...
01 Feb 2008 23:25
sejah abad ke-19, kegiatan manusia telah menimbulkan lebih dari 20 gempa bumi yang kuat, kata sebuah laporan dalam surat kabar jerman DIE ZEIT, penambangan adalah pemicu dari separuh gempa bumi tersebut. penyebab lain tampaknya adalah penyedotan gas , min...
01 Feb 2008 15:53
setiap tahun antara 10 dan 14 miliar amunisi diproduksi,” cukup untuk membunuh setiap orang di dunia ini dukali”, masing masing bangsa telah menganggarkan dana unuk militer bukan untuk kesehatan, dan pendidikan. apakah satu saatnanti j...
01 Feb 2008 15:44
