Programación en Pascal

VAR identificador : tipomatrizdefinidaenTYPE;
Si hay un único subrango tenemos un array unidimensional o vector. Si existen varios, un array
multidimensional.
Un elemento de un array puede ser utilizado en cualquier lugar donde se pueda poner una
variable, la sintaxis para acceder es:
identificador[expresión]
las expresiones deben coincidir con los valores permitidos del array correspondientes.
Aunque un array debe ser pasado por valor en un subprograma siempre que no vaya a ser
modificado, es preferible hacerlo por variable o referencia.
Ejemplos de arrays:
En nuestro caso hemos decidido definir tanto un punto como un polígono mediante arrays de la
siguiente forma:
TYPE
TipoPunto = array [0..1] of real;
TipoPoligono = array [0..MAX_PUNTOS_POLIGONO-1] of TipoPunto;
Pero recordar, esto sólo es la definición de los datos. Para poder utilizarlos se debe hacer
mediante la declaración de una varialble:
VAR
a,b,c:TipoPunto;
Ahora pueden operarse con a, b y c;
AreaTriangulo2 := (a[0]*b[1]-a[1]*b[0] +
b[0]*c[1]-b[1]*c[0] +
c[0]*a[1]-c[1]*a[0]) ;
Por supuesto también podemos hacer cosas como :
a[0]:=3;
b[1]:=5*a[1]-8;
write (a[1]);
readln( b[0]);
{etcétera}
La definición de TipoPolígono es algo más cojmpleja porque se trata de una matriz
bidimensional:
x y
Como ejemplo de uso, el siguiente código lee una serie de puntos de teclado para formar un
polígono:
TYPE x=0; y=1;
...
for i:=0 to n-1 do
begin
write('P[',i,',x]= '); read(p[i,x]);
write('P[',i,',y]='); readln(p[i,y]);
4