Concatenação de vetor (delphi) -

[Western 0]

N consegui armazenar a uniao no 3o vetor!!!

 

 

Faça um programa que lê 2 vetores de 5 elementos cada. Crie um terceiro vetor que seja a união dos 2 vetores. Mostre o terceiro vertor.

 

type

vet=array [1..5] of integer;

vet2=array [1..10] of integer;

var

veta,vetb:vet;

vetc:vet2;

i:integer;

 

begin

for i:=1 to 5 do

begin

write('Digite um valor ',i, ' do VETOR 1: '); readln(veta);

end;writeln;

for i:=6 to 10 do

begin

write('Digite um valor ',i, ' do VETOR 2: '); readln(vetb) ;

end;writeln;

 

for i:= 1 to 5 do

begin

vetc:=veta;

end;

for i:= 6 to 10 do

begin

vetc:=vetb;

end;

 

for i:= 1 to 10 do

begin

writeln(vetc);

end;

 

 

end.

 

//nao sei pq n funcionou!!!

[Kandrade 7]

não manjo de Delphi, mas tenta assim:

 

typevet=array [1..5] of integer;vet2=array [1..10] of integer;varveta,vetb:vet;vetc:vet2;i:integer;j:integer;beginfor i:=1 to 5 dobeginwrite('Digite um valor ',i, ' do VETOR 1: '); readln(veta[i]);end;writeln;for i:=1 to 5 dobeginwrite('Digite um valor ',i, ' do VETOR 2: '); readln(vetb[i]); //aqui estava seu erroend;writeln;for i:= 1 to 5 dobeginvetc[i]:=veta[i];end;j=6;for i:= 1 to 5 dobeginvetc[j]:=vetb[i];j++;end;for i:= 1 to 10 dobeginwriteln(vetc[i]);end;end.

[Western 0]

não manjo de Delphi, mas tenta assim:

typevet=array [1..5] of integer;vet2=array [1..10] of integer;varveta,vetb:vet;vetc:vet2;i:integer;j:integer;beginfor i:=1 to 5 dobeginwrite('Digite um valor ',i, ' do VETOR 1: '); readln(veta[i]);end;writeln;for i:=1 to 5 dobeginwrite('Digite um valor ',i, ' do VETOR 2: '); readln(vetb[i]); //aqui estava seu erroend;writeln;for i:= 1 to 5 dobeginvetc[i]:=veta[i];end;j=6;for i:= 1 to 5 dobeginvetc[j]:=vetb[i];j++;end;for i:= 1 to 10 dobeginwriteln(vetc[i]);end;end.

Nao funcionou tbm...da maneira q eu fiz ele armazenou so vetor 1tipowveta{12345}vetb{678910}vetc{1234500000} //ficou assim o terceiro vetor...

[Western 0]

Consegui ..foi so criar um outro vetor....estava usando o mesmo vetor para os dois..foi so criar um de 1..6 q resolveu nem prescisou mexer no resto do algoritimo..typevet=array [1..5] of integer;vet1=array [6..10] of integer; //criei esse vetor de 6..10vet2=array [1..10] of integer;varveta:vet;vetb:vet1; //e atribui a essa variavelvetc:vet2;i:integer;Valeu.

[Kandrade 7]

Ok.

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif