Uses wincrt ; Procedure Hitung ( Var A,b,c : integer ) ; Begin C := A+B ; End ; Var X, Y, Z : integer ; BEGIN X := 2 ; Y := 3 ; Hitung ( X, Y, Z ) ; Writeln ( ‘ X = ‘, X, ‘ Y= ‘, Y, ‘ Z = ‘, Z... [Read Post]
02 Feb 2008, 11:31 |
More from Satya Sembiring :
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; ...
02 Feb 2008 09:06
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
