Algoritmos y Programación en Pascal

9.6. Un ejemplo detallado: representación de funciones 205
Pedir los datos xmínima, xmáxima, ymínima, ymáxima
Trazar la cabecera de la gráfica
Trazar las líneas sucesivas
Trazar el pie de la gráfica
La lectura de los datos es trivial:
procedure PedirDatos(var xMin, xMax, yMin, yMax: real);
{Efecto: lee el fragmento del plano que se desea ver}
begin
Write(’xMínimo, xMáximo: ’);
ReadLn(xMin, xMax);
Write(’yMínimo, yMáximo:’);
ReadLn(yMin, yMax)
end; {PedirDatos}
La cabecera de la representación gráfica debe reflejar el intervalo de las ordenadas
elegido y escribir un eje del tamaño numY :
procedure TrazarCabecera(yMin, yMax: real);
{Efecto: Traza la cabecera centrada dependiendo del tama~no de la
pantalla}
begin
WriteLn(yMin:9:2, {a la izquierda}
’y = sen (x)’: NumY div 2-1, {en el centro}
yMax:(NumY div 2-1):2); {a la derecha}
Write(’------+’);
for i:= 1 to NumY do
Write(’-’);
WriteLn(’>’)
end; {TrazarCabecera}
siendo NumX, NumY las constantes (globales) descritas al principio. (Los parámetros
de formato tienen por misión centrar el nombre de la función de manera que
no haya que redefinir este procedimiento si cambia el tamaño de la pantalla.)
El trazado de cada línea consiste en lo siguiente:
Hallar la abscisa xi
Hallar la posición (en la pantalla) de la ordenada f(xi)
Escribir la línea (comprobando si cae fuera de la zona)
lo que se detalla a continuación. La abscisa xi se halla fácilmente:
xi = xmín + i xmáx − xmín
, i ∈ {0, . . . ,NumX}
NumX