Turbo pascal
1 recomendación74 vistas
El documento describe la instalación de Turbo Pascal en Windows 8. Incluye descargar e instalar Dosbox y Turbo Pascal, agregar una línea al archivo de opciones de Dosbox, y crear y ejecutar programas Pascal desde dentro de Dosbox. También incluye dos ejemplos de código Pascal, uno para calcular el promedio de números y otro para validar cédulas.
![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.](https://image.slidesharecdn.com/turbopascal-170428204649/85/Turbo-pascal-5-320.jpg)
![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](https://image.slidesharecdn.com/turbopascal-170428204649/85/Turbo-pascal-6-320.jpg)
![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;](https://image.slidesharecdn.com/turbopascal-170428204649/85/Turbo-pascal-7-320.jpg)
Turbo pascal
- 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:TurboBIN 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.