Programación en Pascal

ya que tanto m como c son campos del registro r.
Las unidades en Pascal (UNIT)
Una unidad en Pascal no es más que una librería de funciones y procedimientos que el usuario
tiene definidos y que utiliza en cada programa cuando lo necesite. Por ejemplo, pensemos en
una librería de funciones matemáticas sobre manejo de matrices. Una vez que la operación de
suma de matrices esté definida y funcione perfectamente, bastará con incluir la unidad donde
está escrita y hacer la llamada a la función como si estuviera ubicada en el mismo fichero del
programa principal.
Una unidad se denomina unit y posee dos partes. La denominada INTERFACE donde se
definen los tipos de datos, las constantes necesarias y las cabeceras de los procedimientos y
funciones. Posteriormente aparece la palabra reservada IMPLEMENTATION, a partir de donde
se escriben todas las funciones y procedimientos completos cuyas cabeceras están en la zona
interface.
Vamos a escribir una unidad completa con una serie de procedimientos y funciones válidos en
nuestra asignatura de geometría computacional. Posee las funciones ya previamente vistas, la
de intersección de dos rectas y dos segmentos. Pero además aparecen otras que pueden ser
igualemente útiles:
UNIT GEOMLIB;
INTERFACE
CONST x=0; y=1;
infinito=9.9e9;
MAX_PUNTOS_POLIGONO = 100;
TYPE
TipoPunto = array [0..1] of real;
TipoPoligono = array [0..MAX_PUNTOS_POLIGONO-1] of TipoPunto;
TipoRecta = RECORD
m,c:real;
end;
TipoSegmento = array [0..1] of TipoPunto;
procedure Intersec_Rectas (r1,r2:TipoRecta; VAR x,y:real);
procedure SegmentoARecta (var p1,p2:TipoPunto; var r:TipoRecta);
procedure Intersec_Segmentos (var a,b,c,d:TipoPunto; var xx,yy:Real);
function AreaPoligono2 (var p:TipoPoligono; n:integer): real;
function AreaTriangulo2 (var a,b,c:TipoPunto) : real;
procedure LeerPoligonoTeclado (var p:TipoPoligono; var n:integer);
procedure LeerPoligonoFichero (var f:string; var p:TipoPoligono; var
n:integer);
procedure EscribirPoligonoFichero (var f:string; var p:TipoPoligono;
n:integer);
procedure EscribirPoligonoPantalla (var p:TipoPoligono; n:integer);
IMPLEMENTATION
{(x,y) ser el punto de intersección de las rectas (m1,c1) y (m2,c2)
si son paralelas x e y son igual a infinito}
procedure Intersec_Rectas (r1,r2:TipoRecta; VAR x,y:real);
begin
if (r1.m=infinito) and (r2.m=infinito) {rectas verticales paralelas}
then begin
x:=infinito; y:=infinito;
end
else if r1.m=infinito {la ecuación de la recta es x=c1}
then begin
x:=r1.c; y:=r2.m*x+r2.c;
end
else if r2.m=infinito
10