Il linguaggio di programmazione Turbo Pascal consente di disegnare graficamente varie forme sullo schermo. Qualsiasi oggetto grafico può essere costruito utilizzando punti, linee, archi. Pascal utilizza una modalità grafica raster con una risoluzione dello schermo di 640 x 480. Il disegno consiste nell'impostare le coordinate dei punti iniziale e finale dell'oggetto da visualizzare alle procedure grafiche. Anche il colore dell'oggetto, lo spessore delle linee, nonché il loro stile, sono impostati come parametri delle procedure grafiche. Per disegnare utilizzando il software, è necessario collegare il modulo grafico Pascal.
Necessario
Ambiente di programmazione Turbo Pascal
Istruzioni
Passo 1
Smonta l'oggetto di disegno specificato nei suoi elementi costitutivi. Seleziona singole linee, archi, cerchi, rettangoli e punti. Queste sono le forme che possono essere disegnate utilizzando le procedure Turbo Pascal.
Passo 2
All'inizio del codice del programma, collega il modulo grafico. Per fare ciò, scrivi una riga come questa: usa grafico. Quindi, crea variabili intere per inizializzare la modalità grafica: var gdet, gm: intero.
Passaggio 3
Nel corpo del programma, dopo la parola chiave begin, inizializza le variabili, assegnando a una di esse un valore zero, e alla seconda il valore di detect. Quindi, indica l'inizio della modalità di disegno grafico, inserisci una riga del modulo: initgraph (gdet, gm, ''). Cancella il dispositivo di visualizzazione: cleardevice.
Passaggio 4
Imposta il colore di sfondo per il disegno e il colore della linea degli oggetti da disegnare. Utilizzare le procedure SetBkColor (bianco) e SetColor (8) per questo. Il colore da impostare è indicato tra parentesi. In totale, Pascal utilizza 16 colori e ciascuno di essi è specificato da un numero o da una parola da una tabella di colori speciale.
Passaggio 5
Immagina un reticolo dello schermo con l'asse x da sinistra a destra e l'asse y dall'alto verso il basso. All'origine di questo sistema di coordinate, cioè nell'angolo in alto a sinistra dello schermo, c'è la coordinata (0, 0). Calcola le coordinate della posizione desiderata del primo oggetto grafico. Specificare tutte le coordinate per disegnare le figure in questo particolare sistema.
Passaggio 6
Disegna una linea usando la procedura line (x, y, x1, y1), dove le coordinate x, y sono il punto iniziale della linea e x1, y1 è la sua fine. Modificare lo spessore della linea o il tipo, se necessario. A tale scopo, utilizzare la procedura SetLineStyle (0, 0, NormWidth). Il primo parametro della procedura può modificare la linea rendendola un trattino o una linea tratteggiata - modificare questo numero in 1 o 2. Il terzo parametro imposta lo spessore delle linee. Per impostazione predefinita, il parametro NormWidth è sempre impostato: linee sottili, per linee spesse impostare ThickWidth. Il tipo di linea modificato verrà disegnato dopo aver chiamato questa procedura.
Passaggio 7
Posiziona un punto sullo schermo usando la procedura PutPixel (x, y, color), qui xey sono anche le coordinate del punto e il colore è il suo colore. Prima di disegnare una forma chiusa, puoi impostarne il riempimento. A tale scopo, chiamare la procedura SetFillStyle (EmptyFill, 0), in cui il primo parametro specifica il riempimento a tinta unita della forma e il secondo il colore di riempimento.
Passaggio 8
Una forma rettangolare viene disegnata utilizzando la procedura Rettangolo (x, y, x2, y2): le coordinate impostano gli angoli superiore sinistro e inferiore destro della forma. Per disegnare un cerchio, scrivi la linea Cerchio (x, y, R), dove x, y, R sono le coordinate del centro e il raggio del cerchio, sempre in pixel. Un'ellisse è più difficile da disegnare, per questo vengono utilizzati molti più parametri: Ellisse (x, y, BegA, EndA, RX, RY). Qui x, y è lo stesso centro dell'ellisse, e BegA e EndA indicano l'angolo con cui iniziare e finire l'arco ellittico. Le variabili RX, RY impostano il raggio dell'ellisse lungo gli assi x e y, rispettivamente.
Passaggio 9
Se si dispone di una determinata forma, che è più semplice da disegnare in segmenti separati, utilizzare le procedure MoveTo e LineTo per questo. Innanzitutto, sposta il cursore corrente nel punto desiderato: MoveTo (x, y). Quindi disegna una linea da esso al punto successivo LineTo (x1, y1) e di nuovo una linea retta LineTo (x2, y2) e così via fino a ottenere la forma originale.
Passaggio 10
Al termine del disegno nel codice del programma, chiudere la modalità grafica con la riga: closegraph. Termina il corpo del programma, come al solito, con la parola fine. Ora il codice può essere compilato ed eseguito per l'esecuzione.
