2.1 Estructuras general de programas en Pascal

Pascal es un lenguaje de programación de alto nivel, que facilita la práctica de la programación estructurada. Utiliza un traductor que produce código ejecutable, lo cual disminuye los tiempos de ejecución de los programas.

El lenguaje Pascal fue desarrollado por Niklaus Wirth, con el propósito de ayudar a los estudiantes en el manejo de las técnicas de la programación estructurada, pero en la actualidad su aplicación es de propósitos generales.

La construcción de programas en Pascal se basa en módulos que guardan las siguientes reglas de construcción :

Las cinco secciones de declaración -Label, Const, Typey Procedurey/o Function, así como la cláusula Usesy Program, no tiene que estar presentes en todos los programas. Turbo Pascal es muy flexible al momento de escribir las secciones de declaración, ya que se pueden hacer en cualquier orden (en Pascal estándar ISO si se require este orden). Sin embargo es conveniente seguir el orden establecido, le evitará futuros problemas.

Ejemplo:

ProgramMiPrimerPrograma; {cabecera}

Uses

Crt; {declaraciones}

Const

iva=0.10;

Type

cadena=string[35];

meses =1..12;

Var

sueldo:real;

numero:integer;

nombre :cadena;

Nmes :meses;

begin

ClrScr; {Limpia la pantalla}

Write('Escribe tu nombre : ');

{Visualiza información en pantalla}

ReadLn(nombre);{Leer un dato del teclado}

WriteLn('Bienvenido ', nombre);

{Visualiza información en pantalla}

Readkey; {Espera la pulsación de una tecla}

ClrScr

end.

Nota: Las declaraciones de constantes, tipos y variables también se pueden poner en los procedimientos y/o funciones.

Todo objeto referenciado en un programa debe haber sido previamente definido.

Ejemplo:

ProgramIncorrecto; {cabecera}

Const

pi=3.141592;

Var

Meses:array[1..Max] ofstring[15];

begin

...................................

end.

El programa anterior es incorrecto ya que hacemos referencia a la constante Maxen la declaración de variables sin haberla definido en la declaración de constantes.

2.2 Identificadores

En la mayoría de los programas de computador, es necesario manejar datos de entrada o de salida, los cuales necesitan almacenarse en la memoria principal del computador en el tiempo de ejecución. Para poder manipular dichos datos, necesitamos tener acceso a las localidades de memoria donde se encuentran almacenados; esto se logra por medio de los nombres de los datos o IDENTIFICADORES.

Los identificadores también se utilizan para los nombres de los programas, los nombres de los procedimientos y los nombres de las funciones, así como para las etiquetas, constantes y variables.

Las reglas para formar los identificadores en Pascal son las siguientes :

1. Pueden estar compuestos de caracteres alfabéticos, numéricos y el carácter de subrayado ( _ ).
2. Deben comenzar con un carácter alfabético o el carácter de subrayado.
3. Puede ser de cualquier longitud (sólo los 63 primeros caracteres son significativos).
4. No se hace distinción entre mayúsculas y minúsculas.
5. No se permite el uso de los IDENTIFICADORES RESERVADOS en los nombres de variables, constantes, programas o sub-programas.

Identificadores válidos

Nombre

Cadena

Edad_Maxima

X_Y_Z

Etiqueta2

Identificadores no válidos

Num&Dias: carácter & no válido

X nombre: Contiene un blanco

begin : es una palabra reservada

eje@s : carácter @ no válido

Elección de identificadores

La elección de identificadores permite una mejor lectura y comprensión de un programa. No es aconsejable utilizar identificadores que no sugieran ningún significado.

 

La siguiente tabla muestra los IDENTIFICADORES RESERVADOS en Turbo-Pascal. Los marcados con un asterisco no están definidos en Pascal estándar . Los marcados con ? no se utilizan en Turbo-Pascal

Turbo-Pascal define los siguientes IDENTIFICADORES ESTANDAR de tipos predefinidos, constantes, variables, procedimientos y funciones. Cualquiera de ellos puede ser redefinido, perdiéndose así la facilidad de utilizar su definición original.

ADDR	DELAY	LENGTH	RELEASE
ARCTAN	DELETE	LN	RENAME
ASSIGN	EOF	LO	RESET
AUX	EOLN	LOWVIDEO	REWRITE
AUXINPTR	ERASE	LST	ROUND
AUXOUTPTR	EXECUTE	LSTOUTPTR	SEEK
BLOCKREAD	EXIT	MARK	SIN
BLOCKWRITE	EXP	MAXINT	SIZEOF
BOOLEAN	FALSE	MEM	SEEKEOF
BUFLEN	FILEPOS	MEMAVAIL	SEEKEOLN
BYTE	FILESIZE	MOVE	SQR
CHAIN	FILLCHAR	NEW	SQRT
CHAR	FLUSH	NORMVIDEO	STR
CHR	FRAC	ODD	SUCC
CLOSE	GETMEM	ORD	SWAP
CLREOL	GOTOXY	OUTPUT	TEXT
CLRSCR	HALT	PI	TRM
CON	HEAPPTR	PORT	TRUE
CONINPTR	HI	POS	TRUNC
CONOUTPTR	IORESULT	PRED	UPCASE
CONCAT	INPUT	PTR	USR
CONSTPTR	INSLINE	RANDOM	USRINPTR
COPY	INSERT	RANDOMIZE	USROUTPTR
COS	INT	READ	VAL
CRTEXIT	INTEGER	READLN	WRITE
CRTINIT	KBD	REAL	WRITELN
DELLINE	KEYPRESSED

2.3 Declaración de etiquetas

En el remoto caso de que sea necesaria la utilización de la instrucción Goto, deberá marcarse con una etiqueta la línea a donde desea enviarse el control de flujo del programa.

La declaración deberá encabezarse con el identificador reservado Label, seguido por la lista de etiquetas separadas por comas y terminada por un punto y coma.

Pascal estándar sólo permite etiquetas formadas por números de 1 a 4 dígitos.

Turbo-Pascal permite la utilización de números y/o cualquier identificador, excepto los identificadores reservados.

Su uso no está recomendado y en este tutorial no se empleará nunca.

2.4 Definición de constantes

En la definición de constantes se introducen identificadores que sirven como sinónimos de valores fijos.

El identificador reservado Constdebe encabezar la instrucción, seguido por una lista de asignaciones de constantes. Cada asignación de constante debe consistir de un identificador seguido por un signo de igual y un valor constante, como se muestra a continuación:

Const

valor_maximo=255;

precision =0.0001;

palabra_clave='Tutankamen';

encabezado =' NOMBRE DIRECCION TELEFONO ';

Un valor constante puede consistir de un número ( entero o real ), o de una constante de caracteres.

La constante de caracteres consiste de una secuencia de caracteres encerrada entre apóstrofes ( ' ), y, en Turbo-Pascal, también puede formarse concatenándola con caracteres de control ( sin separadores ), por ejemplo :

'Teclee su opción ==>'^G^G^G;

Esta constante sirve para desplegar el mensaje :

Teclee su opción ==>

y a continuación suena el timbre tres veces.

Las constantes de caracteres pueden estar formadas por un solo carácter de control, p.ej. :

hoja_nueva= ^L

Existen dos notaciones para los caracteres de control en Turbo Pascal, a saber :

1. El símbolo # seguido de un número entero entre 0 y 255
   representa el carácter al que corresponde dicho valor decimal en el codigo ASCII.
2. El símbolo ^ seguido por una letra, representa el correspondiente carácter de control.

Ejemplos :

#12 representa el valor decimal 12

( hoja_nueva o alimentación de forma ).

#$1Brepresenta el valor hexadecimal 1B ( escape ).

^G representa el carácter del timbre o campana.

^M representa el carácter de retorno de carro.

Pascal proporciona las siguientes CONSTANTES PREDEFINIDAS :

idemás de las constantes literales para los tiposintegeryrealcon representación decimal y hexadecimal, y las constantes literales para el conjunto de caracteres ASCII, más los caracteres especiales ( no incluidos en el conjunto estándar del ASCII )

2.5 Definición de tipos

Además de identificadores, los datos deben tener asignado algún tipo que indique el espacio de memoria en que se almacenarán y que al mismo tiempo evita el error de tratar de guardar un dato en un espacio insuficiente de memoria .

Un tipo de dato en Pascal puede ser cualquiera de los tipos predefinidos ( integer, real, byte, boolean, char), o algún otro definido por el programador en la parte de definición de tipos .

Los tipos definidos por el programador deben basarse en los tipos estándar predefinidos, para lo cual, debe iniciar con el identificador reservado Type, seguido de una o más asignaciones de tipo separadas por punto y coma. Cada asignación de tipo debe consistir de un identificador de tipo, seguido por un signo de igual y un identificador de tipo previamente definido.

La asignación de tipos a los datos tiene dos objetivos principales:

1. Detectar errores de operaciones en programas.
2. Determinar cómo ejecutar las operaciones.

Pascal se conoce como un lenguaje "fuertemente tipeado" (strongly-typed) o de tipos fuertes. Esto significa que todos los datos utilizados deben tener sus tipos declarados explícitamente y el lenguaje limita la mezcla de tipos en las expresiones. Pascal detecta muchos errores de programación antes de que el programa se ejecute.

Los tipos definidos por el programador pueden utilizarse para definir nuevos tipos, por ejemplo :

Type

entero = integer;

otro_entero= entero;

A continuación se hace una breve descripción de los tipos predefinidos .

Tipos enteros

Tipos enteros predefinidos

 

BYTE

El tipo bytees un subconjunto del tipo integer, en el rango de 0 a 255 . Donde quiera que se espere un valorbyte, se puede colocar un valor integer; y viceversa ( EXCEPTO cuando cuando son pasados como PARAMETROS ). Asimismo, se pueden mezclar identificadores de tipo byte y de tipo integer en las expresiones.

Los valores de tipobyte se guardan en UN OCTETO de memoria.

INTEGER

El rango de los valores definidos por el tipointeger , en Turbo Pascal, se encuentra entre -32768 y 32767 .
Cada valor de este tipo se guarda en DOS OCTETOS de memoria.

LONGINT(enteros largos)

A partir de la versión 4.0 se han incorporado números que amplían el rango de variación de los enteros a -2,147,483,648. Este tipo de datos se denomina longint(enteros largos). Ocupan CUATRO OCTETOS de memoria. Existe una constante predefinida de tipolongint, denominada MaxLongInt, cuyo valor es 2,147,483,647.

SHORTINT (enteros cortos)

En ciertos casos, puede ser práctico disponer de valores enteros positivos y negativos cuyo alcance sea más restringido que el de los tipos enteros. Los tipos shortint pueden tomar valores entre -128 y 127. Ocupan UN OCTETO de memoria.

WORD

Existen casos en los que se desea representar únicamente valores positivos. Este es el caso. Por ejemplo, cuando se desea acceder desde un programa hasta una dirección de memoria. En tal situación, no tiene sentido una dirección negativa. Turbo Pascal dispone del tipo word(o palabra, de palabra de memoria), cuyo intervalo posible de valores es de 0 a 65535. Ocupa DOS OCTETOS de memoria.

 

Tipos reales

REAL

En el contexto de Pascal, un númeroreales aquel que está compuesto de una parte entera y una parte decimal, separadas por un punto. El rango de estos números está dado entre los valores 1E-38 y 1E+38 . Cada valor de este tipo se guarda en SEIS OCTETOS de memoria.

Durante una operación aritmética con números reales, un valor mayor que 1E+38 (sobreflujo) causará la detención del programa y desplegará un mensaje de error ; mientras que un valor menor que 1E-38 (bajoflujo), producirá un resultado igual a cero.

Deben tomarse en cuenta las siguentes restricciones para los valores de tipo real :

1. No pueden utilizarse como subindices en las definiciones del tipo estructurado array.
2. No pueden formar subrangos.
3. No se pueden usar para definir el tipo base de un conjunto (tipo estructurado set)
4. No deben utilizarse para el control de las instrucciones for y case.
5. Las funciones pred y succ no pueden tomarlos como argumentos.

Los números reales están siempre disponibles en Turbo Pascal, pero si su sistema incluye un coprocesador matemático como 8087, 80287 u 80387, se dispone además de otros tipos de números reales:

• real (real)
• single (real corto)
• comp (entero ampliado)
• double (real de doble precisión)
• extended (real ampliado)

Computadoras sin coprocesador matemático (emulación por software)

datos disponibles : real, comp, double, extended y single.

Computadoras con coprocesador matemático

datos disponibles :real, comp, double, extended y single (reales IEEE)

Desde la versión 5.0 se permite utilizar los datos tipo coprocesador matemático aunque su computadora no lo tenga incorporado. La razón es que se emula dicho coprocesador. Los diferentes tipos reales se diferencian por el dominio de definición, el número de cifras significativas (precisión) y el espacio ocupado en memoria.

• Turbo Pascal 4.0 requiere obligatoriamente un chip coprocesador matemático para hacer uso de números reales de coma flotante IEEE.
• Turbo Pascal 5.0 a 7.0 emula el chip coprocesador matemático totalmente en software, permitiendo ejecutar tipos IEEE tanto si tiene como si no un chip 8087/287/387 instalado en su máquina.

BOOLEAN

Un valor de tipo booleanpuede asumir cualquiera de los valores de verdad denotados por los identificadorestruey false, los cuales están definidos de tal manera que false<true.

Un valor de tipo booleanocupa UN OCTETO en la memoria.

CHAR

Un valor de tipo char es cualquier carácter que se encuentre dentro del conjunto ASCII ampliado, el cual está formado por los 128 caracteres del ASCII más los 128 caracteres especiales que presenta, en este caso, IBM.
Los valores ordinales del código ASCII ampliado se encuentran en el rango de 0 a 255. Dichos valores pueden representarse escribiendo el carácter correspondiente encerrado entre apóstrofes.

Así podemos escribir :

'A'<'a'

Que significa : " El valor ordinal de A es menor que el de a " o " A está antes que a "

Un valor de tipo charse guarda en UN OCTETO de memoria.

 

CADENA (STRING)

Un tipostring(cadena)es una secuencia de caracteres de cero o más caracteres correspondientes al código ASCII, escrito en una línea sobre el programa y encerrado entre apóstrofos.

El tratamiento de cadenas es una característica muy potente de Turbo Pascal que contiene ISO Pascal estándar.

Ejemplos:

'Turbo Pascal','Tecnológico',#13#10

Nota:

• Una cadena sin nada entre los apóstrofos se llama cadena nula o cadena vacía.
• La longitud de una cadena es el número de carácteres encerrados entre los apóstrofos.

2.6 Operadores

Los operadores sirven para combinar los términos de las expresiones.

En Pascal, se manejan tres grupos de operadores :

1. ARITMÉTICOS
2. RELACIONALES
3. LÓGICOS

 

2.6.1 Operadores aritméticos

Son aquellos que sirven para operar términos numéricos. Estos operadores podemos clasificarlos a su vez como :

1. UNARIOS
2. BINARIOS

Los operadores UNARIOS son aquellos que trabajan con UN OPERANDO.

Pascal permite el manejo de un operador unario llamado :

MENOS UNARIO

Este operador denota la negación del operando, y se representa por medio del signo menos ( - ) colocado antes del operando.

Por ejemplo :

Si x tiene asignado el valor 100, -x dará como resultado -100 ; esto es que el resultado es el inverso aditivo del operando.

Los operadores BINARIOS, son los que combinan DOS OPERANDOS , dando como resultado un valor numérico cuyo tipo será igual al mayor de los tipos que tengan los operandos.

La siguiente tabla muestra los símbolos de los operadores binarios de Pascal así como los nombres de las operaciones que realizan.

Operadores aritméticos básicos

Conviene observar lo siguiente :

1. Cuando los dos operandos sean del tipo integer, el resultado será de tipo integer.
2. Cuando cualquiera de los dos operandos, o ambos, sean del tipo real, el resultado será de tipo real.
3. Cuando, en la operación div, OPERANDO-1 y OPERANDO-2 tienen el mismo signo, se obtiene un resultado con signo positivo; si los operandos difieren en signo, el resultado es negativo y el truncamiento tiene lugar hacia el cero.

 

Ejemplos :

7 div3 = 2

(-7) div(-3) = 2

(-7) div3 = -2

7 div(-3) = -2

15.0div3.0 = no válido

15 div(4/2) = no válido

La operación divalmacena sólo la parte entera del resultado, perdiéndose la parte fraccionaria (truncamiento).

1. La operación MODULO está definida solamente para OPERANDO-2 positivo. El resultado se dará como el entero no negativo más pequeño que puede ser restado de OPERANDO-1 para obtener un múltiplo de OPERANDO-2 ; por ejemplo :

6 mod3 = 0

7 mod3 = 1

(-6) mod 3 =0

(-7) mod3 = -1

(-5) mod 3 = -2

(-15) mod(-7) = -1

En la operaciones aritméticas, debe asegurarse que el resultado de sumar, restar o multiplicar dos valores, no produzca un resultado fuera de los rangos definidos por la implementación para los diferentes tipos.

2.6.2 Operadores relacionales

Una RELACIÓN consiste de dos operandos separados por un operador relacional. Si la relación es satisfecha, el resultado tendrá un valor booleano true; si la relación no se satisface, el resultado tendrá un valor false. Los operadores deben ser del mismo tipo, aunque los valores de tipo real, integery bytepueden combinarse como operandos en las relaciones. A continuación se describen los operadores relacionales utilizados en Pascal:

Ejemplos:

 

2.6.3 Operadores lógicos

 

Al igual que las relaciones, en las operaciones con operadores lógicos se tienen resultados cuyo valor de verdad toma uno de los valores booleanos trueo false.

Los operadores lógicos en Pascal son : 

2.7 Expresiones

Las expresiones son secuencias de constantes y/o variables separadas por operadores válidos.

Se puede construir una expresión válida por medio de :

1. Una sola constante o variable, la cual puede estar precedida por un signo + ó - .
2. Una secuencia de términos (constantes, variables, funciones) separados por operadores.

Además debe considerarse que:

Toda variable utilizada en una expresión debe tener un valor almacenado para que la expresión, al ser evaluada, dé como resultado un valor.

Cualquier constante o variable puede ser reemplazada por una llamada a una función.

Como en las expresiones matemáticas, una expresión en Pascal se evalúa de acuerdo a la precedencia de operadores. La siguiente tabla muestra la precedencia de los operadores en Turbo Pascal:

Las reglas de evaluación para las expresiones son :

1. Si todos los operadores en una expresión tienen la misma precedencia, la evaluación de las operaciones se realiza de izquierda a derecha.
2. Cuando los operadores sean de diferentes precedencias, se evalúan primero las operaciones de más alta precedencia (en una base de izquierda a derecha ), luego se evalúan las de precedencia siguiente, y así sucesivamente.
3. Las reglas 1) y 2) pueden ser anuladas por la inclusión de paréntesis en una expresión.

Ejemplos :

1. 3 + 2*5 {*,+}
2. 4 + 10 =14
3. 20*4 div 5
4. {Igual prioridad de izquierda a derecha : *,div}
5. 80 div 5 = 16
6. 3 - 5 * (20+(6/2))
7. 3 - 5 * (20+(6/2)) = 3 - 5 * (20 + 3)
8. {paréntesis más interno}
9. = 3 - 5 * 23 {segundo paréntesis}
10. = 3 - 115 {Multiplicación}
11. = -112 {resta}

2.8 Instrucciones

Aunque un programa en Pascal puede contar con una sola instrucción (también llamada enunciado, sentencia o estatuto), normalmente incluye una cantidad considerable de ellas. Uno de los tipos de instrucciones más importantes lo forman las instrucciones de asignación; las cuales asignan a una variable (por medio del símbolo := ) , el resultado de la evaluación de una expresión.

La sintaxis para las instrucciones de asignación es :

identificador:=expresión ;

Al símbolo := le llamaremos, en lo sucesivo : "simbolo de asignación"

Los siguientes son ejemplos de instrucciones de asignacion :

numero := 100;

importe :=precio * cantidad;

hipotenusa:= sqrt(sqr(cateto_op)+sqr(cateto_ad));

Es posible construir una instrucción vacía escribiendo sólamente el punto y coma de una instrucción.

Así podemos escribir :

valor:= valor + 1;;

Lo que incluye las dos instrucciones :

valor:= valor +1;

y la instrucción vacía :;

 

Bloques de instrucciones

En todo lugar donde sea válido utilizar una instrucción simple, es posible utilizar unainstrucción compuesta o bloque de instrucciones, el cual se forma agrupando varias instrucciones simples por medio de los identificadores begin y end.

Por ejemplo:

begin

suma := 1000.0;

incr := 20.0;

total:= suma + incr

{Obsérvese la ausencia de punto y coma

al final de la instrucción}

end.

No es necesario escribir el punto y coma antes de end ya que el punto y coma se usa para separar instrucciones, no para terminarlas.

begin y end son delimitadores de bloque.

3.1 Procedimientos de entrada / salida

Desde el punto de vista del hardware, las instrucciones de entrada y salidale ayudan al programa a comunicarse con un periférico de la computadora tal como una terminal, una impresora o un disco.

Las instrucciones de entrada estándar, sirven para leer carácteres desde el teclado, y las instrucciones de salida estándar despliegan carácteres en la pantalla.

En Pascal todas las operaciones de entrada/salidase realizan ejecutando unidades de programa especiales denominados procedimientos de entrada/salida que forman parte del compilador y sus nombres son identificadores estándar:

Procedimientos de entrada	Read	ReadLn
Procedimientos de salida	Write	WriteLn

3.2 Procedimientos Read y Readln

Los procedimientos predefinidos Ready ReadLn(contracción de Read Line), constituyen la base para las instrucciones de entrada estándar.

Las instrucciones de entrada proporcionan datos durante la ejecución de un programa. Las instrucciones para llamar a los procedimientosReady ReadLnson de la siguiente forma :

donde :

lista_de_variables: es una lista de identificadores de variables separados por comas, los datos que se pueden leer son : enteros, caracteres, o cadenas. No se puede leer un boolean o un elemento de tipo enumerado.

Los datos estructurados , arrays, registros o conjuntos, no se pueden leer globalmente y se suele recurrir a diseñar procedimientos específicos.

La acción de la instrucción es obtener, del teclado, tantos valores de datos como elementos hay en lista_de_variables. Los datos deberán ser compatibles con los tipos de las variables correspondientes en la lista.

Cada valor entero o real en el flujo de entrada puede ser representado como una secuencia de caracteres en alguna de las formas permitidas para tales números, y puede estar inmediatamente precedido por un signo más o un signo menos. Cada valor entero o real puede ser precedido por cualquier cantidad de caracteres blancos o fines de línea, pero no deberá haber blancos o fines de línea entre el signo y el número.

La diferencia entre las instrucciones Read y ReadLnconsiste en que Read permite que la siguiente instrucción continúe leyendo valores en la misma línea; mientras que, conReadLnla siguiente lectura se hará después de que se haya tecleado el carácter de fin de línea.

Cuando se tienen datos de tipo charen una instrucción Read, los caracteres blancos y los de fin de línea son considerados en el conteo de los elementos de las cadenas de caracteres mientras no se complete el total especificado para cada una de ellas. Cada fin de línea es tratado como un carácter, pero el valor asignado a la variable será un carácter blanco.

Es aconsejable que cada cadena de caracteres se lea en una instrucción Read o ReadLnpor separado, para evitar el tener que ir contando hasta completar la cantidad exacta de caracteres que forman la cadena ( o de lo contrario se tendrán resultados sorpresivos y frustrantes al verificar los datos leídos ).

Ejemplo:

Var

nombre :string[30] ;

edad :integer;

estatura :real;

.

.

.

ReadLn(nombre);

ReadLn(edad);

ReadLn(estatura);

3.3 Procedimientos Write Y Writeln

La salida estándar se realiza en base a estos procedimientos predefinidos, y las instrucciones para invocarlos toman las siguientes formas :

donde :

lista_de_salidaes una lista de variables, expresiones y/o constantes, cuyos valores van a ser desplegados en la pantalla.

El procedimiento Write permite que la siguiente instrucción se realice en la misma línea , mientras queWriteLn alimenta una nueva línea, antes de finalizar.

Por ejemplo, las instrucciones :

Write ('! HOLA ');

WriteLn('AMIGOS !');

producirán la salida :

! HOLA AMIGOS !

cursor en la siguiente línea.

Mientras que :

Write('TECLEE <CTRL> F PARA FINALIZAR ==> ');

desplegará :

TECLEE <CTRL> F PARA FINALIZAR ==> CURSOR

Para producir un renglón en blanco, se debe escribir :

WriteLn;

Un valor booleano desplegará cualquiera de las cadenas : TRUEo FALSE,
así :

Write('20 + 30 = ',20+ 30,' ES ', 20+ 30= 50);

producirá :

20 + 30 = 50 ES TRUE

dejando el cursor en la misma línea, al final deTRUE.

Cuando un valor de salida se escribe sin una especificación de longitud de campo, se utilizará la especificación de campo por omisión.

La especificación de longitud de campo por omisión dependerá del tipo de valor de salida y de la implementación de Pascal.

Así tenemos que, para todas las implementaciones :

1. La especificación de longitud de campo por omisión para los valores de tipo char es 1
2. Si el valor a ser desplegado requiere menos del número de caracteres especificado, se imprimirán tantos caracteres blancos como sean necesarios para completar dicho número.
3. Si el valor a ser desplegado requiere un número de caracteres mayor que el especificado, se usa la mínima especificación de longitud de campo que se requiera para representar un valor de tipo real o entero, pero las cadenas serán truncadas ajustándolas al campo especificado y desechará los caracteres en exceso que se encuentren más a la derecha.
4. En el caso de valores de tipo real, se puede utilizar una especificación de longitud de fracción.

Por omisión en Turbo Pascal, los valores de tiporealse desplegarán en formato de punto flotante(también llamado exponencial), así :

1. Para el caso de valores positivos ( R >= 0.0 ), el formato es:

bbn.nnnnnnnnnnEsnn

2. Para valores negativos ( R < 0.0 ), el formato es :

b-n.nnnnnnnnnnEsnn

donde :

b = blanco
n= número ( 1-9 )
s= signo ( + ó - )
E = letra "E" para exponente

La especificación de campo mínima aceptada es :

• para R >= 0.0 , SIETE caracteres.
• para R < 0.0 , OCHO caracteres.

Ejemplos:

Debido a que Pascal alinea (justifica) las impresiones hacia la derecha del campo correspondiente, cuando es necesario acomodar tabularmente los caracteres de cadenas que no ocupan la totalidad de columnas especificadas.

Por ejemplo, suponiendo que nombre es un identificador de tipo string[20] (cadena con formato de 20 caracteres), para que la impresión de todos los valores de nombre empiece en la misma columna, podemos utilizar la instrucción :

WriteLn(numero,'.- ',nombre,

' ':20-length(nombre),calif:3);

y, al ejecutar el programa se tendrá algo parecido a :

1.-	JUAN FLORES	90	(Nótese la justificación de los nombres
2.-	EGRID L. CASTRO	100	hacia la izquierda y los números hacia
3.-	RAMON RAMIREZ	99	la derecha)

 

Formatos de salida

 

Formato 1 : WriteLn(ítem:anchura...);

Formato 2 : WriteLn(ítem:anchura:dígitos ...);

Ejemplos:

Valor:=25.0776;

4.1 Secuencia

En este caso, las instrucciones se ejecutan una después de la otra sin omitir ninguna de ellas.

La sintaxis para las instrucciones ejecutadas en secuencia es :

 

4.2 Selección La selección de alternativas en Pascal se realiza con alguna de las dos siguientes formas : La sentencia if La sentencia case 4.2.1 IF-THEN-ELSE Dado que una condición produce un valor verdadero o falso, se necesita una sentencia de control que ejecute determinada sentencia si la condición es verdadera , y otra si es falsa. En Pascal esta alternativa se realiza con la sentencia IF-THEN-ELSE. A continuación se describe el diagrama de flujo y el formato de la sentencia. Formatos de la sentencia IF: if <condición> then <instrucción_1> else <instrucción_2> if <condición> then <instrucción_1> else <instrucción_2> En este caso, primero se evalúa condición y si el resultado arroja un valor de verdad(verdadero), se ejecuta instrucción_1 ; en caso contrario se ejecuta instrucción_2. La condición es una expresión Booleana que puede ser verdadera o falsa (true o false). Una expresión Booleana se forma comparando valores de las expresiones utilizando operadores de relación (relacionales) o comparación y los operadores lógicos vistos anteriormente.   Ejemplos : Omisión de cláusula else : Program Edades; Uses Crt; Var edad : integer ; begin WriteLn('Escribe tu edad : '); ReadLn(edad); if edad >= 18 then WriteLn('!Eres Mayor de edad !'); WriteLn('Esta instrucción siempre se ejecuta'); ReadKey end. Nota: Antes de la palabra end no se debe anteponer un punto y coma como se muestra en este ejemplo. El hacerlo generaria una sentencia vacia (sentencia que no hace nada).   Utilización de cláusula else : Program Edades; Uses Crt; Var edad : integer ; begin WriteLn('Escribe tu edad : ') ; ReadLn(edad) ; if edad >= 18 then WriteLn('!Eres Mayor de edad !') else WriteLn('!Eres Menor de edad !'); WriteLn('Esta instrucción siempre se ejecuta'); ReadKey end. Nota: Antes de la cláusula else no se antepone un punto y coma, si lo hubiese el compilador producirá un mensaje de error, puesto que no existe ninguna sentencia en Pascal que comience con else. La parte else es opcional, pero la ejecución siempre continuará en otra instrucción. En lugar de utilizar instrucciones simples, se pueden usar bloques de instrucciones, como acontinuación se muestra : Program Edades; Uses Crt; Var edad : integer ; begin WriteLn('Escribe tu edad : ') ; ReadLn(edad) ; if edad >= 18 then begin WriteLn('!Eres Mayor de edad !'); WriteLn('!Ya puedes Votar!') end else begin WriteLn('!Eres Menor de edad !'); WriteLn('!Aún no puedes votar!') end; WriteLn('Esta instrucción siempre se ejecuta'); ReadKey end. Sentencia IF anidadas : Program NumMayor; Uses Crt; Var n1,n2,n3,mayor : integer ; begin WriteLn('Escribe tres numeros enteros : '); ReadLn(n1,n2,n3); if n1>n2 then if n1>n3 then mayor:=n1 else mayor:=n3 else if n2>n3 then mayor:=n2 else mayor:=n3; WriteLn('El mayor es ',mayor); ReadKey end. 4.2.2 CASE-OF-ELSE Esta forma es muy útil cuando se tiene que elegir entre más de dos opciones, por lo que le llamaremos forma de selección múltiple. La siguiente figura representa la selección múltiple. Su formato es : case <selector> of constante.1 : begin <instrucciones>; end; constante.2 : begin <instrucciones> ; end; ..................... ..................... constante.N : begin <instrucciones> ; end else begin <instrucciones> ; end; end; { FIN DE CASE }   Dependiendo del valor que tenga la expresión selector, se ejecutarán las instrucciones etiquetadas por constante . Aquí también los bloques de instrucciones pueden ser reemplazados por instrucciones simples. Conviene tener presente que no debe escribirse punto y coma antes de la palabra else. Reglas: La expresión <selector> se evalúa y se compara con las constantes;las constantes son listas de uno o más posibles valores de <selector> separados por comas. Ejecutadas la(s) <instrucciones>, el control se pasa a la primera instrucción a continuación de end (fin de case). La cláusula else es opcional. Si el valor de <selector> no está comprendido en ninguna lista de constantes y no existe la cláusula else, no sucede nada y sigue el flujo del programa; si existe la cláusula else se ejecutan la(s) <instrucciones> a continuación de la cláusula else. El selector debe ser un tipo ordinal ( integer, char, boolean o enumerado). Los números reales no pueden ser utilizados ya que no son ordinales. Los valores ordinales de los límites inferiores y superiores deben de estar dentro del rango -32768 a 32767. Por consiguiente, los tipos string, longint y word no son válidos. Todas las constantes case deben ser únicas y de un tipo ordinal compatible con el tipo del selector. Cada sentencia, excepto la última, deben ir seguidas del punto y coma. Ejemplo: Program Tecla; {El siguiente programa lee un carácter del teclado y despliega un mensaje en pantalla si es letra o número o carácter especial} Uses Crt; Var caracter : char; begin Write('Escribe un caracter : '); caracter:=ReadKey;WriteLn; case caracter of '0'..'9' : WriteLn('Es un número'); 'a'..'z','A'..'Z' : WriteLn('Es una letra') else WriteLn('Es un caracter especial') end; ReadKey end.

4.3 Iteración

Las formas de iteración sirven para ejecutar ciclos repetidamente, dependiendo de que se cumplan ciertas condiciones. Una estructura de control que permite la repetición de una serie determinada de sentencias se denomina bucle¹(lazo o ciclo).

El cuerpo del bucle contiene las sentencias que se repiten. Pascal proporciona tres estructuras o sentencias de control para especificar la repetición:

¹ En inglés, loop.

4.3.1 WHILE-DO

La estructura repetitiva while(mientras) es aquella en la que el número de iteraciones no se conoce por anticipado y el cuerpo del buclese ejecuta repetidamente mientras que una condición sea verdadera .

Su formato es :

y su diagrama :

Reglas de funcionamiento :

1. La condición se evalúa antes y después de cada ejecución del bucle. Si la condición es verdadera, se ejecuta el bucle, y si es falsa, el control pasa a la sentencia siguiente al bucle.
2. Si la condición se evalúa a falso cuando se ejecuta el bucle por primera vez, el cuerpo del bucle no se ejecutará nunca.
3. Mientras la condición sea verdadera el bucle se ejecutará. Esto significa que el bucle se ejecutará indefinidamente a menos que "algo" en el interior del bucle modifique la condición haciendo que su valor pase a falso. Si la expresión nunca cambia de valor, entonces el bucle no termina nunca y se denomina bucle infinito lo cual no es deseable.

 

ejemplos:

Program Ej_While;

UsesCrt;

{El siguiente programa captura una cadena,

hasta que se presione la tecla Esc(escape),

cuyo ordinal es el #27.}

Const

Esc=#27;

Var

nombre: string[30];

tecla :char;

cont :word;

begin

ClrScr;

cont:=1;

While(tecla<>Esc) do

begin

Write(cont,' Nombre : ');

ReadLn(nombre);

inc(cont);

tecla:=ReadKey

end

end.

4.3.2 REPEAT-UNTIL

La acción de repeat-untiles repetir una serie de instruccioneshastaque se cumpla una determinada condición .

Su formato es :

Aquí las palabras repeatyuntilsirven también como delimitadores de bloque.

Su diagrama de flujo es :

Reglas de funcionamiento:

1. La condición se evalúa al final del bucle, después de ejecutarse todas las sentencias.
2. Si la condición es falsa, se vuelve a repetir el bucle y se ejecutan todas sus instrucciones.
3. Si la condición es falsa, se sale del bucle y se ejecuta la siguiente instrucción a until.
4. La sintaxis no requiere begin y end.

Analícense los diagramas dewhile-doy repeat-until, para comprender las diferencias entre ambas formas.

Ejemplo:

ProgramEj_Repeat;

UsesCrt;

{El siguiente programa captura una cadena,

hasta que se presione la tecla Esc(escape),

cuyo ordinal es el #27.}

Const

Esc=#27;

Var

nombre:string[30];

tecla: char;

cont : word;

begin

ClrScr;

cont:=1;

Repeat

Write(cont,' Nombre : ');

ReadLn(nombre);

inc(cont);

tecla:=ReadKey

Until(tecla=Esc)

end.

4.3.3 FOR-TO-DO

Cuando se sabe de antemano el número de veces que deberá ejecutarse un ciclo determinado, ésta es la forma más conveniente.

El formato parafor-to-do es :

 

Al ejecutarse la sentencia forla primera vez, a contador se le asigna un valor inicial(expresion.1), y a continuación se ejecutan las intrucciones del interior del bucle, enseguida se verifica si el valor final (expresión.2) es mayor que el valor inicial (expresión.1); en caso de no ser así se incrementa contadoren uno y se vuelven a ejecutar las instrucciones, hasta que el contadorsea mayor que el valor final, en cuyo momento se termina el bucle.

Aquí, contador no puede ser de tiporeal.

Ejemplo:

ProgramEj_For;

UsesCrt;

{El siguiente programa despliega en pantalla el

numero de veces que se ejecuta las instrucciones

contenidas en el bucle for}

Var

Valor_final,contador:integer;

Begin

ClrScr;

Write('Escribe el número de iteraciones : ');

ReadLn(valor_final);

forcontador:=1tovalor_finaldo

WriteLn('Iteración : ',contador);

ReadKey

end.

El contador se puede decrementar sustituyendo la palabra topor la palabra downto.

Formato:

Ejemplo:

ProgramEj_Downto;

UsesCrt;

{El siguiente programa despliega en pantalla el

numero de veces que se ejecuta las instrucciones

contenidas en el bucle for}

Var

Valor_final,contador:integer;

Begin

ClrScr;

Write('Escribe el número de iteraciones : ');

ReadLn(valor_final);

for contador:=valor_finaldownto1 do

WriteLn('Iteración : ',contador);

ReadKey

end.