REPÚBLICA BOLIVARIANA DE VENEZUELA
CÁTEDRA: PROGRAMACIÓN
SECCIÓN: CBM-4B
“PROGRAMA EN PASCAL
TERCER CORTE”
MARACAIBO, ENERO DE 2010
INDICE
1.) Programa en pascal (tipo menú) que calcula: potencia cuadrada de un número,
raíz cuadrada de un número, seno, coseno y tangente.
2.) String
2.1) Definición
2.2) Declaración de una variable tipo string
2.3) Longitud de una cadena
2.4) Asignación de cadenas
• Programa:
Program OperacionesMatematicas;
Uses
Crt;
Const
Pi=3.141592654;
Var
Op,num1:Integer;
radian,resultado:Real;
Begin
Clrscr;
Writeln(‘Introduzca num1’);
Readln(num1);
Writeln(‘Introduzca el radian a calcular’);
Readln(radian);
Writeln(‘1.-cuadrado de un numero’);
Writeln(‘2.-raiz cuadrada’);
Writeln(‘3.-seno’);
Writeln(‘4.-coseno’);
Writeln(‘5.-tangente’);
Writeln(‘Ingrese la opción que desea’);
Realdn(op);
Case op of
1:resultado:=SQR(num1);
2:resultado:=SQRT(num1);
3:resultado:=SIN(radian*pi);
4:resultado:=COS(radian*pi);
5:resultado:=SIN(radian*pi)/COS(radian*pi);
Else
Writeln(‘Ingrese una opción equivocada’);
End;
Writeln(‘resultado es: ‘ , resultado:3:8);
Readln();
End.
• String:
Definición
Pascal, como cualquier otro lenguaje, debe tener la capacidad de procesar frases
como "Presione ENTER para continuar", "Calculando...", "Proceso terminado",
etc.
Los datos tipo char y string permiten la manipulación de datos no numéricos.
Una cadena de caracteres o string es una serie de caracteres cuya longitud
(número de caracteres que contiene) puede variar de 1 hasta 255 caracteres.
Turbo Pascal tiene el tipo de dato string que almacena información de texto.
Este dato se puede almacenar en constantes y en variables de cadena. Una
variable de cadena está declarada para la palabra string seguida de la longitud
máxima de la cadena encerrada entre corchetes.
Declaración de una variable tipo string
Las variables de cadena se pueden declarar las de cualquier otro tipo, ya sea en
la sección var o en type.
Si se declara como var, se hace de la siguiente manera:
Var
Mensaje : string [80];
Nombre : string [40];
Si la cadena es declarada como type, haríamos la declaración así:
Type
Cadena80 = string [80];
Cadena40 = string [40];
Var
Mensaje : Cadena80;
Nombre : Cadena40;
Es importante recordar que si se declara como Type inmediatamente después,
dentro de las variables, se debe declarar una variable que haga referencia al
Type.
Una vez declaradas las variables de cadena se pueden realizar asignaciones o
bien operaciones de lectura / escritura en los programas.
Por ejemplo:
Program Ejemplo;
Var
Mensaje = string[40];
Begin
Mensaje := `Hola mis amigos, por favor estudien bastante´;
Write (`Mi mensaje de hoy para ustedes es: `),Mensaje;
Writeln;
Write (`Presione enter...´);
Readln
End.
Longitud de una cadena
Una cadena físicamente es una estructura de una secuencia de 0 hasta 255
caracteres de longitud. Sin embargo, la ocupación en memoria de una cadena es
un número de bytes igual al de caracteres de la cadena más uno. Así la cadena:
`Programador´
tiene una longitud de 11 caracteres, entonces ocupará en memoria 12 bytes. Esto
se debe a que el primer byte en una cadena, contiene la longitud de la cadena
actualmente almacenada en memoria.
Supongamos que esta palabra corresponde a un dato almacenado en la variable
PUESTO que fue definida de la siguiente manera:
Var
Puesto : String[20];
Sucede que, entonces, la longitud lógica de la variable será de 11 bytes pero la
longitud física será de 20 bytes pues así fue definida.
Asignación de cadenas
A las variables de cadena, como se ha visto, se pueden dar valores con una
sentencia de asignación o con una sentencia de lectura (read). Ambas situaciones
se pueden describir con la ecuación:
Destino fuente
Donde destino es la cadena a la que se da un valor y fuente es la expresión de
cadena que contiene el correspondiente valor. Esta ecuación actúa como la
sentencia de asignación que evalúa la cadena fuente y se almacena en la variable
de la cadena destino.
Dependiendo del tamaño (longitud de la cadena) de las cadenas fuente y destino
se pueden presentar tres casos diferentes que analizaremos a partir de la
siguiente declaración de variables de cadena.
Var
Cad1 : String [8];
Cad2 : String [11];
Cad3 : String [15];
Cad4 : String [11];
