Delphi Strecke zeichnen - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Strecke zeichnen

Ein Thema von kevSTAR · begonnen am 6. Jul 2007 · letzter Beitrag vom 6. Jul 2007

Antwort

3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge

Turbo Delphi für Win32

Re: Strecke zeichnen

6. Jul 2007, 13:40

Nehmen wir mal an, du hast den Startpunkt (x1|y1) und die x-Koordinate des Endpunktes x2.

Dann berechnest du die y-Koordinate des Endpunkts y2 so: (du brauchst nicht mal sin und cos)

markieren

Delphi-Quellcode:

			y2:=y1+round(sqrt(10000-sqr(x2-x1)));

oder

y2:=y1-round(sqrt(10000-sqr(x2-x1)));

(Satz des Pythagoras)

Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett