Pascal: Latihan Procedure
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 do
TukarVar(A[j],B[j]);
end;
Procedure Input(Var C: Baris;N:byte);
Begin
for i := 1 to n do
begin
Write('Elemen [',i,'] : ');
readln(C[i]);
end;
end;
Procedure Tulis(A,B: Baris;N:byte);
Begin
Writeln('Index':5,'ARRAY A':15,'ARRAY B':10);
for i := 1 to n do
Writeln(i:5,A[i]:10,B[i]:10);
Writeln;
end;
Begin
Writeln('PROGRAM TUKAR ISI ARRAY');
Writeln('=======================');
Write('Masukkan banyaknya index : ');
readln(n);
Writeln;
Writeln('ARRAY A : ');
Input(A,n);
Writeln('ARRAY B : ');
Input(B,n);
clrscr;
Writeln('Sebelum Ditukar Menjadi :');
Tulis(A,B,N);
readkey;
Writeln('Setelah Ditukar Menjadi :');
TukarArr(A,B,n);
Tulis(A,B,N);
Write('Press Any Key to Exit...');
readkey;
DoneWinCrt;
end.
Semoga Bermanfaat
3 Responses
Free Email Newsletter
Stay Updates with this Blog. Get Free email newsletter updates..
And then confirm your email subcription
3 Comments to “Pascal: Latihan Procedure”
Program Tukar_Array;
Uses WinCrt;
Type
Baris = Array [1..10,1..10] of integer;
Var
A,B : Baris;
i,j ,n,m: 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,m:byte);
Var
i,j:byte;
Begin
for i := 1 to n do
for j := 1 to m do
TukarVar(A[i,j],B[i,j]);
end;
Procedure Input(Var C: Baris;n,m:byte);
Begin
for i := 1 to n do
for j := 1 to m do
begin
Write(‘Elemen [‘,i,’,’,j,’] : ‘);
readln(C[i,j]);
end;
end;
Procedure Tulis(A,B: Baris;n,m:byte);
Begin
Writeln(‘Index’:5,’ARRAY A’:15,’ARRAY B’:10);
for i := 1 to n do
for j := 1 to m do
Writeln(i:2,j:2,A[i,j]:5,B[i,j]:5);
Writeln;
end;
Procedure Tulis2(C: Baris;n,m:byte);
Begin
for i := 1 to n do
begin
for j := 1 to m do
Write(C[i,j]:5);
Writeln;
end;
end;
Begin
Writeln(‘PROGRAM TUKAR ISI MATRIKS’);
Writeln(‘=======================’);
Write(‘Masukkan ordonya : ‘);
readln(n,m);
Writeln;
Writeln(‘ARRAY A : ‘);
Input(A,n,m);
Writeln(‘ARRAY B : ‘);
Input(B,n,m);
clrscr;
Writeln(‘Sebelum Ditukar Menjadi :’);
Writeln(‘Matriks A:’);
Tulis2(A,n,m);
Writeln(‘Matriks B:’);
Tulis2(B,n,m);
readkey;
Writeln(‘Setelah Ditukar Menjadi :’);
TukarArr(A,B,n,m);
Writeln(‘Matriks A:’);
Tulis2(A,n,m);
Writeln(‘Matriks B:’);
Tulis2(B,n,m);
Write(‘Press Any Key to Exit…’);
readkey;
DoneWinCrt;
end.
TUGAS TAMBAHAN:
“Membuat Program Perkalian Matriks dengan menggunakan Procedure”
Catatan: Minggu depan ditampilkan.
pertama. Good
Keduanya. Good Good
Ketiganya. Good Good Good