Der Epina Delphi-Kurs bietet Ihnen eine allgemeine Einführung in das Programmieren mit Delphi/Pascal. Mit vielen ausgearbeiteten Beispielen können Sie direkt in die Delphi-Programmierung einsteigen. Mehr dazu finden Sie hier....

Weitere Übungsprogramme

10. Programm: Ellipse

Index

10. Programm: Ellipse

Ellipsen werden bestimmt durch die Position the Brennpunkte und die Summe der Strecken l₁ und l₂, die konstant sein muss. Schreiben Sie ein Programm, bei dem Sie die Lage der Brennpunkte (auf der x-Achse symmetrisch um den Ursprung) und die Summe der Strecken l₁ und l₂ einstellen können und als Resultat die Längen der beiden Halbachsen a und b bekommen. Geben Sie sowohl die eingestellten Parameter F und L als auch die errechneten Halbachsen jeweils in einer NumLab-Komponente aus. Bauen Sie eine Überprüfung der eingestellten Parameter ein und korrigieren Sie diese bei Bedarf.

In einem zweiten Schritt erweitern Sie dieses Programm so, dass Sie mit der Maus am Schirm malen können, wo bei die Farbe der Maus innerhalb und außerhalb der Ellipse unterschiedlich sein soll. Fährt man sehr oft über die Zeichenfläche so entsteht ein Bild der Ellipse.

Um entscheiden zu können, welche Farbe zum Zeichnen verwendet wird, müssen Sie aus der Position der Maus die Distanzen zu den Brennpunkten berechnen. Ist die Summe der Distanzen kleiner als L so verwendet man Farbe 1 (z.B. Blau), sonst Farbe 2 (z.B. Rot). Zum Zeichnen verwenden Sie am besten eine Paintbox oder den Canvas des Formulars. Als Option können Sie noch einen Knopf einbauen, der die Ellipse für die eingestellten Parameter anzeigt, oder aber die Anzeige der Ellipse automatisch beim Verändern der Parameter anzeigen lassen.

Download: prog_010.zip [3 kB]

Home

Weitere Übungsprogramme

10. Programm: Ellipse

Last Update: 2008-09-09