Algoritmos y Programación en Pascal

9.7. Ejercicios 207
Program ReprGrafica (input, output);
const
NumX = 15; NumY = 50;
var
xMinimo, xMaximo, yMinimo, yMaximo: real;
i: integer;
procedure PedirDatos(...); {... descrito antes ... }
procedure TrazarCabecera(...); {... descrito antes ... }
procedure TrazarLinea(...); {... descrito antes ... }
procedure TrazarPie; {... descrito antes ... }
begin
PedirDatos(xMinimo, xMaximo, yMinimo, yMaximo);
TrazarCabecera(yMinimo, yMaximo);
for i:= 0 to NumX do
TrazarLinea (i, xMinimo, xMaximo, yMinimo, yMaximo);
TrazarPie
end. {ReprGrafica}
9.7 Ejercicios
1. Escriba un programa en Pascal para el ejemplo de referencia del apartado 9.2.
2. Utilice la independencia de subprogramas en el programa anterior para sustituir
el cálculo del máximo común divisor mediante el método de Euclides por otro
que utilice las siguientes propiedades debidas a Nicómaco de Gersasa, también
llamado método de las diferencias:
si a>b, entonces m.c.d.(a, b) = m.c.d.(a−b, b)
si a