Pascal/Turbo Pascal - Búsqueda en array en pascal

   
Vista:

Búsqueda en array en pascal

Publicado por Juan (1 intervención) el 01/06/2013 12:44:49
Hola,
Necesito hacer un programa que busque en una matriz los números de 1 a n*n
esto es lo que tengo de momento, no se como hacer que una vez que encuentre uno pase directamente a buscar el siguiente.

1
2
3
4
5
6
7
8
9
while (k<=(sqr(n))) do begin
           for i:=1 to n do begin
               for j:=1 to n do begin
                        (k=matriz[i,j])
 
               end;
           end;
 
     end;


Gracias
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

Búsqueda en array en pascal

Publicado por ramon (2072 intervenciones) el 02/06/2013 14:51:51
A ver si tienes una matriz de 1 .. n * n me estas diciendo que es un array de 1 a n * n tamaño
ejemplo:

n = 10;
aa : array[1..n*n] lo que sea;
eso me da un array de 1 a 100 lo que sea enteros, reales, caracteres, string .....

y lo que tu presentas en el programa es un vector de n..n o sea

vector : array[1..n,1,,n] cual de los dos es correcto.

Uno seria :

for t := 1 to n do
begin
for d := 1 to n do
begin
write(' ',vector[t,d]);
end;
writeln;
end;

esto recorrería el vector completo o sea te divujaria un cuadrado de 10 * 10 lo que sea.

El otro seria:

for t := 1 to n * n do
begin
write(' aa[t]);
{en búsqueda seria}
if aa[t] = nu then
write(' aa[t]); {imprimiría el numero encontrado y se gira buscando otro igual}
end;

en llena ria la pantalla con 10 lo que sea.
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