Instalación de turbo pascal
0 recomendaciones81 vistas
Este documento contiene dos códigos en Pascal. El primer código genera un programa que permite ingresar los valores de un vector, calcular la suma y promedio de estos valores e imprimirlos. El segundo código corresponde a un validador de cédula de identidad ecuatoriana que permite ingresar los dígitos de una cédula, realiza operaciones sobre estos valores para obtener un número y verificar si coincide con el último dígito de la cédula.
![CÓDIGO:
PROGRAM EJER81;
USES CRT;
VAR arr_num:ARRAY [4..14] of INTEGER;
VAR suma,i:INTEGER;
VAR promedio: REAL;
BEGIN
ClrScr;
suma:=0;
FOR i:=4 TO 14 DO
BEGIN
arr_num[i]:=i;
suma:=arr_num[i]+suma;
END;
promedio:=suma/11;
FOR i:=4 TO 14 DO
BEGIN
WRITELN('Numero: ',arr_num[i]);
END;
WRITELN('La suma es=', suma);
WRITELN('el promedio es=', promedio);
READLN;
END.
Código del algoritmo de validador de la cédula de identidad en Pascal.](https://image.slidesharecdn.com/instalacindeturbopascal-170502163642/85/Instalacion-de-turbo-pascal-7-320.jpg)
![CÓDIGO
program ejercicio;
USES CRT;
VAR arr_num: ARRAY[1..10] of INTEGER;
VAR arr_aux: ARRAY[1..10] of INTEGER;
VAR arr_mul: ARRAY[1..10] of INTEGER;
VAR suma,i,numero:INTEGER;
VAR promedio: REAL;
VAR MENSAJE:STRING[20];
BEGIN
ClrScr;
suma:=0;
FOR i:=1 TO 10 DO
BEGIN
WRITELN('Ingrese los números de la cedula');
readln(numero);
arr_num[i]:=numero;
END;
arr_aux[1]:=2;
arr_aux[2]:=1;
arr_aux[3]:=2;
arr_aux[4]:=1;
arr_aux[5]:=2;
arr_aux[6]:=1;
arr_aux[7]:=2;
arr_aux[8]:=1;
arr_aux[9]:=2;
FOR i:=1 TO 10 DO
BEGIN
arr_mul[i]:=arr_num[i]*arr_aux[i];
END;
FOR i:=1 TO 10 DO
BEGIN](https://image.slidesharecdn.com/instalacindeturbopascal-170502163642/85/Instalacion-de-turbo-pascal-8-320.jpg)
![IF(arr_mul[i]>9)THEN
arr_mul[i]:=arr_mul[i]-9;
END;
FOR i:=1 TO 10 DO
BEGIN
suma:=arr_mul[i]+suma;
END;
IF(suma<10)THEN
suma:=10-suma
ELSE
IF(suma<20)THEN
suma:=20-suma
ELSE
IF(SUMA<30)THEN
SUMA:=30-SUMA
ELSE
IF(SUMA<40)THEN
SUMA:=40-SUMA
ELSE
IF(SUMA<50)THEN
SUMA:=50-SUMA;
IF(SUMA=arr_num[10])THEN
WRITELN('ECUATORIANO')
ELSE
WRITELN('NO ES ECUATORIANO');
READLN;
END.](https://image.slidesharecdn.com/instalacindeturbopascal-170502163642/85/Instalacion-de-turbo-pascal-9-320.jpg)
Instalación de turbo pascal
- 1. PONTIFICIA UNIVERSIDAD CATÓLICA DEL ECUADOR SEDE IBARRA Nombre: Liliana Chisaguano Nivel: 5to Semestre Materia: Compiladores Fecha: 02/05/2017 INSTALACIÓN DE TURBO PASCAL
- 6. Una vez instalado con el manual registrado en el aula virtual, codifique el programa que permita ingresar la dimensión de un vector y luego ingresar por teclado dichos valores y obtener la suma y el promedio e imprimirlos a pantalla.
- 7. CÓDIGO: PROGRAM EJER81; USES CRT; VAR arr_num:ARRAY [4..14] of INTEGER; VAR suma,i:INTEGER; VAR promedio: REAL; BEGIN ClrScr; suma:=0; FOR i:=4 TO 14 DO BEGIN arr_num[i]:=i; suma:=arr_num[i]+suma; END; promedio:=suma/11; FOR i:=4 TO 14 DO BEGIN WRITELN('Numero: ',arr_num[i]); END; WRITELN('La suma es=', suma); WRITELN('el promedio es=', promedio); READLN; END. Código del algoritmo de validador de la cédula de identidad en Pascal.
- 8. CÓDIGO program ejercicio; USES CRT; VAR arr_num: ARRAY[1..10] of INTEGER; VAR arr_aux: ARRAY[1..10] of INTEGER; VAR arr_mul: ARRAY[1..10] of INTEGER; VAR suma,i,numero:INTEGER; VAR promedio: REAL; VAR MENSAJE:STRING[20]; BEGIN ClrScr; suma:=0; FOR i:=1 TO 10 DO BEGIN WRITELN('Ingrese los números de la cedula'); readln(numero); arr_num[i]:=numero; END; arr_aux[1]:=2; arr_aux[2]:=1; arr_aux[3]:=2; arr_aux[4]:=1; arr_aux[5]:=2; arr_aux[6]:=1; arr_aux[7]:=2; arr_aux[8]:=1; arr_aux[9]:=2; FOR i:=1 TO 10 DO BEGIN arr_mul[i]:=arr_num[i]*arr_aux[i]; END; FOR i:=1 TO 10 DO BEGIN
- 9. IF(arr_mul[i]>9)THEN arr_mul[i]:=arr_mul[i]-9; END; FOR i:=1 TO 10 DO BEGIN suma:=arr_mul[i]+suma; END; IF(suma<10)THEN suma:=10-suma ELSE IF(suma<20)THEN suma:=20-suma ELSE IF(SUMA<30)THEN SUMA:=30-SUMA ELSE IF(SUMA<40)THEN SUMA:=40-SUMA ELSE IF(SUMA<50)THEN SUMA:=50-SUMA; IF(SUMA=arr_num[10])THEN WRITELN('ECUATORIANO') ELSE WRITELN('NO ES ECUATORIANO'); READLN; END.