Program Menukar Dua Buah Larik
Program Menukar_dua_buah_larik;
uses wincrt;
type
Larik = Array[1..200] of Integer;
var
A,B,C : Larik;
i,N, tmp, mak : byte;
begin
writeln(’===========================================’);
writeln(’PROGRAM MENUKAR DUA BUAH LARIK’);
writeln(’===========================================’);
randomize;
writeln;
write(’Masukkan Jumlah INDEKS LARIK: ‘);readln(N);
writeln(’Data LARIK A’);
for i:=1 to N do
begin
write(’A[’,i,’] = ‘);readln(A[i]);
end;
writeln;
writeln;
writeln(’Data LARIK B’);
for i:=1 to N do
begin
write(’B[’,i,’] = ‘);readln(B[i]);
end;
{proses Penukaran 2 buah Array}
for i:=1 to N do
begin
C[i]:=B[i];
B[i]:=A[i];
A[i]:=C[i];
end;
writeln;
writeln;
writeln(’Data LARIK A setelah saling tukar’);
for i:=1 to N do
write(A[i]:4);
writeln;
writeln;
writeln;
writeln(’Data LARIK B setelah saling tukar’);
for i:=1 to N do
write(B[i]:4);
writeln;
readkey;
donewincrt;
end.
