arrays pascal
Publicado por Charlie (1 intervención) el 07/12/2008 13:26:50
Necesito hacer este programa en pascal:
El programa tiene que pedir la dimension de dos arrays, que el usuario la introduzca, y luego que el usuario vaya escribiendo los valores de enteros que quiera,entre 0 y 9. Hasta ahi lo tengo hecho, el problema llega cuando me pide que tengo que tengo que meter todos los valores de esos dos arrays en un tercer array, sin numeros repetidos. Lo he intentado todo pero no lo consigo, como veo que hay muy buenos programadores por aqui, estaria muy agradecido si alguien me ayudara, por lo menos que me den alguna pista de lo que hay que hacer.
Por si vale de algo pongo lo mas importante que llevo del programa:
program arrays;
type
arr=array [0..50] of integer;
var
arrA,arrB,arrC : arr;
i,a,b,dim_A,dim_B:integer;
begin
writeln('Nº de valores para el arrA');
read(dim_A);
for i:=1 to dim_A do
begin
writeln('Valor para el arrA(entre 0-9)');
read(a);
arrA[i]:=a;
end;
writeln('Nº de valores para el arrB');
read(dim_B);
for i:=1 to dim_B do
begin
writeln('Valor para el arrB(entre 0-9)');
read(b);
arrB[i]:=b;
end;
end.
El programa tiene que pedir la dimension de dos arrays, que el usuario la introduzca, y luego que el usuario vaya escribiendo los valores de enteros que quiera,entre 0 y 9. Hasta ahi lo tengo hecho, el problema llega cuando me pide que tengo que tengo que meter todos los valores de esos dos arrays en un tercer array, sin numeros repetidos. Lo he intentado todo pero no lo consigo, como veo que hay muy buenos programadores por aqui, estaria muy agradecido si alguien me ayudara, por lo menos que me den alguna pista de lo que hay que hacer.
Por si vale de algo pongo lo mas importante que llevo del programa:
program arrays;
type
arr=array [0..50] of integer;
var
arrA,arrB,arrC : arr;
i,a,b,dim_A,dim_B:integer;
begin
writeln('Nº de valores para el arrA');
read(dim_A);
for i:=1 to dim_A do
begin
writeln('Valor para el arrA(entre 0-9)');
read(a);
arrA[i]:=a;
end;
writeln('Nº de valores para el arrB');
read(dim_B);
for i:=1 to dim_B do
begin
writeln('Valor para el arrB(entre 0-9)');
read(b);
arrB[i]:=b;
end;
end.
Valora esta pregunta
0