Algoritmos y Programación en Pascal

206 Capítulo 9. Programación con subprogramas
Para cada ordenada yi = f(xi), su posición (que será un entero de {0, . . . NumY}
cuando yi ∈ [ymí, ymáx]:
Ello se consigue sencillamente así:
[ymín, ymáx] → {0, . . . ,NumY}
posYi = Round NumY yi
− ymín
ymáx − ymín
Un valor de posYi negativo o nulo indica que la función se sale por la izquierda
del fragmento del plano representado, mientras que un valor mayor que NumY
significa que se sale por la derecha, con lo que la línea i-ésima se traza como
sigue: 3
procedure TrazarLinea(i: integer; xMin, xMax, yMin,
yMax: real);
{Efecto: se imprime la línea i-ésima}
var
xi: real; {el valor de abscisa}
posYi: integer; {el valor redondeado de la función en xi}
begin
xi:= xMin + i * (xMax - xMin)/NumX;
posYi:= Round(NumY * ((Sin(xi)-yMin)/(yMax-yMin)));
Write(xi:5:2,’ | ’);
if posYi ’:NumY)
else {dentro de la zona}
WriteLn(’*’:posYi)
end; {TrazarLinea}
Finalmente, el pie de la gráfica se dibuja así:
procedure TrazarPie;
begin
WriteLn(’ |’);
WriteLn(’ x V’)
end; {TrazarPie}
En resumen, el programa consta de lo siguiente:
3 Dadas las especiales características gráficas de este ejemplo, se indican mediante el símbolo
los espacios en blanco en las instrucciones de escritura.