Programacion - Manual - Apuntes de RM Cobol, Turbo Pascal y C++
Programacion - Manual - Apuntes de RM Cobol, Turbo Pascal y C++
INFORMATICA BASICA
La informática es manipular la información (Datos) en una
maquina.
│ Ordenador
Los dos campos │
│ Programas Nos moveremos aquí, utilizando el ordenador.
ORDENADOR Hardware Parte física. (Hard = Duro).
PROGRAMAS Software Parte lógica. (Soft = Blando).
La configuración básica de un ordenador está compuesta por:
Ordenador en sí Unidad Central de Proceso (U.C.P).
Maquina Aux.(Comunicación) Periféricos.
Es imprescindible la comunicación con el ordenador.
La U.C.P.- Es donde realmente se va a ordenar y procesar la
información.
PARTES DE LA U.C.P:
LA MEMORIA.- Para almacenar. Para manipular la información es
necesario almacenar la información.
UNIDAD DE CONTROL.- La información por si sola no vale para
nada, necesita un tipo de instrucciones.
UNIDAD DE ARITMETEREOLOGICA
Básicamente el ordenador hace │ Cálculos aritméticos.
│ Cálculos lógicos.
2 Un millón de hercios.
INFORMATICA PROGRAMACION
│
│8bits byte carácter
│ a= 01001101byte, 8bits
PERIFERICOS
DOBLE ALTA
5" 1/4 360 K. 40 p y 9 sect 1´2 Mg. 80 p y 15 sect
3" 1/2 720 K. 80 p y 9 sect 1´44 Mg. 80 p y 18 sect
- SOFTWARE -
Existe un software básico que nos resuelve el problema de
gestionar el funcionamiento del ordenador. SISTEMA OPERATIVO ->
Con el que trabajaremos, es el MS-DOS, se encuentra siempre
almacenado en un disco pero parte común de programas de gestión
están en el programa ROM. Todos los sistemas operativos están
compuestas de 2 partes.- 1. Control, que controla los
periféricos. 2. Servicio que ayuda al usuario. El MS-DOS es la
adaptación de 2 sistemas que había antes:
UNIX
CP/M <- Ya desaparecido.
Aparte de estos dos entran otras categorías:
APLICACIONES.- Son todos los programas específicos para resol-
ver tareas concretas.
LENGUAJES DE PROGRAMACION.- El ordenador inicialmente entiende
el binario pero dar las ordenes en binario es muy complejo por
eso se opto por crear un simbolismo para controlar ordenes.
Estos son los Lenguajes de programas.
El 1º fue el Ensamblador Códigos de tres letras que
simbolizaban instrucciones.
LENGUAJES DE PROGRAMACION
Específicos │ - Basic
INFORMATICA PROGRAMACION
│ - Cobol
│ - Pascal
1.- Compilados │ - Lisp
2.- Interpretes │ - Sql
│ - C
La compilación hace una traducción total y con anterioridad a
TIPOS DE SOFTWARE
Modos de explotación de un ordenador:
Puestos de trabajo. Tareas.
- Monopuesto - Monotaréa
- Multipuesto - Multitarea
┌─────────┬──────────┬───────┐
│ │ MEMORIA │ │
│ │ │ │
│ │ │ │
│ │ │ │
└────┬────┴────┬─────┴─────┬─┘
│ │ ┌──┴───┐
│ ┌───┴─┐ │ 3 │ MICROPROCESADOR.
┌──┴──┐ │ 2 │ └──────┘
│ 1 │ └─────┘
└─────┘
Si la empresa crece y necesita más:
─ ─ ─ ─ ─ ─┐
│
2 porciones │ │
más de memoria │ │
│ │
│ │
│
INFORMATICA PROGRAMACION
┬ ─ ─ ─ ┬ ┘
┌──┴─┐ ┌──┴──┐
└────┘ └─────┘
┌─────────────┐
│ │ ┌┬┬─┬──┬───┬────┬──────┬───────────┐
│ MEMORIA │ │││ │ │ │ │ │ │
│ │ │││ │ │ │ │ │ │
└─────┬───────┘ │││ │ │ │ │ │ │
│ RODAJAS ->│││ │ │ │ │ │ │
┌─────┴─────┐ └┴┴─┴──┴───┴────┴──────┴───────────┘
│ MICROPRO. │ 0´001 8 HORAS
└───────────┘ MULTITAREA EN TIEMPO COMPARTIDO
MS-DOS
C:\> <- Petición de orden.
D: C: -> Disco duro. <- Unidad base de trabajo.
A: B: -> Discos flexibles.
\ -> Directorio Principal.
> -> Separador.
. DIR
..DIR Enlaces de directorio esto es lo que simboliza.
│ ┌───┐
└──> ╔╡:/ │ Los puntos DIR se
║└───┘ crean automáticamente
┌─╨──┐ y son ficticios.
│DOS │
└────┘
DIRECTORIOS
FICHEROS
CONFIG.SYS │
│ Importantes para el arranque.
AUTOEXEC.BAT │
BORRAR
INFORMATICA PROGRAMACION
Borrar un fichero consiste en quitar su nombre del directorio
y readmitir ese espacio como reutilizable.
│ DEL │ Especifichero.
│ ERASE │
VISUALIZAR EL CONTENIDO
FICHERO CONFIG.SYS
Para configurar Type config.sys y se ven las ordenes que hay
gravadas. Varias ordenes empiezan por Device.- Se utiliza para
cargar los programas.
Rem -> Poniendo esta orden se utiliza esa línea como comen-
tario y es como si la orden no estuviera.
El MS-DOS directamente solo puede trabajar con los 640K
primeros de la memoria, el resto que será expandida y extendi-
da, etc.
HIMEM.sys.- Que se puede trabajar con la memoria superior.
EMM386.- Poder utilizar expandida y extendida al mismo
tiempo, indiferentemente. Para configurar ambas.
BUFFERS │
│Importantes, Configura el acceso al trabajo con las
FILE │ unidades de disco.
FICHERO AUTOEXEC.BAT
Bat, contiene ordenes del dos.
Se autoejecuta, de echo lo ejecuta el comand.com.
@ECHO OFF.- Que no se presenten las ordenes del que hay en
pantalla mientras se ejecuta.
PROMPT.- Configura el inductor.
PATH.- Indica los caminos de ejecución.
MODE.- Selecciona la página de códigos. La 850 permite
mayúsculas acentuadas.
Mode con codepage prepare=((437) c:\dos\ega.cpi).
KEYB SP.- El tipo de teclado (SP, Spanisch). Se puede conse-
guir el teclado nativo Control+Alt+F1. Para volver al otro
teclado Control+Alt+F2.
DOSKEY.- Es una utilidad que permite almacenar y ejecutar las
ordenes utilizadas.
Estos dos últimos comandos pueden tener un LH delante e
indica que se cargue en memoria alta.
CAMBIAR NOMBRE
Renombra el fichero, cambia nombre o extensión.
REESTABLECER
INFORMATICA PROGRAMACION
COPIA MASIVA
ATRIBUTOS
DISCOS
FORMATEARLO
TEST DE DISCO
INFORMATICA PROGRAMACION
Permite encontrar, incluso, corregir problemas o errores en
el disco, estos problemas pueden ser físicos o lógicos.
SCANDISK U:
Si hay cadenas perdidas se eliminan/sin deshacer.
DESFRAGMENTAR
COPIAR DISCOS
COPIAS DE SEGURIDAD
PUERTOS
EJEM.- @Echo off, cls, If %1Z==Z GOTO FIN, Del %1, Rd %1, :FIN
GESTION DE MEMORIA
PROGRAMACION
METODOLOGIA DE LA PROGRAMACION
Se encarga de realizar estudios sobre los problemas para
obtener los pasos detallados que resuelvan dicho problema.
Estudia los problemas paso a paso teniendo en cuenta las
salvedades de ese programa. El estudio del programa a de ser
standard, es decir, que lo entienda cualquier persona ya que la
programación la pueden realizar varias personas.
Para que esto sea standard se ha hecho un simbolismo.
SALIDA IMPRESORA.
COBOL
El Cobol es un lenguaje de alto nivel compilado y orientado
hacia la gestión de empresas y de ahí viene su nombre.
Lenguaje común orientado hacia los negocios. Aunque existen
diferentes versiones es el más estándar existiendo en leves
diferencias entre una y otra versión, nosotros vamos a trabajar
INFORMATICA PROGRAMACION
con RMCOBOL, que se adapta perfectamente a Cobolands85.
Elementos de Lenguaje
REGLAS DE CODIFICACION
CARACTERES COBOL
CONSTANTES
PALABRAS RESERVADAS
OPERADORES
Los operadores son símbolos que indican la manipulación de
datos.
Operadores Aritméticos.- + - * / = () **
Operadores de Relación.- = < > <= >= Serán los empleados en
las condiciones.
NUMEROS DE NIVEL
DATOS-EMPLEADOS
NOMBRE DIRECCION SUELDO
40 CALLE CIUDAD PROVINCIA 7
CARACTERES 35 20 15 CARACTERES
CARACTERES CARACTERES CARACTERES
01 DATOS-EMPLEADOS
02 NOMBRE
02 DIRECCION
03 CALLE
03 CIUDAD
INFORMATICA PROGRAMACION
03 PROVINCIA
02 SUALDO
METODOLOGIA
INICO
┌┬─────┬┐
└┴─────┴┘ Llamada a un subprograma, subrutina. Para realizarlo
una sola vez.
→ Es como un indicador (Dentro(sw = 0)).
DESCRIPCION
IDENTIFICATION DIVISION.
PROGRAM-ID. AGENCIA.
AUTHOR. JAVI.
*INSTALATION. PROBADURA.
DATE-WRITTEN. 02-02-94.
DATE-COMPILED. 02-02-94.
SECURITY. EXCLUSIVO.
REMARKS. CUALQUIER COSA.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. PC-COMPATIBLE.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 DIAS PIC 99 VALUE 0.
77 NPER PIC 9(3) VALUE 0.
77 FLETE 9(7) VALUE 0.
77 PRECPER 9(6) VALUE 0.
77 TEMP PIC A VALUE SPACE.
77 PH PIC 9(4) VALUE 0.
77 GASTHOT PIC 9(8) VALUE 0.
77 DTO PIC 9(7) VALUE ZEROES.
77 INGR PIC 9(8) VALUE Z.
77 GASTOS PIC 9(8) VALUE 0.
77 BENEF PIC S9(7) VALUE 0.
PROCEDURE DIVISION.
ENTRADA.
DISPLAY "DIAS DE ESTANCIA" LINE 5 POSITION 10 ERASE
ACCEPT DIAS LINE 5 POSITION 27
DISPLAY "NUMEROS DE PERSONAS" LINE 6 POSITION 10
ACCEPT NPER LINE 6 POSITION 29
DISPLAY "FLETE" LINE 7 POSITION 10
ACCEPT FLETE LINE 7 POSITION 16
DISPLAY "PRECIO PERSONA" LINE 8 POSITION 10
ACCEPT PRECPER LINE 8 POSITION 29
DISPLAY "TEMPORADA" LINE 9 POSITION 10
ACCEPT TEMP LINE 9 POSITION 20
INFORMATICA PROGRAMACION
PROCESO.
IF TEMP = "A" THEN
MOVE 5000 TO PH
ELSE IF TEMP = "B"
MOVE 3800 TO PH
ELSE
MOVE 3200 TO PH
END-IF
END-IF
COMPUTE GASTHOT = PH * NPER * DIAS
IF NPER > 150 THEN
COMPUTE DTO = GASTHOT * 0.03
ELSE
MOVE 0 TO DTO
END-IF
COMPUTE INGR = NPER * PRECPER
COMPUTE GASTOS = GASTHOT - DTO + FLETE
COMPUTE BENEF = INGR - GASTOS.
SALIDA.
DISPLAY "INGRESOS" LINE 12 POSITION 10
DISPLAY "BENEFICIOS" LINE 14 POSITION 10
DISPLAY INGR LINE 12 POSITION 20
DISPLAY BENEF LINE 14 POSITION 22
STOP RUN.
INPUT-OUTPUT SECTION.
FILE-CONTROL
SELECT nombre.int-impresora ASSIGN TO RANDOM "especifich"
.
.
SELECT nombre.int-impresora ASSIGN TO PRINTER "PRINTER"
DATA DIVISION.
FILE SECTION.
FD nombre.int │standard│
LABEL RECORD │omitted │
DATA RECORD nombre-registro.
01 nombre-registro
02 .
. Descripción de campo
.
INFORMATICA PROGRAMACION
DESCRIPCION DE FICHEROS
I-O→Entrada/Salida.
READ FICHERO
AT END →→→→ Esto codifica
MOVE "*" TO FIN .ordenes.
NOT AT END
.ordenes.
END-READ
UTILIZACION DE LA IMPRESORA
FILE-CONTROL.
.
.
INFORMATICA PROGRAMACION
SELECT IMPRE ASSIGN TO PRINTER "PRINTER".
FILE-SECTION.
.
.
FD IMPRE
LABEL RECORD OMITTED
DATA RECORD pepe
01 pepe PIC X(80)
X──────────────────────────<─────>───────────────────────────X
30 80 CABECERA 30
│ 6 │ (20) │ 12 │ D
│10 NOMBRE 24│LISTADO DE EMPLEADOS│ SUELDO BRUTO │ E
│ X──────────X│ │ 9───────────9│ T 10
│ │ 9 │ 7 │ A
│ │ │ │ L
L
TOTAL SUELDO 9─────────9 E
14
80-20=60/2=3080-52=28/3=99+40+9+3+7=68
Lineas de cabecera: disponen de solo texto.
Lineas de detalle: disponen de solo datos.
WORKING-STORAGE SECTION.
01 LINE1.
02 FILLER PIC X(30) VALUE SPACE.
02 F PIC X(20) VALUE "LISTADO DE EMPLEADOS"
01 LINEA2.
02 F PIC X(19) VALUE SPACE.
02 F PIC X(16) VALUE "NOMBRE".
02 F PIC X(33) VALUE SPACE.
02 F PIC X(12) VALUE "SUELDO BRUTO".
01 LINEA3.
02 F PIC X(9) VALUE SPACE.
02 NOM-I PIC X(40).
02 F PIC X(12) VALUE SPACE.
02 SUE-I PIC 9(7).
01 LINEA4.
02 F PIC X(44) VALUE SPACE.
02 F PIC X(14) VALUE "SUELDO TOTAL: ".
02 SUET-I PIC 9(10).
IDENTIFICATION DIVISION.
INFORMATICA PROGRAMACION
PROGRAM-ID. PERSONAL.
AUTHOR. JAVI.
ENVIROMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
IMPUT-OUTPUT SECTION.
FILE CONTROL.
SELECT IMPRE ASSIGN TO PRINTER "PRINTER".
SELECT PERSONAL ASSIGN TO RANDOM "A:\SERGAS.DAT".
FILE SECTION.
FD IMPRE
LABEL RECORD OMITTED.
DATA RECORD pepe.
01 pepe PIC X(80).
FD PERSONAL.
LABEL RECORD STANDARD.
DATA RECORD DATOS-EMPLEADOS
01 DATOS-EMPLEADOS
02 NOMBRE PIC X(40).
02 DIRECCION.
03 CIUDAD PIC (15)
03 CALLE PIC (35)
03 PROVINCIA PIC (20)
02 SUELDO PIC 9(7)
WORKING-STORAGE SECTION.
01 LINEA1.
02 FILLER PIC X(30) VALUE SPACE.
02 F PIC (20) VALUE "LISTADO EMPLEADOS".
01 LINEA2.
02 F PIC X(19) VALUE SPACE.
02 F PIC X(6) VALUE "NOMBRE".
02 F PIC X(33) VALUE SPACE.
02 F PIC X(12) VALUE "SUELDO BRUTO".
01 LINEA3.
02 FILLER PIC X(9) VALUE SPACE.
02 NOM-I PIC X(40).
02 FILLER PIC X(12) VALUE SPACE.
02 SUE-I PIC 9(10).
01 LINEA4.
02 F PIC X(44) VALUE SPACE.
02 F PIC X(14) VALUE "SUELDO TOTAL".
02 SUET-I PIC 9(10).
77 FIN PIC X VALUE SPACE.
77 SUET PIC 9(10) VALUE 0.
PROCEDURE DIVISION.
INICIO.
OPEN-OUTPUT IMPRE.
OPEN IMPUT PERSONAL.
INFORMATICA PROGRAMACION
WRITE RIMP FROM LINEA1 END-WRITE
WRITE RIMP FROM LINEA2 END-WRITE
PERFORM UNTIL FIN = "*".
READ EMPLEADOS
AT END
MOVE "*" TO FIN
NOT AT END
COMPUTE SUET = SUE + SUET
MOVE SUET TO SUE-I
MOVE NOM TO NOM-I
WRITE RIMP FROM LINEA3 END-WRITE
END-READ
END-PERFORM
MOVE SUET TO SUET-I
WRITE RIMP FROM LINEA4 END-WRITE
CLOSE READ
TABLAS
Las tablas son zonas multivaloricas, o sea que podrán almace-
narse simultáneamente más de un valor. Es una gran variable que
se encuentra dividida en múltiples elementos. Para identificar
dispone de un índice que los identifica. Para identificar a un
elemento en concreto F(2). F(2) --- variable F(I).
1 1996 01 02
2 1996 01 08
3 1996 01 09
4
50
51
01 TABLA.
02 ELE OCCURS 52 TIMES.
03 A PIC 9(4).
03 M PIC 99.
03 D PIC 99.
INFORMATICA PROGRAMACION
┌─────┐
│I = 1│
└──┬──┘
↓ ← GESTION
┌─────-───┐
│I = I + 1│
└─────┬───┘
↓
SI NO
FICHEROS DIRECTOS
Se caracterizan porque el acceso a sus registros realizan
directamente sin pasar por los registros anteriores. Existen
dos tipos de ficheros directos.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FICH ASSIGN TO RANDOM "------"
ORGANIZATION INDEXED
ACCESS MODE │ RANDOM
│ SEQUENTIAL
│ DYNAMIC
RECORD KEY Campo
FILE STATUS VARIEBLE.
3ª) Lectura
4ª) Reescritura
───┐
──┤→→→ EXISTE, si o no.
───┘
I.K→→ Invalid Key.
→→→→→ Si hay final de fichero RANDOM en el
Access Mode sino SEQUENTIAL.
SUBRUTINAS
Las subrutinas consisten en enlazar diferentes programas a
través de un programa menú. Una subrutina se caracteriza que en
vez de finalizar por un stop run finaliza por EXIT PROGRAM.
Para llamar a la subrutina y que esta se ejecute utilizaremos
la instrucción CALL U:nombre. Cuando finaliza la subrutina EXIT
PROGRAM retorna a la instrucción siguiente de la llamada pero
conservando la PSP de la subrutina. La PSP es una zona de
memoria que contiene el estado actual de la ejecución así como
el valor final de las variables, si volviésemos a ejecutar la
subrutina estos valores permanecerían, para evitar esto podre-
mos cancelar la PSP con la instrucción CANCEL U:nombre.
FORMATOS DE PANTALLA
Son estructuras que se definen en la SCREEN SECTION que
pertenece a la DATA DIVISION. Estas estructuras me permitirán
INFORMATICA PROGRAMACION
agilizar en la Procedure el uso de la pantalla y el teclado
permitiéndome englobar presentaciones y peticiones de datos así
como aumentar la potencia de estos dos aspectos. La estructura
de definición de formato de pantalla es del siguiente modo: A
nivel 01 indicaremos el nombre genérico de formato de la
pantalla y en subniveles inferiores cada una de las partes
según la siguiente estructura:
│ VALUE "texto" │
nn nombre │ │ FROM │ CAMPO ││
│ PIC Item │ TO │ ││
│ │ USING │ VARIABLE ││
01 VINAGRE.
02 BLANK SCREEN
02 LINE 5 COLUMN 10 VALUE "PEDIR Nº DE SOCIO"
02 LINE 5 COLUMN 29 PIC 9(5) TO SOCIO
01 TOMATE.
02 LINE 7 COLUMN 10 VALUE "DESEA MAS"
02 LINE 7 COLUMN 21 PIC A TO MAS
01 CEBOLLA.
02 LINE 12 COLUMN 10 VALUE "NO SE PUEDE"
PROCEDURE DIVISION.
INICIO.
OPEN I-O SOC
PERFORM UNTIL = "N"
DISPLAY VINAGRE
ACCEPT VINAGRE
LECTURA.
READ SOC
INVALID KEY
DISPLAY PAN
ACCEPT PAN
PERFORM LETRA
WRITE SOCIOS END-WRITE
DISPLAY TOMATE
ACCEPT TOMATE
NOT INVALID KEY
DISPLAY CEBOLLA
DISPLAY TOMATE
ACCEPT TOMATE
END-IF
END-READ
INFORMATICA PROGRAMACION
END-PERFORM
CLOSE SOC
EXIT PROGRAM.
LETRA.
COMPUTE N = DNI / 23
COMPUTE DN = N * 23
COMPUTE N2 = DNI - DN
COMPUTE LET(NL).
PASCAL
El Pascal es un lenguaje compilado de orientación general
seudocientifica, se trata de un lenguaje reciente de finales de
la década de los 70 que surgió como alternativa al Basic y al
Fortran.
Al igual que el Cobol se trata de un lenguaje estructurado
pero en este caso mucho mas. Para facilitar el trabajo con este
lenguaje y mejorar su potencia se genero lo que se conoce como
TURBOPASCAL. El Turbopascal es un compilador mucho más potente
y rápido, que detecta automáticamente errores y genera un
entorno de trabajo.
Estas son:
AND, ABRAY, BEGIN, CASE, CONST, DIV, DO, DOWNTO, ELSE, END,
FILE, FOR, FORWARD, FUNCTION, GOTO, IF, IN, LABEL, MOD, NIL,
NOT, OF, OR, PACKED, PROCEDURE, PROGRAM, RECORD, REPEAT, SET,
THEN, TO, TYPE, UNTIL, VAR, WHILE, WITH.
TIPOS DE DATOS
OPERADORES DE RELACION
DECLARACION DE VARIABLES
EXPRESIONES ARITMETICAS
4
LOS OTROS TIPOS SE VEN EN EL LIBRO
INFORMATICA PROGRAMACION
* INSTRUCCIONES:
READ, READLN → Realizan una parada en la ejecución del
programa para solicitar el valor o valores al teclado. El
ESTRUCTURAS DE CONTROL
TALLER MECANICO
PROGRAM TALLER(INPUT,OUTPUT);
CONST
IVA:=0.16;
VAR
MATRIC:STRING[11];
CATEG,HORAS,MATER,PIVA:INTEGER; Integer=Entero
IT,IB:REAL;
BEGIN
WRITE('MATRICULA');
READLN(MATRIC);
WRITE('CATEGORIA');
READLN(CATEG);
WRITE('MATERIAL');
READLN(MATER);
WRITE('HORAS');
READLN(HORAS);
IF CATEG=1 THEN
P:=3600
ELSE
BEGIN
IF CATEG=2 THEN
INFORMATICA PROGRAMACION
P:=2500
ELSE
P:=1500;
IB:=(HORAS*P)+MATER;
PIVA:=IVA*IB;
IT:=IB+PIVA;
WRITE('IMPORTE BRUTO',IB:10);
WRITE('IVA= ',PIVA:6);
WRITE('IMPORTE TOTAL',IT:12);
END;
END.
{:=} → ASIGNACION
{=} → COMPARACION
Para entrar en el programa CD tp y después turbo [enter].
FUNCIONES EXTERNAS
BUCLES
Metodologicamente. WHILE │
┌──── │ REPEAT
│ │ NO │
│ ───┐ .
│ │ .
│ │ │ . ──┐
│ │SI │
│ SI NO│
└────┘ ┌── ───┘
│
*FORMATO DE LA INSTRUCCION.
│ REPEAT │
│ INSTRUCCION; │
│ . │
│ UNTIL CONDICION │
I=1 I=VAL-INI
. ──────────┐ ────────────┐
I=I+1 NO │ I=I+PASO NO │
─── ──┘ ─── ───┘
INFORMATICA PROGRAMACION
CASE variable OF
Valor1:Instrucción;
.
Valorn:Instrucción;
ELSE
Instrucción;
END;
PROCEDIMIENTOS Y FUNCIONES
PROCEDIMIENTOS
FUNCIONES
procedimiento función
↓ ↓
Write a:=trunc(18/3)
INFORMATICA PROGRAMACION
MATRICES [Tablas]
VAR
nombre:ARRAY [Valor inicial..Valor final] OF TIPO;
T1:ARRAY [1..10] OF INTEGER;
TYPE
PP=ARRAY[1..10] OF REAL;
VAR
T1:PP;
REGISTROS
Un registro es una estructura compuesta por diferentes campos
INFORMATICA PROGRAMACION
elementales que permiten definir variables con dicha
estructura. Además de poder ser usado en ficheros también se
emplea para matrices(tablas). Se definirán dentro del bloque
TYPE con la siguiente estructura:
Type
Nombre =
Record
Nombre:Tipo
;
;
;
End;
Var
Identificador:nombre;
Ejemplo: TYPE
ALUMNOS=
RECORD
NOM: STRING[30];
ASING: ARRAY [1..5] OF STRING [10];
NOTA: ARRAY [1..5] OF REAL;
NM: REAL;
END;
VAR
PEM: ARRAY [1..16] OF ALUMNOS.
PEM[I].NOM
PEM[I].NOTA[P]
PEM[I].FALTAS[J][P]
GRÁFICOS
Es un modo de trabajo en pantalla que sustituye al modo texto
con lo que todas las instrucciones que hasta ahora empleamos ya
no son operativas. Otra de las ventajas que nos ofrecen es el
trabajo con paletas de colores. Las instrucciones para activar
ese color son:
CONSTANTE VALOR
BLACK(NEGRO) 1
BLUE(AZUL) 2
GREEN(VERDE) 3
CYAN(CIANO) 4
RED(ROJO)
MAGENTA(VIOLETA) 5
BROWN(MARRON) 6
LIGHT GRAY(GRIS CLARO) 7
DARK GRAY(GRIS OSCURO) 8
LIGHT BLUE(AZUL CLARO) 9
LIGHT GREEN(VERDE CLARO) 10
LIGHT CYAN(CIANO CLARO) 11
LIGHT RED(ROJO CLARO) 12
LIGHT MAGENTA(VIOLETA CLARO) 13
YELLOW(AMARILLO) 14
WHITE(BLANCO) 15
VALOR CONSTANTE
0 DETECT
1 CGA
2 MCGA
3 EGA
4 EGA 64
5 EGA MONO
6 IBM 8514
7 HERC MONO
8 ATT 400
9 VGA
10 PC 3270
OUTTEXT(`TEXTO´)
OUTTEXTXY(X,Y,`TEXTO´) Para ordenar el read.
Estilo de Letra
RECTANGLE(0,0,640,380) (0,0)
(640,380)
40,20
10
80,60
(X,Y) 30
(270)
INFORMATICA PROGRAMACION
Tartas.- PIESLICE(X,Y,ANGULO INI,ANGULO FIN,RADIO)
CENTRO
SETFILLSTYLE CAMBIO DE FORMA DE SECTORES.(EL FONDO)
FLOODFILL(X,Y,LIMITE) FONDO DENTRO DE LÍNEAS Y EL
LÍMITE ES EL COLOR DE LA LÍNEA POR ESO ANTES SE USA EL
SETCOLOR(COLOR DE LÍNEA).
FICHEROS
Un conjunto de datos almacenados en disco el Pascal gestiona
ficheros de tipo secuencial de tipo texto o de tipo binario,
lo normal será definir un registro en el bloque type.
Definiendo el fichero en el bloque VAR del siguiente modo.
FICHERO: FILE OF REGISTRO;
EJEMPLO.
TYPE
REG = RECORD ASSIGN(AGENDA,`A:AGENDA.DAT´);
NOM: STRING[20];
TELF: STRING[12];
END;
VAR
AGENDA: FILE OF REG;
APERTURA DE FICHERO
FICHERO DE TEXTO
TURBO C++
NOMBRES DE IDENTIFICADORES
PUNTEROS
DATOS Un Elemento
1 2 3 Punteros
D1 D2 D3
TYPE
AGE=RECORD
NOM:STRING[20];
TLF:STRING[12];
PUNSIGUIENTE:^AGE; Dirección de cada elemento
END;
BEGIN NIL
PUNCAB:=NIL;
PUNTRA1
NIL
80 bytes.
LIBERACIÓN DE LA MEMORIA
TIPOS DE DATOS
MODIFICADORES
INT Lo mismo
SIGNED SHORT INT
CONSTANTES
OPERADORES
OPERADORES RELACIONALES
OPERADORES LÓGICOS
PRESENTACION EN PANTALLA
\n Línea en blanco.
\\ Representa barra inversa.
\” Representa comillas.
\f Alinearía la hoja(impresora).
\t Realiza una tabulación.
SENTENCIAS DE CONTROL
Switch (variable) {
Case valor1: --- break;
“ “ “ “
default
sentencias; }
Default Es para cuando el CASE no se cumpla y el break
para no encadenar la sentencia de todas las sentencias.
BUCLES
DO
{
SENTENCIAS;
6
Iniciación: Iniciar Variable.
7
Condición: Condición Variable.
8
Incremento: Incremento o Decremento.
INFORMATICA PROGRAMACION
WHILE(CONDICION);
ARRAYS UNIDIMENSIONALES
ESTRUCTURAS
Struct nombre {
Tipo variable;
. .
. .
}Variable global;
GESTIÓN DE CADENAS
if(strcpy(a10,desde11)==0);
(strcpy (xnom,nom)==0);
If(strcmp(xnom,nom)==0);
Hay que incluir la librería <string.h>.
FICHEROS
FILE *fichero;
- Apertura fichero=fopen(“c:\\Tc\\Bin\\datos.dat”,”wt”);
- File*fichero;....<stdin.h>
- Control de fin de fichero feof(puntero del fichero); Se
forma un bucle para determinar que es fin de fichero.
- Cerrar fclose(puntero de fichero);
- Lectura y escritura fscan – Lectura, Entrar.
Fprintf – Escritura, Salir.
10
A: Destino.
11
Desde: Origen.