Pascal/Turbo Pascal - METODO DE BUSQUEDA

   
Vista:

METODO DE BUSQUEDA

Publicado por GIORDANI (8 intervenciones) el 28/01/2012 19:51:06
BUENAS TARDES PORFAVOR NECESITO UN METODO DE BUSQUEDA SENCILLO PARA ENCONTRAR UN NUMERO DE CEDULA EN UN ARRAY. LE AGRADEZCO SU COLABORACIÓN.
LO QUE ME PIDIERON FUE CONSULTAR LOS DATOS DE UN ALUMNO A PARTIR DE UNA CEDULA DADA.
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

METODO DE BUSQUEDA

Publicado por ramon (2072 intervenciones) el 29/01/2012 14:01:26
{Esto es lomas sencillo de búsqueda en un simple array}

program busqueda;
uses
crt;
var
num, i : integer;
dato : array[1..60] of word;
sal : boolean;

function rellena : boolean;
begin
for i := 20 to 80 do
dato[i - 19] := i;
rellena := true;
end;


begin
clrscr;
writeln(rellena);
writeln;
i := 1;
num := 60;
sal := false;
repeat
if num = dato[i] then
sal := true;
i := i + 1;
until (sal = true) or (i > 60);
if sal = true then
writeln(' Entrado N§ = ',num,' Encontrado = ',dato[i - 1])
else
writeln(' El N§ = ',num,' No Encontrado');
readln;

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

METODO DE BUSQUEDA

Publicado por GIORDANI (8 intervenciones) el 29/01/2012 15:31:15
muchas gracias esto es lo que necesito.
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