Pascal/Turbo Pascal - Necesito una pekeña ayuda!

   
Vista:

Necesito una pekeña ayuda!

Publicado por pascal!!8 (1 intervención) el 11/11/2008 20:42:59
EL ENUNCIADO ES ESTE!

Escribir un programa que rellene un vectorA de longitud predeterminada, con
valores enteros del 0 al 9. Otro vectorB también de longitud predeterminada, no
necesariamente igual que la del vectorB, con valores enteros del 0 al 9. Posteriormente,
debería obtener un nuevo vectorA que contenga los valores del vectorA y los del vectorB
ordenados mediante el método de la burbuja, donde no deben aparecer valores repetidos

La primera parte se como se hace:

Program burbuja;
const
MAX = 100;
type
tvector = array [1..MAX] of integer;

Var
vectorA , vectorB, vectorC : tvector;
elementosA, elementosB, elementosC, numValores : integer;

Procedure rellenar_vectorA(var vector : array of integer;
i, n : integer);
Begin
readln(n);
for i:=1 to n do
begin
writeln ("Introduzca un valor: ");
readln (vector[i]);
end;

Asi leo los vectores, el problema viene a la hora de colocar todos lo numeros en un vectorC, de forma q vectorA y VectorB esten uno a continuacion del otro! Y no solo eso sino que ademas hay q eliminar los repetidos.
Un Saludo.
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