Pascal/Turbo Pascal - arrays pascal

   
Vista:

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.
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

RE:arrays pascal

Publicado por susana (1 intervención) el 01/06/2009 23:51:23
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
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