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... [Read Post]
02 Feb 2008, 09:02 |
More from Satya Sembiring :
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
XL mencari pelanggan baru PT Excelcomindo Pratama Tbk (XL) berambisi mengejar tambahan 20% pelanggan baru dari 15,5 juta pelanggan yang dimiliki saat ini dengan menawarkan kualitas jaringan layanan serta skema tarif promosi Rp 0,1 per detik. Direktur Mark...
30 Jan 2008 14:52
