Pascal/Turbo Pascal - Recursividad en Pascal

 
Vista:

Recursividad en Pascal

Publicado por Dj luvex (15 intervenciones) el 08/06/2001 19:17:54
Hola, ojala alguien sepa o se le ocurra como encontrar un valor dentro de una matriz usando SOLAMENTE RECURSIVIDAD. Quizan algun fuente, nose, pero una ayudita no estaria nada de mal, 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

RE:Recursividad en Pascal

Publicado por Kaiser (33 intervenciones) el 08/06/2001 22:54:34
Prueba a ver si esto te funciona, acabo de hacerlo ahora a pelo y no tengo mi maravillo freepascal ;) a mano, espero q funcione

TYPE
tdato=loquequieras;
tarray=array [1..N] of tdato;
.....
function existe (dato:tdato; matriz:tarray; i:integer):boolean;
begin
if matriz[i]=dato
then existe:=true
else if i=N
then existe:=false
else existe:=existe(dato,matriz,i+1);
end;
...
...
BEGIN
i:=1; {debes poner i = 1 para que empieze por el principio}
existe(dato,matrix,i);
....
END.

espero q te funcione...
chao
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