Turbo pascal

INSTALACION

1. 1. DATOS INFORMATIVOS
1.1 Nombre: Gabriel Solano
1.2 Carrera: Sistemas
1.3 Nivel: 5to
1.4 Tema: Instalación Turbo Pascal
1.5 Fecha: 28/04/2017

2. DESCRIPCION
INSTALACION TURBO PASCAL

1.- Descargar de la página Oficial el programa http://www.windows8downloads.com/win8-
dosbox-auifqjbh/ y ejecutar el instalador, además descarga
http://www.windows8downloads.com/win8-turbo-pascal-zwvcqirw/ y pégalo en el directorio
de tu elección C:\Turbo

2. 2.- Instala el programa dosbox y abre Dosbox 0.74 Options y al final de todo agrega

3. 3.- Guarda y ejecuta Dosbox y automáticamente se ejecutara Turbo Pascal

4.- Crea un bloc de notas y gúardalo en C:\Turbo\BIN con la extensión .pas

4. 5.- Reinicia Dosbox y haz click en Abrir, encontraras el ejercicio


6.- CLick en Run

CODIGO
PROGRAM EJER81;
USES CRT;

5. 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.

6. EJERCICIO
VALIDACION DE LA CEDULA

CODIGO
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

7. clrscr;
writeln('INGRESE UN NOMBRE Nº ',I,' :');
readln(Vnom[I]);
writeln('INGRESE SU 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 Nº:');
readln(cedu);
end;
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;

8. end.