Uses wincrt ; Function Hitung ( var A, B, C : integer ) : integer ; Begin Hitung := A+B ; C := A * B ; End ; Var X, Y, Z : integer ; BEGIN Write ( ‘ Nilai X : ‘ ) ; rea... [Read Post]
02 Feb 2008, 11:35 |
More from Satya Sembiring :
Uses wincrt ; Function Hitung ( X, Y, Z : integer ) : integer ; Begin Z := X+Y ; Writeln ( ‘ Nilai X = ‘, X ) ; Writeln ( ‘ Nilai Y = ‘, Y ) ; Writeln ( ‘ Nilai Z = ...
02 Feb 2008 11:34
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
