Manual turbo pascal
0 recomendaciones297 vistas
Este documento presenta instrucciones para instalar Turbo Pascal 7.0 en DOSBox y ejercicios de programación en Pascal. Instruye descargar e instalar el software en una carpeta de disco duro, configurar opciones de DOSBox para ejecutar proyectos, y presenta código para validar cédulas de identidad mediante un algoritmo y calcular promedio de valores en un vector.
![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;](https://image.slidesharecdn.com/manualturbopascal-160505233817/85/Manual-turbo-pascal-20-320.jpg)
Manual turbo pascal
- 1. COMPILADORES MANUAL DE INSTALACIÓN DE TURBO PASCAL 7.0 QUINTO ESCUELA DE INGENIERÍA 04-Mayo-2016 Abril 2016 – Agosto 2016
- 2. 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.
- 3. 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.
- 5. 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.
- 7. Iniciar DOSBox nos vamos a Options escogemos Directories y ubicamos la dirección en donde se almacenaran nuestros proyectos.
- 11. EJERCICIOS Codifique el programa que permita crear un vector y luego obtener la suma y el promedio e imprimirlos a pantalla.
- 18. Presentar el código del algoritmo de validador de la cédula de identidad en PascaL.
- 20. 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;
- 21. 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.