PROGRAMAS SIMPLES EN PASCAL

PROGRAMAS SIMPLES EN PASCAL Programa en PASCAL programa

Algoritmo para el cálculo del beneficio (* Entrada: Variables TarifaServicio, TarifaServicio,

cabecera de programa

declaraciones

instrucciones

cabecera de programa Identificador

declaraciones

CosteUnidad , Instalaciones, Instalaciones, MetrosCable

Objetivo: Calcular el beneficio obtenido por la

.

PROGRAM lista parametros

(

EJEMPLOS

);

etiquetas

instalación de un cierto numero de metros de cable en un determinado numero de lugares. Por cada instalacion hay una tarifa minima de servicio y una tarifa adicional por cada pie de cable

Salida: Beneficio obtenido *)

constantes

TarifaServicio, 1. Introducir las variables TarifaServicio, CosteUnidad , Instalaciones, Instalaciones, MetrosCable

ti os variables subprogramas

instrucciones

BEGIN

instruccion

2. Calcular Beneficio = Instalaciones * TarifaServicio + CosteUnidad * CosteUnidad * MetrosCable 3. Visualizar Beneficio Beneficio

END

; Tema 2. Elementos básicos de la programación imperativa imperativa Profesor: Isabel Pita Andreu -1-

Tema 2. Elementos básicos de la programación imperativa Profesor: Profesor: Isabel Pita Andreu Andreu -2-

Programa

Programa

PROGRAM CalcularBeneficio (input,Output); VAR Instalaciones, {numero de instalaciones} MetrosCable: integer; {metros de cable } TarifaServicio , CosteUnidad, {coste por metro de cable} Beneficio: real; {beneficio obtenido}

PROGRAM Suma (input,Output); VAR X,Y, {dos numeros dados} Suma: integer; {suma de los numeros}

BEGIN writeln(‘Introduzca la tarifa de servicio, el coste por metro de cable, el numero de instalaciones, y los metros de cable usados:’); readln(TarifaServicio, CosteUnidad, Instalaciones, MetrosCable); Beneficio := TarifaServicio * Instalaciones + CosteUnidad * PiesCable; writeln(‘Beneficio obtenido = ‘Beneficio : 7:2) END.

BEGIN

X := 214; Y := 2057; Suma := X + Y; writeln(‘La suma de ‘, X , Y, ‘es ’, Suma) END.

Ejemplo de ejecución La suma de 214 y 2057 es 2271

Ejemplo de ejecución Introduzca la tarifa de servicio, el coste por metro de cable, el numero de instalaciones y los metros de cable usados: 25 2 27 263 Beneficio obtenido = 1211.00

Tema 2. Elementos básicos de la programación imperativa imperativa Profesor: Isabel Pita Andreu -3-

Tema 2. Elementos básicos de la programación imperativa Profesor: Isabel Pita Andreu -4-

CONSTANTES

CONSTANTES

Cantidades cuyos valores no cambian durante la ejecución del programa

Constante de tipo carácter : un único carácter encerrado entre comillas simples. Ejemplos: ‘A’, ‘+’, ‘3’, ‘;’, ‘’’’

Constante entera : cadena de dígitos. Las cadenas enteras negativas deben ir precedidas de un signo menos, en los enteros no negativos el signo más es opcional. Ejemplos: 0 137 -2578 +456 Constantes reales con representación decimal : • Deben incluir un punto decimal • Debe haber al menos un dígito antes del punto decimal y un dígito después de él. • Las constantes reales negativas deben estar precedidas de un signo menos, en los reales no negativos el signo es opcional Ejemplos: 1.233 -0.3675 +457.0 Const. reales con representación representación exponencial : Constante entera o real en forma decimal, seguida por la letra E, seguida por una constante entera, que se interpreta como exponente de la base 10. Ejemplos: 3.37456E2 0.337456E3 337.456E0 33745.6E-2 Tema 2. Elementos básicos de la programación imperativa imperativa Profesor: Isabel Pita Andreu -5-

Constate de tipo cadena de caracteres: cadena de caracteres encerrada entre comillas simples. Ejemplo: ‘Hola mundo’, ‘M-4435-PK’

Constante de tipo booleano : solo hay dos valores true y false

IDENTIFICADORES Nombres dados a los programas, constantes, variables, y otras entidades del programa. Deben empezar por una letra, seguida de cualquier número de letras o dígitos. • No pueden ser palabras reservadas • No conviene que sean identificadores con significado predefinido. • No se hace distinción entre mayúsculas y minúsculas • Práctica a seguir en este curso: • Las palabras reservadas en mayúsculas • Idenificadores predefinidos en minúsculas • Identificadores definidos por programador, primera letra de cada palabra en mayúsculas •


CONSTANTES CON NOMBRE En la sección de declaración de constantes se asignan identificadores a las constantes del programa. constantes

CONST

VARIABLES Identificador asociado a una posición de memoria. memoria. Se caracterizan por su tipo, y su valor en un momento determinado. variables

identificador

=

constante

VAR

; lista variables

Ejemplo: CONST Pi = 3.1415; MenosPi = -Pi; MiNombre = ‘Isabel’; Anno = 2000;

lista variables

tipo

:

;

identificador ,

Identificadores de constante predefinidos : •

•

maxint : mayor entero que puede representarse en la computadora true y false.

Tipos predefinidos : integer, real, boolean, char text. Ejemplo: VAR NumeroEmp : integer; CodioDept : char ; Residente : boolean ; Horas, Tarifa, Salario : real ; Entada, Salida : text; Deben utilizarse identificadores significativos para las variables



OPERACIONES ARITMÉTICAS Operador + * / DIV MOD

Operación Suma Resta Multiplicación División real División entera Módulo

Ejemplos: 2+3=5 7 / 2 = 3.5 7 DIV 2 = 3 7 MOD 2 = 1

Operandos integer o real integer o real integer o real integer o real integer (j<>0) integer (j>0)

2 + 3.0 = 5.0 7.0 / 2 = 3.5 4 DIV 5 = 0 4 MOD 5 = 4

Resultado integer o real integer o real integer o real real integer integer

S A D I N I F E D E R P S A C I T É M T I R A S E N O I C N U F

12 / 4 = 3.0 (-8) DIV 3 = -2 0 MOD 5 = 0

Niveles de prioridad : • Operadores de alta prioridad : * / DIV MOD • Operadores de baja prioridad : + Reglas : • Los operadores de alta prioridad se ejecutan antes que los de baja • Los operadores con igual prioridad se ejecutan de izquierda a derecha • Las expresiones entre paréntesis se evaluan primero • No se permite la aparición de dos operadores seguidos (Atención operadores unarios +,-) Ejemplo: (7 * (10 – 5) MOD 3) * 4 + 9 = 17

o o t t n n e e m m u o u g g d r r a a r a r t l l e e l u g g e e l l l e l d l e s d l a a a t a l a t e l a e e e e e e n n r e r i R e r r r r i o t r l l l l l l l e a a a a a l a a a e e e e e e m e r r r r r r r e r á r o o o o o o o o a r r r r r r r r p e e e e e e e e g g g g g l g g g l o e e t e t e t e a t e t e t e a p t t i n i n i n i n i n e n i n i n e T i r r i ) o s m e a i r n x a e i ó t ) r d s n x p e a r e s ) e á e n s t n a d r e i l o m e a n a x ( d p i a n a o i x a e x r c a r d l d e n n i e e r t a e e o d ( n r x d a n e t p e e a o n o t u e x l e e d t p n a ( n n l n a d o e x r e ó s e i g d e o o x o d i c b e n a m n m d e d p a t a o a u a i i n ó t r c r n d d c r e i o o a o o a z c s l c s c n i n e a r o n g d e u u u e o r D V A C f l r s c a r t ) ) ) n ( x x x ( ó ) ) ( i ) ) ) ) n d x x x x ) c c ( t x a ( ( x ( n t x ( ( n s c s p ( r n n r u u b r o x n u q q r o i F a a c e l r s s s t


INSTRUCCIÓN DE ASIGNACIÓN instrucción de asignacion

identificador

:=

expresion

Como resultado de una instrucción de asignación el valor de la variable cambia al valor de la expresión Ejemplos: X := 2 {X toma el valor 2} Y := 5 {Y toma el valor 5} Suma := X + Y {Suma toma valor 7}

ENTRADA / SALIDA Las instrucciones de entrada/salida permiten mostrar los resultados calculados en un dispositivo de salida e introducir nuevos valores durante la ejecución

Instrucciones de salida: •

•

•

X := X+1 { X toma el valor 3} Y := Y+X {Y toma el valor 8} Y := sqrt(Y+1) { Y toma valor 3} codigo := ‘A’ encontrado := false Reglas : • El identificador debe estar declarado en la sección de variables • La expresión debe ser del mismo tipo que la variable o de un tipo convertible • El único tipo convertible en PASCAL es el tipo entero a tipo real • Las variables permanecen indefinidas hasta que se especifica su valor Tema 2. Elementos básicos de la programación imperativa imperativa Profesor: Isabel Pita Andreu - 11 -

write (lista-salida) : muestra los valores de los objetos en la lista-salida en la línea actual writeln(lista-salida) : después de mostrar los valores de los objetos en lista-salida en la línea actual salta de línea writeln : produce un salto de línea en el dispositivo de salida

Reglas : •

•

• •

•

La anchura del campo para valores numéricos depende del compilador La anchura del campo para caracteres y cadenas es el número de caracteres del valor Los valores numéricos se justifican a la derecha Los caracteres y cadenas se justifican a la izquierda Los valores reales se muestran en notación científica

Tema 2. Elementos básicos de la programación imperativa Profesor: Isabel Pita Andreu - 12 -

a v i t a r 0 e 1 p m i n ó i c a m a r g o r p a l e d u s e o r c d i s n á A b a t s i o P t n e l e b m a e s l E I : . r o 2 s a e f m o e r T P

ENTRADA/SALIDA Ejemplo:

ENTRADA/SALIDA Instrucciones de entrada •

Contador := 16; write(Contador , ‘es par’); write(Contador + 1, ‘es impar’); writeln; writeln(‘**********’); writeln; writeln(2.0*Contador, ‘es real’)

•

•

readln(lista-entrada) : lee valores del archivo entrada input y los asigna a las variables de la lista entrada. Después de leer los valores se avanza hasta una nueva línea de entrada read(lista-entrada) : después de leer los valores no se produce el avance readln : da por terminada la lista de entrada actual.

Ejemplos: Ejemplo de ejecución 16 es par 17 es impar ********** 3.200000000E1 es real

Descriptores de formato Especifican el formato de la salida • :w -> especifica que el valor que se va a mostrar en un campo consiste en w espacios. Si es demasiado pequeño se agranda para valores numéricos pero para caracteres, booleanos y cadenas sólo se muestran los w caracteres mas a la izquierda. •

• • • •

read(x,y,z) read(x);read(y);read(z) readln(x,y,z) readln(x);readln(y);readln(z)

Posibles entradas: • 2 3 4 • 2 3 4 • 2 3 4

:w:d -> Solo para valores reales. w es la anchura del campo y d el número de dígitos a mostrar al lado derecho del punto decimal. El valor se redondea o se llena con ceros

Tema 2. Elementos básicos de la programación imperativa imperativa Profesor: Isabel Pita Andreu - 13 -


ARCHIVOS Se utilizan para almacenar datos (información) en memoria externa (disco duro o disquetes). Los datos almacenados en un archivo pueden ser leídos múltiples veces por un programa.

Tipos de archivos Archivos de texto :  Los datos se almacenan con formato carácter.  Se pueden crear con un editor de texto o con un programa.  Se pueden leer mediante un programa  Se pueden visualizar con un editor de texto.  La transformación del formato interno del dato al formato carácter se realiza automáticamente.

ARCHIVOS DE TEXTO Declaración : variables archivo de tipo text. Ejemplo VAR

ArchEmp : text; DatosSemillas : text;

•

•

Archivos binarios :  Los datos se almacenan con formato binario.  Sólo se pueden crear con un programa.  Se pueden leer mediante un programa  No se pueden visualizar con un editor de texto. En caso de hacerlo aparecerán caracteres extraños en lugar de la información almacenada.  No es necesaria transformación del formato interno al formato del fichero.

Asignación del nombre lógico al archivo físico Ejemplo assign(ArchEmp, "Empleados.txt") Esta instrucción es propia de turbo pascal.

Apertura de un archivo de entrada: instrucción que coloca el puntero de lectura al principio del archivo Ejemplo reset(ArchEmp); Lectura de un archivo: instrucción que asigna el valor apuntado por el puntero de lectura a la siguiente variable de la lista y se avanza el puntero hasta el siguiente dato. Cuando se finaliza la lista, si la instrucción es readln se avanza el puntero hasta el final de línea. Ejemplo read(ArchEmp, Nombre, Edad) readln(ArchEmp, Nombre, Edad)



ARCHIVOS DE TEXTO Apertura de un archivo para escritura: instrucción que crea un archivo vacío y coloca el puntero de escritura al principio del archivo. Cualquier contenido del archivo se destruye. Ejemplo rewrite(ArchEmp); Escritura de un archivo: instrucción que escribe los valores de las expresiones de la lista en el archivo de salida. Si la instrucción es writeln se avanza hasta la siguiente línea del archivo. Ejemplo write(ArchEmp, Nombre, Edad) writeln(ArchEmp, Nombre, Edad) writeln(ArchEmp)


PROGRAMAS SIMPLES EN PASCAL

Recommend Documents