Vetores intercalados..

[rojaum 0]

bem alguem pode me ajudar na resolução deste algoritmo (em pascal)...

 

o algoritmo deve ler dois vetores (A e B) de 4 valores cada e com um terceiro vetor ©

informar os valores de A e B intercalados.

 

ex: vetA -> 1, 3, 5, 7

vetB -> 2,4,6,8

 

vetC -> 1, 2, 3, 4, 5, 6, 7, 8

 

ps: consegui fazer, mas sem utilizar a variavel vetC.

segue ae:

 

type

vetor = array[1..4] of integer;

vetor2 = array[1..8] of integer;

var

vetA, vetB: vetor;

vetC: vetor2;

i: integer;

begin

for i := 1 to 4 do

begin

writeln('informe os valores para o vetor A: ');

readln(vetA);

end;

for i := 1 to 4 do

begin

writeln('informe os valores para o vetor B: ');

readln(vetB);

end;

writeln('Valores Intercalados em Vetor C sao: ');

writeln(vetA[1], ' | ', vetB[1], ' | ', vetA[2], ' | ',vetB[2], ' | ',vetA[3]

, ' | ',vetB[3], ' | ',vetA[4], ' | ',vetB[4]);

 

readln;

readln;

end.

 

reparem que nao utilizei o type vetor2 e a variavel vetC.

 

se puderem ajudar...t+ http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[ricci ottadnot 4]

ow velhinho...

 

você apenas tera q fazer mais um for que vai ser o q vai controlar as atribuiçoes ao vetor C

type  vetor = array[1..4] of integer;  vetor2 = array[1..8] of integer;var  vetA, vetB: vetor;  vetC: vetor2;  i,j: integer;beginwriteln('informe os valores para o vetor A: ');for i := 1 to 4 do    readln(vetA[i]);writeln('informe os valores para o vetor B: ');for i := 1 to 4 do   readln(vetB[i]);{** INTERCALANDO **}j := 1;for i := 1 to 4 dobegin  vetC[j] := vetA[i];  j := j + 1;  vetC[j] := vetB[i];  j := j + 1;end;{******************}writeln('Valores Intercalados em Vetor C sao: ');for i := 1 to 8 do   write(vetC[i],' ');readkey;end.

Veja q apenas implementei o codigo onde esta destadaco..

você tera um variavel q vai controlando o vetC (no caso a "j") e outra q controla os indices dos vetores vetA e vetB (no caso a "i")...

simples neh...

[rojaum 0]

ricci....vlw velhoooo =Deh q pra qm ta começando pequenos detalhes viram grandes detalhes....hihihimas valeu ae, abraço!!!