Mit der Programmiersprache Turbo Pascal können Sie verschiedene Formen grafisch auf dem Bildschirm zeichnen. Jedes grafische Objekt kann mit Punkten, Linien, Bögen konstruiert werden. Pascal verwendet einen Rastergrafikmodus mit einer Bildschirmauflösung von 640 x 480. Das Zeichnen besteht darin, die Koordinaten der Start- und Endpunkte des darzustellenden Objekts den grafischen Verfahren zuzuordnen. Als Parameter der grafischen Verfahren werden auch die Farbe des Objekts, die Dicke der Linien sowie deren Stil festgelegt. Um mit Software zu zeichnen, müssen Sie das Pascal-Grafikmodul anschließen.
Notwendig
Turbo Pascal-Programmierumgebung
Anweisungen
Schritt 1
Zerlegen Sie das angegebene Zeichnungsobjekt in seine Bestandteile. Wählen Sie einzelne Linien, Bögen, Kreise, Rechtecke und Punkte aus. Dies sind die Formen, die mit Turbo Pascal-Verfahren gezeichnet werden können.
Schritt 2
Schließen Sie ganz am Anfang des Programmcodes das Grafikmodul an. Schreiben Sie dazu eine Zeile wie diese: verwendet graph. Erstellen Sie als Nächstes Integer-Variablen, um den Grafikmodus zu initialisieren: var gdet, gm: integer.
Schritt 3
Initialisieren Sie im Hauptteil des Programms nach dem Schlüsselwort begin die Variablen, und weisen Sie einer von ihnen den Wert Null und der zweiten den Wert von detect zu. Als nächstes geben Sie den Start des grafischen Zeichenmodus an und geben eine Zeile der Form ein: initgraph (gdet, gm, ''). Löschen Sie das Anzeigegerät: cleardevice.
Schritt 4
Legen Sie die Hintergrundfarbe für das Zeichnen und die Linienfarbe der zu zeichnenden Objekte fest. Verwenden Sie dazu die Prozeduren SetBkColor (weiß) und SetColor (8). Die einzustellende Farbe ist in Klammern angegeben. Insgesamt verwendet Pascal 16 Farben, und jede von ihnen wird entweder durch eine Zahl oder durch ein Wort aus einer speziellen Farbtabelle angegeben.
Schritt 5
Stellen Sie sich ein Bildschirmraster mit der x-Achse von links nach rechts und der y-Achse von oben nach unten vor. Im Ursprung dieses Koordinatensystems, also in der oberen linken Ecke des Bildschirms, befindet sich die Koordinate (0, 0). Berechnen Sie die Koordinaten der gewünschten Position des ersten Grafikobjekts. Geben Sie alle Koordinaten zum Zeichnen von Figuren in diesem speziellen System an.
Schritt 6
Zeichnen Sie eine Linie mit der Prozedur line (x, y, x1, y1), wobei die Koordinaten x, y der Startpunkt der Linie sind und x1, y1 ihr Ende ist. Ändern Sie bei Bedarf die Linienstärke oder den Linientyp. Verwenden Sie dazu die Prozedur SetLineStyle (0, 0, NormWidth). Der erste Parameter der Prozedur kann die Linie ändern, indem er eine Strich- oder eine gepunktete Linie macht - ändern Sie diese Zahl auf 1 oder 2. Der dritte Parameter legt die Dicke der Linien fest. Standardmäßig ist der Parameter NormWidth immer gesetzt - dünne Linien, für dicke Linien legen Sie ThickWidth fest. Der geänderte Linientyp wird nach Aufruf dieser Prozedur gezeichnet.
Schritt 7
Platzieren Sie einen Punkt auf dem Bildschirm mit dem Verfahren PutPixel (x, y, color), wobei x und y auch die Koordinaten des Punktes sind und Farbe seine Farbe ist. Bevor Sie eine geschlossene Form zeichnen, können Sie deren Füllung festlegen. Rufen Sie dazu die Prozedur SetFillStyle (EmptyFill, 0) auf, wobei der erste Parameter die einfarbige Füllung der Form und der zweite die Füllfarbe angibt.
Schritt 8
Eine rechteckige Form wird mit der Prozedur Rechteck (x, y, x2, y2) gezeichnet - die Koordinaten legen die obere linke und untere rechte Ecke der Form fest. Um einen Kreis zu zeichnen, schreiben Sie die Linie Circle (x, y, R), wobei x, y, R die Koordinaten des Mittelpunkts und des Radius des Kreises sind, ebenfalls in Pixeln. Eine Ellipse ist schwieriger zu zeichnen, dafür werden viele weitere Parameter verwendet: Ellipse (x, y, BegA, EndA, RX, RY). Hier ist x, y derselbe Mittelpunkt der Ellipse, und BegA und EndA geben den Winkel an, in dem der Ellipsenbogen beginnt und endet. Die Variablen RX, RY legen den Radius der Ellipse entlang der x- bzw. y-Achse fest.
Schritt 9
Wenn Sie eine bestimmte Form haben, die sich am einfachsten in separaten Segmenten zeichnen lässt, verwenden Sie dafür die Verfahren MoveTo und LineTo. Bewegen Sie zuerst den aktuellen Cursor an den gewünschten Punkt: MoveTo (x, y). Dann ziehen Sie eine Linie von ihm zum nächsten Punkt LineTo (x1, y1) und zeichnen erneut eine gerade Linie LineTo (x2, y2) und so weiter, bis Sie die ursprüngliche Form erhalten.
Schritt 10
Schließen Sie am Ende des Zeichnens im Programmcode den Grafikmodus mit der Zeile: closegraph. Beenden Sie den Programmtext wie gewohnt mit dem Wort end. Jetzt kann der Code kompiliert und zur Ausführung ausgeführt werden.
