Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Distanz zwischen 3 punkten (https://www.delphipraxis.net/58060-distanz-zwischen-3-punkten.html)

simonko 30. Nov 2005 19:01


Distanz zwischen 3 punkten
 
Hallo, ich komm einfach nicht weiter.
Ich habe einen string z.b '112233'. das soll die koordinaten dreier punkten darstellen. also (1,1) (2,2) (3,3). jetzt muss ich für alle 3 Punkten die kürzeste distanz zu den anderen 2 ausrechnen. also von (1,1) ausrechnen ob (2,2) oder (3,3) näher dran ist. dann das selbe mit (2,2) und (3,3).
Das ganze wird mit dem satz von pitagoras gemacht. Mein Problem ist ich möchte alles in eine (zwei)?forschleife packen. für den punkt für dem die distanz ausgerechnet werdn soll kann ich einfach
string[i*2] und string[i*2+1] schreiben dann krieg ich genau. 0 1 2 3 4 5. das problem ist ich komme nicht auf die anderen indizis.

bitte helft mir :)) :wall:

Khabarakh 30. Nov 2005 19:34

Re: Distanz zwischen 3 punkten
 
Zitat:

Zitat von simonko
pitagoras

:stupid:
Zitat:

Mein Problem ist ich möchte alles in eine (zwei)?forschleife packen. für den punkt für dem die distanz ausgerechnet werdn soll kann ich einfach
string[i*2] und string[i*2+1] schreiben dann krieg ich genau. 0 1 2 3 4 5. das problem ist ich komme nicht auf die anderen indizis.
Für den nächsten / übernachsten Punkt musst du einfach den Index um 2 bzw. 4 erhöhen. Damit du nicht über das Arrayende hinausschießt, ermittelst du den Rest:
Delphi-Quellcode:
P1.X = [i * 2]
   Y = [i * 2 + 1]
P2.X = [(i * 2 + 2) mod Length(string)]
   Y = [(i * 2 + 3 [...]
P3.X = [(i * 2 + 4 [...]
Das wäre der nullbasierte Index, du musst ihn also noch um 1 inkrementieren.

PS: Der Plural von Index ist Indizes :wink: .

simonko 30. Nov 2005 19:46

Re: Distanz zwischen 3 punkten
 
danke dass mit den mod hat mir gefehlt. :cheers:


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:13 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