![Finalmente ejecutamos el programa de verificación de cedula.
Y verifica la cedula
Codigo
Program UNEFA;
Uses crt;
Type
Tnom = array[1..8] of string[20];
Tcedu = array[1..8] of longint;](https://image.slidesharecdn.com/compiladores5-170428204646/85/Compiladores5-3-320.jpg)
![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 NOMBRE Nº ',I,' :');
readln(Vnom[I]);
writeln('INTRODUZCA 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('CEDULA EXISTENTE Nº:');
readln(cedu);
end;](https://image.slidesharecdn.com/compiladores5-170428204646/85/Compiladores5-4-320.jpg)
![if esiste = false then
Vcedu[I] := cedu;
until esiste = false;
end;
writeln('Terminacion Entradas');
Readkey;
END.
if erro > 0 then
begin
delete(nume,erro,1);
val(nume,elnume,erro);
end;
end.](https://image.slidesharecdn.com/compiladores5-170428204646/85/Compiladores5-5-320.jpg)
Compiladores5
- 1. PONTIFICIA UNIVERSIDAD CATÓLICA DEL ECUADOR SEDE IBARRA SANTIAGO GUZMAN TRABAJO DE COMPILADORES TURBO PASCAL Para instalar descargamos el programa Dos Box y procedemos a ejecutar los siguientes comandos para que pueda ejecutar Turbo Pascal en Windows 10 Al finalizar guardamos las operaciones y automáticamente se abrirá Turbo Pascal En un bloc de notas insertamos el código y guardamos en la siguiente dirección C:TurboBIN con la extensión .pas
- 2. Reiniciamos Dos box y damos click en abrir para buscar el ejercicio previamente guardado. Ejecutamos Run
- 3. Finalmente ejecutamos el programa de verificación de cedula. Y verifica la cedula Codigo Program UNEFA; Uses crt; Type Tnom = array[1..8] of string[20]; Tcedu = array[1..8] of longint;
- 4. 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 NOMBRE Nº ',I,' :'); readln(Vnom[I]); writeln('INTRODUZCA 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('CEDULA EXISTENTE Nº:'); readln(cedu); end;
- 5. if esiste = false then Vcedu[I] := cedu; until esiste = false; end; writeln('Terminacion Entradas'); Readkey; END. if erro > 0 then begin delete(nume,erro,1); val(nume,elnume,erro); end; end.