Programación en Pascal

AreaPoligono2 := suma;
end;
procedure LeerPoligonoTeclado (var p:TipoPoligono; var n:integer);
var i:integer;
begin
write ('Número de vértices del polígono: '); readln (n);
for i:=0 to n-1 do
begin
write('P[',i,',x]= '); read(p[i,x]);
write('P[',i,',y]='); readln(p[i,y]);
end;
end;
procedure EscribirPoligonoPantalla (var p:TipoPoligono; n:integer);
var i:integer;
begin
writeln ('Escribiremos el polígono de ',n,' v‚rtices');
for i:=0 to n-1 do
begin
write('P[',i,',x]= ',p[i,x]:4:2); write(' '); writeln('P[',i,',y]=
',p[i,y]:4:2);
end;
end;
procedure LeerPoligonoFichero (var f:string; var p:TipoPoligono; var
n:integer);
var i:integer;
fich: TEXT;
begin
assign (fich, f);
reset (fich);
readln (fich,n);
for i:=0 to n-1 do
read(fich,p[i,x]); readln(fich,p[i,y]);
close (fich);
end;
procedure EscribirPoligonoFichero (var f:string; var p:TipoPoligono;
n:integer);
var i:integer;
fich: TEXT;
begin
assign (fich, f);
rewrite (fich);
writeln (fich,n);
for i:=0 to n-1 do
write(fich,p[i,x]:4:2); write(fich,' ');writeln(fich,p[i,y]:4:2);
close (fich);
end;
end.
FICHEROS
Para terminar aclararemos dos de los procedimientos anteriormente implementados en la
unidad geomlib.pas, se trata de los procedimientos LeerPoligonoFichero y
EscribirPoligonoFichero que utilizan ficheros.
Si nos fijamos son muy similares a los de leer de teclado y escribir en pantalla, sin embargo, la
entrada y salida será ahora a través de fichero. Esto significa que los datos de entrada, los
puntos, estarán dispuestos en un fichero de texto (lo escribe el usuario con cualquier editor de
textos); la salida, los resultados, también serán llevados a un fichero.
12