Pascal/Turbo Pascal - Arreglo deNombres

   
Vista:

Arreglo deNombres

Publicado por Edwin (7 intervenciones) el 11/07/2010 20:16:19
Hola a todos, Estoy trabajando con un programa que usa una lista tipo arreglo, hasta ahi no tengo aproblemas, el detalle es que tambien kiero crear un procedimiento que me permita buscar un nombre en la lista, y que en caso de que no se encuentre en la lista me diga "Error, ese nombre no se encuentra en el arreglo".

Este es el codigo que estoy utilizando.
program problema2;
uses crt;
var
nombres:array[1..10] of string [25];
auxnombre,nombrecons:string[25];
cont:integer;
(*Procedimiento del Encabezado*)
procedure encabezado;
begin
textcolor(10);
writeln(' Universidad Pedagogica Nacional ');
Writeln(' Programacion Intermedia ');
writeln(' Lic. Jorge A. Miranda Paz ');
Writeln(' Alumno: Edwin Bautista ');
end;
(****************************************)
procedure consulta;
begin
for cont:=1 to 10 do
begin
auxnombre:=nombres[cont];
if auxnombre=nombrecons then
begin
writeln (nombres[cont])
end
else
writeln('Error, ese nombre no se encuentra en la Lista');
end;
end;
end;
(***************************)
(****aki leo al arreglo*)
begin
encabezado;
for cont:=1 to 10 do
begin
textcolor(14);
gotoxy(5,8);
clreol;
write('Escriba el ',cont,' nombre: ');
textcolor(White);
readln(nombres[cont]);
writeln();
end;
for cont:=1 to 10 do
begin
textcolor(13);
writeln(nombres[cont]);
end;
writeln();
write('ingrese el Nombre a consultar:');
readln(nombrecons);
consulta;
readln;
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:Arreglo deNombres

Publicado por epayan (6 intervenciones) el 12/07/2010 07:15:49
{te lo propondria asi , claro , hay muchas formas }

procedure consulta;
begin
clrscr;
write('Proporcione el nombre a consultar');
readln(nombrecons);
for cont:=1 to 10 do
begin
if nombres[cont]=nombrecons then
writeln ('El nombre ',nombres[cont],' Existe !'))
else
writeln('Error, ese nombre no se encuentra en la Lista');
end;
end;
end;
(***************************)
(****aki leo al arreglo*)
begin
encabezado;
for cont:=1 to 10 do
begin
textattr:=14+7*16; {con este sustituyes al textcolor y al textbackground}
gotoxy(5,8);write('Escriba el ',cont,' nombre: ');
readln(nombres[cont]);
end;

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