A linguagem de programação Turbo Pascal permite desenhar graficamente várias formas na tela. Qualquer objeto gráfico pode ser construído usando pontos, linhas, arcos. Pascal usa um modo gráfico raster com resolução de tela de 640 x 480. O desenho consiste em definir as coordenadas dos pontos inicial e final do objeto a ser mostrado para os procedimentos gráficos. A cor do objeto, a espessura das linhas, assim como seu estilo, também são configurados como parâmetros dos procedimentos gráficos. Para desenhar usando software, você precisa conectar o módulo gráfico Pascal.
Necessário
Ambiente de programação Turbo Pascal
Instruções
Passo 1
Desmonte o objeto de desenho especificado em seus elementos constituintes. Selecione linhas, arcos, círculos, retângulos e pontos individuais. Estas são as formas que podem ser desenhadas usando procedimentos Turbo Pascal.
Passo 2
No início do código do programa, conecte o módulo gráfico. Para fazer isso, escreva uma linha como esta: usa gráfico. Em seguida, crie variáveis inteiras para inicializar o modo gráfico: var gdet, gm: integer.
etapa 3
No corpo do programa, após a palavra-chave begin, inicialize as variáveis, atribuindo a uma delas o valor zero e à segunda o valor de detect. A seguir, indique o início do modo de desenho gráfico, insira uma linha no formato: initgraph (gdet, gm, ''). Limpe o dispositivo de exibição: limpar o dispositivo.
Passo 4
Defina a cor de fundo para o desenho e a cor da linha dos objetos a serem desenhados. Use os procedimentos SetBkColor (branco) e SetColor (8) para isso. A cor a ser definida é indicada entre parênteses. No total, Pascal usa 16 cores, e cada uma delas é especificada por um número ou por uma palavra de uma tabela especial de cores.
Etapa 5
Imagine uma gratícula de tela com o eixo x da esquerda para a direita e o eixo y de cima para baixo. Na origem deste sistema de coordenadas, ou seja, no canto superior esquerdo da tela, está a coordenada (0, 0). Calcule as coordenadas da posição desejada do primeiro objeto gráfico. Especifique todas as coordenadas para desenhar figuras neste sistema em particular.
Etapa 6
Desenhe uma linha usando a linha de procedimento (x, y, x1, y1), onde as coordenadas x, y são o ponto inicial da linha e x1, y1 é o seu final. Altere a espessura ou o tipo da linha, se necessário. Para fazer isso, use o procedimento SetLineStyle (0, 0, NormWidth). O primeiro parâmetro do procedimento pode alterar a linha tornando-a um traço ou uma linha pontilhada - altere esse número para 1 ou 2. O terceiro parâmetro define a espessura das linhas. Por padrão, o parâmetro NormWidth é sempre definido - linhas finas, para linhas grossas defina ThickWidth. O tipo de linha alterado será desenhado após chamar este procedimento.
Etapa 7
Coloque um ponto na tela usando o procedimento PutPixel (x, y, color), aqui xey também são as coordenadas do ponto e a cor é sua cor. Antes de desenhar uma forma fechada, você pode definir seu preenchimento. Para fazer isso, chame o procedimento SetFillStyle (EmptyFill, 0), onde o primeiro parâmetro especifica o preenchimento sólido da forma e o segundo especifica a cor de preenchimento.
Etapa 8
Uma forma retangular é desenhada usando o procedimento Retângulo (x, y, x2, y2) - as coordenadas definem os cantos superior esquerdo e inferior direito da forma. Para desenhar um círculo, escreva a linha Círculo (x, y, R), onde x, y, R são as coordenadas do centro e o raio do círculo, também em pixels. Uma elipse é mais difícil de desenhar, muitos mais parâmetros são usados para isso: Ellipse (x, y, BegA, EndA, RX, RY). Aqui x, y é o mesmo centro da elipse, e BegA e EndA indicam o ângulo no qual iniciar e terminar o arco elíptico. As variáveis RX, RY definem o raio da elipse ao longo dos eixos xey, respectivamente.
Etapa 9
Se você tiver uma determinada forma, que é mais fácil de desenhar em segmentos separados, use os procedimentos MoveTo e LineTo para isso. Primeiro, mova o cursor atual para o ponto desejado: MoveTo (x, y). Em seguida, desenhe uma linha dele até o próximo ponto LineTo (x1, y1) e novamente desenhe uma linha reta LineTo (x2, y2) e assim por diante até obter a forma original.
Etapa 10
No final do desenho no código do programa, feche o modo gráfico com a linha: closegraph. Finalize o corpo do programa, como de costume, com a palavra final. Agora o código pode ser compilado e executado para execução.
