Uses wincrt ; Function Hitung ( X, Y, Z : integer ) : integer ; Begin Z := X+Y ; Writeln ( ‘ Nilai X = ‘, X ) ; Writeln ( ‘ Nilai Y = ‘, Y ) ; Writeln ( ‘ Nilai Z = ... [Read Post]
02 Feb 2008, 11:34 |
More from Satya Sembiring :
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...
02 Feb 2008 11:31
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
