Pascal/Turbo Pascal - necesito ayuda urgente con un programa

   
Vista:

necesito ayuda urgente con un programa

Publicado por PEDRO (8 intervenciones) el 29/01/2012 18:52:56
por favor AYUDENME necesito validar bien la entrada de la cedula a este programa, lo que necesito es que no se repita la cedula. aqui tengo el codigo, lo que hace es que ingreso la cedula repetida y el me avisa que ya existe pero el problema esta es cuando la vuelo y la ingreso repetida, me la acepta y la almacena en el vector y no deberia hacer eso. necesito que me ayuden soy novato en esto y no se como hacer para que funcione. GRACIAS.
Program UNEFA;
Uses crt;
Type
Tnom=array[1..8] of string[20];
Tcedu=array[1..8] of longint;

var
I,J,K,enc,resp,respues,integer;
cedu,cedu2,cd:longint;
Vnom:Tnom;
Vcedu:Tcedu;

BEGIN
clrscr;
For I:=1 to 3 do
begin
clrscr;
writeln('INTRODUZCA EL NOMBRE DEL BECARIO Nº ',I,' :');
readln(Vnom[I]);
writeln('INTRODUZCA EL NUMERO DE CEDULA:');
readln(cedu);
IF (cedu<>Vcedu[I-1]) then
Vcedu[I]:=cedu
else
begin
REPEAT
begin
writeln('LA CEDULA YA EXISTE POR FAVOR INGRESE OTRO Nº:');
readln(cedu2);
If (cedu2<>Vcedu[I]) then
begin
Vcedu[I]:=cedu2;
respues:=1
end
else
respues:=0
end;
UNTIL(respues=1);
end;
end;

Readkey;
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
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Calculadora
- Matrix
- Capicúa

necesito ayuda urgente con un programa

Publicado por ramon (2072 intervenciones) el 29/01/2012 21:59:48
{Esto ta Corrección te sirve}

Program UNEFA;
Uses crt;
Type
Tnom = array[1..8] of string[20];
Tcedu = array[1..8] of longint;

var
I,J,K,enc,resp,respues : integer;
cedu,cedu2,cd : longint;
Vnom : Tnom;
Vcedu : Tcedu;
esiste : boolean;

BEGIN
clrscr;
For I := 1 to 3 do
begin
clrscr;
writeln('INTRODUZCA EL NOMBRE DEL BECARIO Nº ',I,' :');
readln(Vnom[I]);
writeln('INTRODUZCA EL NUMERO DE CEDULA:');
readln(cedu);
repeat
esiste := false;
for j := 1 to i do
begin
IF (cedu = Vcedu[j]) then
begin
esiste := true;
end;
end;
if esiste = true then
begin
writeln('LA CEDULA YA EXISTE POR FAVOR INGRESE OTRO Nº:');
readln(cedu);
end;
if esiste = false then
Vcedu[I] := cedu;
until esiste = false;
end;
writeln('Terminacion Entradas');
Readkey;
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

necesito ayuda urgente con un programa

Publicado por PEDRO (8 intervenciones) el 30/01/2012 03:29:43
Muchisimas gracias por ayudarme
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