Pascal/Turbo Pascal - Ayuda con vectores!!!

   
Vista:

Ayuda con vectores!!!

Publicado por Delfina (1 intervención) el 07/07/2011 19:50:28
Insertar los componentes d eun vector B, dentro de un vector A
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con vectores!!!

Publicado por ramon (2072 intervenciones) el 09/07/2011 20:45:32
{Espero se esto lo que quieres modo simple y rápido pero se copia todo el vector}

program vectores;
uses
crt;
var
vector1, vector2 : array[1..20,1..20] of integer;
x1, y1 : integer;

procedure rellena_vector;
var
x, y : integer;
begin
for x := 1 to 20 do
for y := 1 to 20 do
begin
vector1[x,y] := (x * y);
end;
for x := 1 to 20 do
for y := 1 to 20 do
write(' ',vector1[x,y]);
end;

begin
clrscr;
writeln('contenido vector1');
writeln;
rellena_vector;
move(vector1,vector2,sizeof(vector1));
writeln;
writeln;
writeln('contenido vector2');
writeln;
for x1 := 1 to 20 do
for y1 := 1 to 20 do
write(' ',vector2[x1,y1]);
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar