Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Tangenten und Kreis (https://www.delphipraxis.net/72845-tangenten-und-kreis.html)

badmann 7. Jul 2006 21:32


Tangenten und Kreis
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo, könnte mir vielleicht einer erklären worauf es bei diesem Programm ankommt, vorallen Dingen stelle ich mir die Frage, was der Benutzer dieses Programms am Anfang alles eingeben soll.
Vielen Dank für euere Hilfe schon im voraus.

mkinzler 7. Jul 2006 21:57

Re: Tangenten und Kreis
 
Zitat:

Zitat von badmann
Hallo, könnte mir vielleicht einer erklären worauf es bei diesem Programm ankommt,

-Positionsbestimmung der Maus
-Umsetzung der Mathematik in real-arithmetik
-Umwandelung von Fließkomma in Integer
-Grafische darstellung der Ergebnisse.
Zitat:

vorallen Dingen stelle ich mir die Frage, was der Benutzer dieses Programms am Anfang alles eingeben soll.
Lese mal die Fragestellung nochmal durch:
Zitat:

Zitat von Aufgabenstellung
Über die Maus ist der Kreismittelpunkt M und der Radius r sowie der Punkt P einzugeben


DP-Maintenance 8. Jul 2006 09:06

DP-Maintenance
 
Dieses Thema wurde von "SirThornberry" von "Die Delphi-IDE" nach "Programmieren allgemein" verschoben.

badmann 8. Jul 2006 12:25

Re: Tangenten und Kreis
 
vielen Dank mkinzler,
aber ich weiße nicht, wie ich anfangen kann :(
köntte mir mir jemand den Programmablaufplan geben ?
Danke im voraus.

Nikolas 8. Jul 2006 13:17

Re: Tangenten und Kreis
 
Liste der Anhänge anzeigen (Anzahl: 1)
Probiers mal so:
Der Nutzer klickt auf das Form um den Mittelpunkt festzulegen. Dann ein zweiter Klick um den Radius festzulegen. Beim MouseDown-Event bekommst du die x,y-Koordinaten, glaub ich. Dann ein dritter Klick für den Punkt.
Dann die erste Rechnung. Falls der ABstand erster Punkt<->dritter Punkt kleiner als Abstand 1.Punkt<-> 2.Punkt, dann gibts du ein showmessage aus und brichst die Berechnung ab.
Ich persönlich würde nicht die angegebene Gleichung benutzen, sondern mir selbst Gedanken über die Berechung machen. (Siehe Annhang)
Beta bekommst du aus den Koordinaten von Punkt 1 und 3, alpha aus der Kenntnis von Abstand 1 und 3 sowie dem Radius. Gamma ist dementsprechend (alpha-beta). Mit Gamma kannst du jetzt recht einfach den oberen Tangentenpunkt berechnen. Per penpos und lineto kannst du jetzt die Tangente malen. Die Polare ist dann auch nur noch ein Einzeiler, da du ja schon die Koordinaten der Berührpunkte kennst. Insgesamt hast du damit einen recht schönen Weg, der insgesamt nicht mehr als 10 Zeilen benötigen sollte, was bei der Bewertung sicher gut ankommt.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz