Estou iniciando na programação, neste momento comecei a estudar ARRAY.
Alguém pode me ajudar com o seguinte problema?
atribuir valores a 2 vetores A e B com 25 elementos cada, e no vetor C com 50 elementos devo fazer a intercalação dos vetores A e B conforme exemplo abaixo.
A= 1 2 3
B= 7 8 9
Resultado
C= 1 7 2 8 3 9
Consegui chega nisso aqui, está até imprimindo na tela o que quero, porém não está armazenando coretamente em C.
Neste caso fiz apenas com 3 elementos para A , B e 6 elementos para C.
Program Pzim ;
var
matrizA: array[1..3] of integer;
matrizB: array[1..3] of integer;
matrizC: array[1..6] of integer;
i, j, k, l, n, o:integer;
Begin
for i := 1 to 3 do
begin
n:=random(3);
matrizA:=n;
writeln( ' A ',matrizA ) ;
end;
writeln( ' ' ) ;
for i := 1 to 3 do
begin
o:=random(3);
matrizB:=o;
writeln( ' B ',matrizB ) ;
end;
writeln( ' ' ) ;
for j := 1 to 3 do
begin
for i := 1 to 1 do
begin
matrizC:=matrizA[j];
k:=i+1;
end;
writeln( ' c ',matrizC ) ;
for i := k to k do
begin
matrizC:=matrizB[j];
end;
writeln( ' c ',matrizC ) ;
end;
for l := 1 to 6 do
write(#177, matrizC[l] ) ;
End.
O código está bem primário, mas creio que vai melhorar com o passar dos dias. rsrsrsrsrs