Pascal: Latihan Procedure
3 Responses
Berikut ini merupakan latihan procedure untuk menukarkan nilai melalui paramater by reference dan parameter by value: Program Tukar_Array; Uses WinCrt; Type Baris = Array [1..100] of integer; Var A,B : Baris; i ,n: byte; Procedure TukarVar(Var x,y :integer); Var Temp:Integer; Begin Temp :=x; x:=y; y:=Temp; End; Procedure TukarArr(Var A,B : Baris;N:byte); Var j:byte; Begin For j:= 1 to N... [ Continue reading... ]