COMPILADORES
MANUAL DE INSTALACIÓN DE TURBO
PASCAL 7.0
QUINTO
ESCUELA DE INGENIERÍA
04-Mayo-2016
Abril 2016 – Agosto 2016
MANUAL DE INSTALACIÓN DE TURBO PASCAL 7.0
Ubicarse en la siguiente página https://www.windows8downloads.com/win8-turbo-
pascal-zwvcqirw/ una vez ahí ir a la dirección del 3 item.
Una vez en esta página ubicarse en el lugar de descarga y escoger la opción Mirrow
Dowload. Esperar mientras de descarga.
Ubicarse en el sitio de descargas y copiar la carpeta descargada a una nueva carpeta
que debemos de crear en el disco D y extraer todo en dicha carpeta.
Nos ubicamos en DOSBox Options hacemos doble click y se nos despliega un bloc de
notas en este ingresamos un par de líneas al finalizar cerramos y guardamos los
cambios realizados.
Iniciar DOSBox nos vamos a Options escogemos Directories y ubicamos la dirección
en donde se almacenaran nuestros proyectos.
EJERCICIOS
Codifique el programa que permita crear un vector y luego obtener la suma y el promedio e
imprimirlos a pantalla.
Presentar el código del algoritmo de validador de la cédula de identidad en PascaL.
CÓDIGO:
PROGRAM validarCed;
USES CRT;
VAR arr_num:ARRAY [1..10] of INTEGER;
VAR i,E,U,SUM,R:INTEGER;
VAR cedula,AUX:STRING;
BEGIN
ClrScr;
cedula:='';
READLN(cedula);
Val(COPY(cedula,10,1),U,E);
FOR i:=1 TO 9 DO
BEGIN
AUX:=COPY(cedula,i,1);
Val(AUX,arr_num[i],E);
if((i-1) mod 2=0)THEN
BEGIN
arr_num[i]:=arr_num[i]*2;
if(arr_num[i]>9)THEN
BEGIN
arr_num[i]:=arr_num[i]-9
END;
END;
SUM:=SUM+arr_num[i];
END;
WHILE NOT(SUM mod 10=0) DO
BEGIN
SUM:=SUM+1;
R:=R+1;
END;
IF(R=U) THEN
BEGIN
WRITELN('LA CEDULA INGRESADA ES VALIDA');
END
ELSE
BEGIN
WRITELN('LA CEDULA NO ES VALIDA');
END;
READLN;
END.