El lenguaje de programación Turbo Pascal le permite dibujar gráficamente varias formas en la pantalla. Cualquier objeto gráfico se puede construir utilizando puntos, líneas, arcos. Pascal utiliza un modo de gráficos rasterizados con una resolución de pantalla de 640 x 480. El dibujo consiste en establecer las coordenadas de los puntos de inicio y finalización del objeto a mostrar a los procedimientos gráficos. El color del objeto, el grosor de las líneas, así como su estilo, también se establecen como parámetros de los procedimientos gráficos. Para dibujar con software, debe conectar el módulo de gráficos Pascal.
Necesario
Entorno de programación Turbo Pascal
Instrucciones
Paso 1
Desmonte el objeto de dibujo especificado en sus elementos constituyentes. Seleccione líneas, arcos, círculos, rectángulos y puntos individuales. Estas son las formas que se pueden dibujar utilizando los procedimientos de Turbo Pascal.
Paso 2
Al comienzo del código del programa, conecte el módulo de gráficos. Para hacer esto, escribe una línea como esta: usa graph. A continuación, cree variables enteras para inicializar el modo de gráficos: var gdet, gm: integer.
Paso 3
En el cuerpo del programa, después de la palabra clave begin, inicialice las variables, asignando a una de ellas un valor cero y a la segunda el valor de detectar. A continuación, indique el inicio del modo de dibujo gráfico, ingrese una línea de la forma: initgraph (gdet, gm, ''). Limpiar el dispositivo de visualización: cleardevice.
Paso 4
Establezca el color de fondo para el dibujo y el color de la línea de los objetos que se van a dibujar. Utilice los procedimientos SetBkColor (blanco) y SetColor (8) para esto. El color a configurar se indica entre paréntesis. En total, Pascal usa 16 colores, y cada uno de ellos se especifica mediante un número o una palabra de una tabla de colores especial.
Paso 5
Imagine una retícula de pantalla con el eje x de izquierda a derecha y el eje y de arriba a abajo. En el origen de este sistema de coordenadas, es decir, en la esquina superior izquierda de la pantalla, está la coordenada (0, 0). Calcule las coordenadas de la posición deseada del primer objeto gráfico. Especifique todas las coordenadas para dibujar figuras en este sistema en particular.
Paso 6
Dibuja una línea usando la línea de procedimiento (x, y, x1, y1), donde las coordenadas x, y son el punto inicial de la línea y x1, y1 es su final. Cambie el grosor o el tipo de línea si es necesario. Para hacer esto, use el procedimiento SetLineStyle (0, 0, NormWidth). El primer parámetro del procedimiento puede cambiar la línea convirtiéndola en un guión o una línea de puntos; cambie este número a 1 o 2. El tercer parámetro establece el grosor de las líneas. De forma predeterminada, el parámetro NormWidth siempre está establecido: líneas finas, para líneas gruesas, establezca ThickWidth. El tipo de línea cambiado se dibujará después de llamar a este procedimiento.
Paso 7
Coloque un punto en la pantalla usando el procedimiento PutPixel (x, y, color), aquí xey también son las coordenadas del punto, y el color es su color. Antes de dibujar una forma cerrada, puede establecer su relleno. Para hacer esto, llame al procedimiento SetFillStyle (EmptyFill, 0), donde el primer parámetro especifica el relleno sólido de la forma y el segundo especifica el color de relleno.
Paso 8
Una forma rectangular se dibuja mediante el procedimiento Rectangle (x, y, x2, y2): las coordenadas establecen las esquinas superior izquierda e inferior derecha de la forma. Para dibujar un círculo, escribe la línea Círculo (x, y, R), donde x, y, R son las coordenadas del centro y el radio del círculo, también en píxeles. Una elipse es más difícil de dibujar, se utilizan muchos más parámetros para esto: Elipse (x, y, BegA, EndA, RX, RY). Aquí x, y es el mismo centro de la elipse, y BegA y EndA indican el ángulo en el que comenzar y terminar el arco elíptico. Las variables RX, RY establecen el radio de la elipse a lo largo de los ejes xey, respectivamente.
Paso 9
Si tiene una forma determinada, que es más fácil de dibujar en segmentos separados, utilice los procedimientos MoveTo y LineTo para ello. Primero, mueva el cursor actual al punto que desee: MoveTo (x, y). Luego dibuje una línea desde allí hasta el siguiente punto LineTo (x1, y1) y nuevamente dibuje una línea recta LineTo (x2, y2) y así sucesivamente hasta obtener la forma original.
Paso 10
Al final del dibujo en el código del programa, cierre el modo de gráficos con la línea: closegraph. Termine el cuerpo del programa, como de costumbre, con la palabra end. Ahora el código se puede compilar y ejecutar para su ejecución.
