program matrik_dua_dimensi; uses wincrt; const jbaris=2; jkolom=2; type matrik = array [1..jbaris,1..jkolom] of integer; var A,B,C: matrik; j,k : integer; procedure baca_matrik ( var A:matrik; jbaris,jkolom: integer); begin {mengisi matrik A} writeln... [Read Post]
02 Feb 2008, 11:37 |
More from Satya Sembiring :
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...
02 Feb 2008 11:35
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
