Programación pascal

Puntero Nil

2007-02-10T07:50:00.000-08:00

El puntero nil es un puntero que no apunta a ninguna parte.

Un error muy común es acceder a una zona donde apunta un puntero indefinido porque:

No tiene permiso
no sabemos lo que hay
no sabemos interpretarlo
podemos dañar una zona importante del programa o sistema operativo

Punteros colgantes: cunado exiten varias copias de un puntero. Cuando una de las copias devulve la memoria con dipose, toma el valor nil y las demás copias quedan con el mismo valor, pero no son accesibles.

Operaciones con punteros

2007-02-10T07:37:00.000-08:00

Los punteros permiten las siguientes operaciones:

Asignación de punteros: Si tenemos dos variables que apuntan al mismo sitio es posible asignar el valor de identificción de una de ellas a la otra.
p1 := p2 (asigna el valor del puntero p2 al puntero p1)

Comparación de igualdad o desigualdad. Para ver si dos punteros apuntan a la misma dirección.

Compatibilidad de asignación y comparación de los punteros.

Los punteros tienen el mismo identificador de tipo.
El identificador de tipo de una variable es un alias del otro.
Nil es compatible con todos los punteros tanto para asignación como en comparación.

New y Dispose punteros

2007-02-10T07:17:00.000-08:00

New: Pide memoria al sistema operativo.
Dispose: Devuelve memoria al sistema operativo.

New: Formas de inicializar un puntero:

Solicitar memoria con new. Creua la variable apuntada del tipo al que apunta el puntero en la zona de memoria llamada HEAP.
Asignar a un puntero la dirección válida que contiene otro puntero.

Dispose: Se utiliza cuando las variables identificadas no son necesarias para liberar la memoria

Después de usar dispose la memoria devuelve la memoria del puntero.
El valor del puntero queda indefinido
No se puede volver a acceder a la zona de memoria especificada.

Para poder usar dispose:

El puntero tiene que ser no nil
El puntero no puede ser indefinido
El puntero no puede estar siendo accedido en ese momento.

Punteros en pascal

2007-02-10T07:02:00.000-08:00

Los punteros representan cualquier dato de la memoria situado en una determinada dirección de memoria.

Los punteros se manejan mediante un identificador, el ual representa:

Dirección: Lugar de memoria en el que se encuentra el dato
Tipo: Nº de celdas ocupadas por el dato y la interpración de su contenido.

Un puntero siempre tiene que estar apuntando a un tipo de los siguientes datos:

Número real
Registro
Array
Otro puntero

También se define el puntero nulo (que no apunta a ninguna dirección) con la sentencia nil

Operaciones con registros

2007-02-03T08:17:00.000-08:00

Para la asignación de registros es compatible en los siguientes casos:

Los registros tienen que ser de tipo idéntico
Un registros es un alias del otro
Los registros comparten la misma definición
Los registros están formados por componentes asignables

A su vez son registros que no se puden asignar los siguientes:

No pueden ser archivos o ficheros
No pueden estar formados por registros restringidos
No admiten los enlazables

Registros (record)

2007-02-03T07:36:00.000-08:00

Un registro o record sirve para agrupar distinto tipo de datos pero que deben estar juntos. Por ejemplo los datos de una persona, nombre, edad, fecha nacimiento, sexo, etc.

Es necesario acceder de forma aleatoria a los campos de un registro, pero no puede ser calculado porque los campos pueden tener distinto tamaño, por lo que se crea un SELECTOR DE CAMPO o identificador. Se pueden realizar registros anidados.

Ejemplo de registro o record en pascal:
type
tFecha = record
dia: 1..31;
mes: 1..12;
año: 1..2100;
end;

Un registro puede tener varias variantes con un campo discriminante siempre presente, el cual elige una variante o otra según se indique. En el caso de ser boolean se elige la que sea true.
El campo discriminante tiene que ser de tipo ordinal, no puede ser anónimo y no enlazable.

Alguno de los campos de alguna variante puede ser un registro, el cual puede tener una parte variante también, etc.

Un error muy común es intentar acceder a un comapo de una variante no activa, porque en ese caso esa variante no existe.

Conjuntos en pascal

2007-02-01T07:09:00.000-08:00

Pascal estándar permite el tratamiento de conjuntos como elementos. Un conjunto es una colección de elementos que no están repetidos. Los conjuntos en pascal tienen que tener un tipo base Ordinal necesariamente.

Los operadores de los conjuntos:
Intersección: *
Unión: +
Diferencia: -
Diferencia simétrica: >< pertenencia: in

Operadores relacionales y conjuntos: Sean A y B dos conjuntos
Igualdad: A = B True si tienen los mismo elementos
Desigualdad A <> B True si tienen elemendos distintos
Subconjunto A <= B True si A está contenido en B
Superconjunto A >= B True si B está contenido en A

Nota Se pueden agregar o quitar elementos de un conjunto con los operadores + y - de la siguiente forma Conjunto := Conjunto + ['e']

Operaciones con Ficheros

2007-01-31T05:42:00.000-08:00

Conceptos Básicos:

El Buffer de archivo: El buffer es una variable ligada al archivo cuyo tipo es el tiopo baso de este y cuyo contenido es el componente de la posición actual del buffer.

Te presentamos los principales procedimientos y funciones para la utilización de ficheros tanto externos como internos en pascal.

REWRITE: Crea un fichero vacío en la posición eof y el buffer de archivo f^ queda indefinido.
Sintaxis: rewrite(fichero)

PUT: Agrega el componente del buffer de archivo f^ al fichero seleccionado.
Sintaxis: put(fichero)

RESET: Prepara el archivo para inspección.
Sintaxis reset(fichero)

GET: Pasa al siguiente componente y actualiza el buffer.
Sintaxis: get(fichero)

EOF: Detecta el final de fichero.
Sintaxis: eof(fichero)

EXTEND: Esta funcion es la fomra de añadir compentes a un archivo sin usar la funcion rewrite la cual destruye todo el contenido del fichero.
Sintaxis: extend(f);

READ: Lee del archivo indicado.
Sintaxis: read(fichero,v) Si v es un entero el procedimiento lee el primer entero eliminando los espacios y saltos de línea hasta él.
read(fichero,v) equivale a las siguientes sentencias:

begind
v:= fichero^;
get(fichero)
end;

WRITE: Escribe en el fichero seleccionado
Sintaxis: write(fichero,v)

Visualizar matrices en pantalla

2007-01-21T04:43:00.000-08:00

Muestra Matices en la salida estandar


type 
   tDimension = 1..100;
   eMatriz(f,c: tDimension) = array [1..f,1..c] of real;
   
   tRango = record
      f,c: tDimension value 1;
   end;
   
   tpMatriz = ^eMatriz;


procedure EscribirMatriz(var m: tpMatriz);
var filas,col : integer;
begin
   for filas := 1 to m^.f do begin
      for col := 1 to m^.c do
         write(m^[filas,col]:7:2);
      writeln(resultado);
      writeln(resultado)
     end;    
end;

Division matrices en pascal

2007-01-21T04:40:00.000-08:00

División de dos matrices en pascal.
Para el uso de este procedmiento son necesarios los siguientes procedimientos.
Matriz Inversa
Multiplicar matrices

Dado la siguiente declaración de tipos:
type
tDimension = 1..100;
eMatriz(f,c: tDimension) = array [1..f,1..c] of real;

tRango = record
f,c: tDimension value 1;
end;

tpMatriz = ^eMatriz;

procedure Dividir(m1, m2: tpMatriz; var resul: tpMatriz);
var inversa: tpMatriz;
begin
{ Calcular inversa de m2 }
new (inversa, m2^.f, m2^.c);
MatrizInversa(m2,inversa);

Multiplicar(m1,inversa,resul);
end;

Matriz inversa en pascal

2007-01-20T15:13:00.000-08:00

Para El uso de este procedimiento es necesario otros artículos de este blog como:
Determinante en pascal
Matriz Adjunta en pascal

Dada la siguiente declaración de tipos:


type 
   tDimension = 1..100;
   eMatriz(f,c: tDimension) = array [1..f,1..c] of real;
   
   tRango = record
      f,c: tDimension value 1;
   end;
   
   tpMatriz = ^eMatriz;


procedure MatrizInversa(m: tpMatriz; var resul: tpMatriz);
var i,j,i2,j2: integer; 
    adjunta: tpMatriz;
    deter: real;
begin
   deter:= Determinante(m);
   if(deter <> 0) then begin
   {Crea la matriz Adjunta}
   new (adjunta, m^.c -1, m^.f -1);
   
   for i:=1 to m^.f do
      for j:=1 to m^.c do
        begin
          AdjuntoMatriz(m,i,j,adjunta);
          resul^[i,j] := Determinante(adjunta); 
        end;  
      
   MatrizTraspuesta(resul);  
   { dividir determinante }
   for i2:=1 to m^.f do
      for j2:=1 to m^.c do
         resul^[i2,j2]:= resul^[i2,j2] / deter; 
   end;
end;

Traspuesta matriz en pascal

2007-01-20T14:56:00.000-08:00

Este procedimiento realiza la matriz traspuesta a una dada.
La Matriz traspuesta se obtiene intercambiando las filas por las columnas
de una matriz.

Dado la declaración en la sección de tipos:

type
tDimension = 1..100;
eMatriz(f,c: tDimension) = array [1..f,1..c] of real;

tpMatriz = ^eMatriz;

Y las variables:

var
pM1, pM2, pResul: tpMatriz;
procedure MatrizTraspuesta(var resul: tpMatriz);
 var i,j,i2,j2: integer;
 mAux:tpMatriz;  {Matriz axuliar}
begin
 {Crear matriz m copia de resul}
 new (mAux, resul^.f, resul^.c);

 for i2:= 1 to mAux^.f do
    for j2:=1 to mAux^.c do
       mAux^[i2,j2] := resul^[i2,j2];
    
 { copia de la matriz resul }          
 for i:= 1 to mAux^.f do
    for j:=1 to mAux^.c do
       resul^[i,j] := mAux^[j,i];

end;

Determinante de matrices en pascal

2007-01-15T14:21:00.000-08:00

Primero un poco de Teoría. Aprende a realizar el determinante de una matriz de
cualquier dimesión.

Sea A una matriz cuadrada y a_ij (con i y j como filas y columnas del array) uno cualquiera de sus elementos. Si se suprime la fila i y la columna j de la matriz A se obtiene una submatriz (o matriz adjunta) M_ij que recibe el nombre de matriz adjunta del elemento a_ij.

Dada la matriz

la matriz adjunta del elemento a₁₁ es la matriz que resultante de suprimir la fila 1 y columna 1 en la matriz A, es decir:

Llamamos menor complementario del elemento a_ij al determinante de la matriz complementaria del elemento a_ij , y se representa por a_ij

Se llama adjunto de a_ij , y se representa por por A_ij, al número (–1)^i+ja_ij.

El determinante de una matriz cuadrada es igual a la suma de los elementos de una fila o columna cualquiera, multiplicados por sus adjuntos.

Por ejemplo, si desarrollamos un determinante de orden n por los adjuntos de la 1ª fila se tiene:

Cálculo del determinante de una matriz.

El determinante de la matriz en este código se calcula por adjuntos mediante
dos procedimientos que se llaman de forma recursiva.


Dado la declaración en la sección de tipos:

type
tDimension = 1..100;
eMatriz(f,c: tDimension) = array [1..f,1..c] of real;

tpMatriz = ^eMatriz;

Y las variables:

var
pM1, pM2, pResul: tpMatriz;



El procedimiento AdjuntoMatriz devuelve la matriz adjunta a la fila (f) 
y columna (c) indicadas.


procedure AdjuntoMatriz(m: tpMatriz; f,c: integer; var resul: tpMatriz);
var i,j,i2,j2: integer value 0;
begin
i2 := 0;
for i:= 1 to m^.f do begin
if (i <> f) then begin  {Comprobar si la fila no es la que se va a elminar}
i2 := i2  +1;
for j:= 1 to m^.c do
   if (j <> c) then begin {Comprobar si la columna no es la que se va a eliminar}
      j2 := j2 +1;
      resul^[i2,j2] := m^[i,j] * (-1) pow(i+j);
   end;
end;
j2:= 0;
end;
end;

La función determinante calcula el determinante de la matriz de forma
recursiva y por adjuntos.

function Determinante(m: tpMatriz):real;
var
j:integer value 0;
det:real;
m2: tpMatriz;
begin
new(m2,m^.f -1,m^.c -1);
if m^.c = 2 then

{ Determinante de dos por dos, caso base de la recursividad }

  Determinante := m^[1,1] * m^[2,2] - m^[1,2] * m^[2,1]
else
begin
det:= 0;
for j:= 1 to m^.c do
begin
{Calcula los adjuntos de la fila 1. LLama al procedimiento Adjunto
Matriz que devuelve la matriz adjunta a la fila primera y a la columna j}
AdjuntoMatriz(m,1,j,m2);
{LLamada recursiva de la funcion Determinante}
 det:= det +  m^[1,j] * Determinante(m2);
end;
Determinante:= det;
end;
end;

Cuadrado triangulo rombo en pascal

2006-12-12T04:13:00.000-08:00

Programa que genera un cuadrado, triángulo y rombo de la siguiente forma,
del tamaño especificado:


program CuaTriRom  (input, output);

const
 ESPACIO   = ' ';
 ASTERISCO = '*';

var
 opcUsuario: char;
 finPrograma: boolean value false;

procedure Cuadrado;
var fila, j,tam: integer;
  despl: integer;
  carExt: char value ASTERISCO;
  carInt: char value ESPACIO;
  opcRelleno: char;

begin
 repeat
  write('Lleno o vacío (l,v) ');
  readln(opcRelleno);
 until (opcRelleno = 'l') or (opcRelleno = 'v');
 if opcRelleno= 'l' then carInt:= ASTERISCO;

 writeln('Escribe el tamaño del cuadrado: ');
 readln(tam);

 despl := 40 - tam div 2;

 for fila:= 1 to tam do begin
    write('':despl);
    for j:= 1 to tam do
       if (j=1) or (j=tam) or (fila=1) or (fila=tam) then
        write (carExt)
       else write (carInt);
   writeln;
  end;
end;

procedure Triangulo;

var fila, j,tam: integer;
   despl: integer;
   carExt: char value ASTERISCO;
   carInt: char value ESPACIO;
   numColum: integer  value 1; { Cantidad de columnas que se escriben }
   opcRelleno: char;

begin
  repeat
  write('Lleno o vacÃo (l,v) ');
  readln(opcRelleno);
 until (opcRelleno = 'l') or (opcRelleno = 'v');

 writeln('Escribe el tamaño del triangulo: ');
 readln(tam);

 if (opcRelleno = 'l') then carInt:= ASTERISCO;

 for fila:=1 to tam do begin
    despl := 40 - tam - numColum div 2; { Posición en la pantalla }
    write('':despl);
       for j:=1 to numColum do begin
          if (fila=1) or (fila=tam) or (j=1) or (j = numColum) then
           write (carExt)
          else write (carInt);
       end;
       writeln;
       numColum:= numColum +2;
 end;
end;

procedure Rombo;
var
 fila, j: integer;
 despl: integer;
 carExt: char value ASTERISCO;
 carInt: char value ESPACIO;
 numColum: integer  value 1; { Cantidad de columnas que se escriben }
 tam,mitad: integer;
 opcRelleno:char;

begin
 repeat
  write('Lleno o vacío (l,v) ');
  readln(opcRelleno);
 until (opcRelleno = 'l') or (opcRelleno = 'v');
 if opcRelleno= 'l' then carInt:= ASTERISCO;

 repeat
  writeln('Escribe un valor impar entre 11 y 15');
  readln(tam);
 until ( (tam mod 2 <> 0) and (tam >= 11) and (tam <= 15) );

 mitad:= tam div 2 +1;

 for fila:=1 to tam do begin
    despl := 40 - tam - numColum div 2; { Posición en la pantalla }
    write('':despl);
  
     if(fila < mitad) then begin { Parte superior del rombo }
       for j:=1 to numColum do begin
          if (fila=1) or (fila=tam) or (j=1) or (j=numColum) then
           write (carExt)
          else write (carInt);
       end;
       writeln;
       numColum:= numColum +2;
      end
      else
       begin { Parte inferior del rombo }
    
       for j:=numColum downto 1 do begin
          if (fila=1) or (fila=tam) or (j=1) or (j=numColum) then
           write (carExt)
          else write (carInt);
       end;
       writeln;
       numColum:= numColum -2;
       end
 end;
end;



begin
 repeat
   writeln('c Cuadrado');
   writeln('t Triangulo');
   writeln('r Rombo');
   writeln('s Salir');
   write('Intoduce una opción: ');
   readln(opcUsuario);
    case opcUsuario of
     'c', 'C': Cuadrado;
     't', 'T': Triangulo;
     'r', 'R': Rombo;
     's', 'S': finPrograma:=true;
     otherwise finPrograma:=false;
    end;
  until (finPrograma);
end.

Números aleatorios en pascal

2006-12-11T02:49:00.000-08:00

Generar números aleatorios en pascal.

Esta función genera números aleatorios entre 0 y el valor
de la constante RC. Para ello utiliza el valor de milisegundos
del reloj del sistema.


function Aleatorio: real;
const RA = 536778;  RC = 50;
var tiempo: TimeStamp; semilla: integer;
begin  
 GetTimeStamp(tiempo);
 semilla := tiempo.MicroSecond;
 Aleatorio:= (semilla * RA) mod RC +1;
end;

Nota: En algunos compiladores de windows la función no funciona bien con MicroSeond y
hay que utilizar Second, en el gpc de linux funciona perfectamente.

Operaciones con matrices

2006-12-11T02:34:00.000-08:00

Suma resta y multiplicación de matrices en pascal.

Para el uso de estos procedimientos es necesario declarar el tipo
tMatriz. Este tipo es un registro en el que f y c son las filas y columnas
de la matriz y datos es una matriz de numeros reales.


const
 N = 10;

type
 tMatriz= record
 datos: array [1..N,1..N] of real;
        f,c: 0..N;
    end;



Tarea: Suma de dos matrices
El procedimiento recibe dos matrices y devuelve la matriz sumada.


procedure Sumar(m1, m2: tMatriz; var resul: tMatriz);
var i,j:integer;
begin
      if (m1.c = m2.c) and (m1.f = m2.f) then begin
          resul.c:=m1.c;    { Crear Matriz resul del mismo rango que m1 y m2 }
          resul.f:=m2.c;
          for i:=1 to m1.c do
    for j:=1 to m1.f do
                        begin
                         resul.datos[i,j]:= m1.datos[i,j] + m2.datos[i,j];
                        end;
          end
       else writeln('No se pueden sumar matrices de diferente dimension');
end;



Tarea: Resta de dos matrices
El procedimiento recibe dos matrices y devuelve la matriz restada.


procedure Restar(m1, m2: tMatriz; var resul: tMatriz);
var i,j:integer;
begin
if (m1.c = m2.c) and (m1.f = m2.f) then begin
resul.c:=m1.c;    { Crear Matriz resul del mismo rango que m1 y m2 }
          resul.f:=m2.c;
          for i:=1 to m1.c do
                    for j:=1 to m1.f do
                     begin
                      resul.datos[i,j]:= m1.datos[i,j] - m2.datos[i,j];
                     end;
          end
       else writeln('No se pueden restar matrices de diferente dimension');
end;


Tarea: Multiplicación dos matrices
El procedimiento recibe dos matrices y devuelve la matriz multiplicada.


procedure Multiplicar(m1, m2: tMatriz; var resul: tMatriz);
var i,j:integer;
begin
        if (m1.c = m2.f) then begin
          resul.c:=m1.f;    { Crear Matriz resul de rango apropiado para multiplicar }
          resul.f:=m2.c;
          for i:=1 to m1.c do
                    for j:=1 to m1.f do
                     begin
                      resul.datos[i,j]:=resul.datos[i,j] + m1.datos[i,j] *
m2.datos[i,columna];
                     end;
end
       else writeln('No se pueden multiplicar matrices de esta dimension');
end;

Uses en pascal

2006-12-10T06:58:00.000-08:00

USES. Palabra reservada de Pascal para incluir librerías.

Definición: Una librería es que un conjunto de funciones propias de pascal o que
nosotros mismo podemos hacernos.

Todos los compiladores de Pascal vienen
con unas librerías standar que traen funciones para trabajar con
archivos, memoria, directorios, servicios del Dos, servicios de video,
etc...

Para incluir una o varias librerías hay que añadir al programa en la sección
de uses: USES Crt, Dos, Graph;

Para más información sobre dónde colocar los ues visita:
Esquema de un programa

Operadores en pascal

2006-12-09T12:43:00.000-08:00

Operador de asignación. Asignación de valores en pascal:

Numero := 7; {de tipo integer}
Decimal := 7.5; {de tipo real}
Letra := ’a’; {de tipo char }
Cadena := ’Hola’; {de tipo string}
Cierto := trae; {de tipo boolean}

Operadores Aritméticos. Se usan para realizar operaciones en pascal:

a + b Suma a y b
a - b Resta a y b
a * b Multiplica a y b
a / b División de a y b
a div b División entera de a y b
a mod b Resto de la división de a y b

Comparación. Para comparar elementos, devuelven true si es verdadero
y sino false.

a <> b a es mayor que b
a = b a es igual que b
a >= b a es mayor o igual que b
a <= b a es menor o igual que b a <> b a es distinto de b

Operadores lógicos.

OR OR lógico a OR b Devuelve true si alguna de las dos es true
AND AND lógico a AND b Devuelve true únicamente si las dos son true

AND_THEN a AND_THEN b Lo mismo que el and lógico solo que si a no se cumple
no se comprueba la sentencia b.

OR_ELSE a OR_ELSE b Lo mismo que el or lógico solo que si a es true
no se comprueba la sentencia b.

NOT Niega una sentencia.

Variables en pascal

2006-12-09T12:31:00.000-08:00

Para declarar variables en pascal se usa la siguiente instrucción:

Nombre:tipo

Los tipos mas comnunes de variables en pascal son:

1.- Enteras.
Integer: -32768 a 32767 (más utilizado)
Word: 0 a 65535
Shortint: -128 a 127
Byte: 0 a 255
Longint: -2*10.9 a 2*10.9

Ejemplo: var entero:integer value 0;

2.- Decimales.
Real (más utilizado)
Single
Double
Extended
Comp

Ejemplo: var decimal:real value 3.45;

3.- Caracteres.
Char('c')

Ejemplo: var caracter:char value 'c';

4.- Cadena de caracteres.
String ('máx. 255 caracteres')

Ejemplo: var cadena:string value 'Cadena de caracteres';

5.- Boleanos.
Boolean que tiene dos únicos valores: True/False

Ejemplo: var booleano:boolean value true;

Esquema de un programa en pascal

2006-12-09T08:57:00.000-08:00

Esquema. Un programa en pascal se divide en las
siguientes secciones:

1 Nombre del programa
2 Uses
3 Definición de tipos globales
4 Definición de constantes globales
5 Definición de variables globales

6 Procedimientos / Funciones
- Declaración
- Tipos locales
- Constantes locales
- Variables locales
- Código del procedimiento/función

7 Código principal


Ejemplo de un programa en pascal.



program  NombrePrograma;
uses  crt, dos;          {incluye}
const  PI=3.1415;         {constante pi}

var  numero:integer;  {Número entero}
decimal:real; {Número real}
letra:char; {Tipo Caracter}
cadena:string; {Tipo Cadena}
cierto:bolean {Tipo boolenao: True o false}


{ Si ya conoces otros lenguajes de programación
como C, begin equivale a "{" y end a "}" las llaves en C }
begin
________ {Cuerpo del programa}
________
end.          {El punto indica que es el fin del programa}