Discussion :

[LadyWasky]

Bon, alez, hop, ça pourra servir : voici une fonction prête à l'emploi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
type TRealPoint=record
       X,Y:double;
     end;
 
function SurfacePolygone(Points:array of TRealPoint):double;
var i,ip,im,Count:integer;
    a,s:double;
begin
  s:=0;
  Count:=high(points)+1;
  i:=0;
  while i<Count do
  begin
    ip:=(i+1) mod Count; //i+1
    im:=(i-1) mod Count; //i-1
 
    a:=Points[i].X*Points[ip].Y-Points[ip].X*Points[i].Y;
    s:=s+a;
    inc(i);
  end;
  result:=Abs(s/2);
end;

A partir de là, le calcul de la surface est direct, il s'agit de transmettre le polygone sous la forme du tableau de points correspondant aux coordonnées de son sommet (coordonnées réelles autorisées), le résultat donne la surface en unités² de ce polygone.

[diam's]

Je me permet de réitérer ma demande auprès des hautes instances de ce forum :

Ne pensez-vous pas qu'il serait judicieux de mettre les DEUX codes (triangles et trapèzes) soit dans la FAQ, soit au moins dans les sources ?

Dis, Waskol, tu ferais pas partie de la haute par hasard (la haute instance LOL) ?

[LadyWasky]

Je me permet de réitérer ma demande auprès des hautes instances de ce forum :

Ne pensez-vous pas qu'il serait judicieux de mettre les DEUX codes (triangles et trapèzes) soit dans la FAQ, soit au moins dans les sources ?

Dis, Waskol, tu ferais pas partie de la haute par hasard (la haute instance LOL) ?

(Accent Sicilien) Hé, attention petit, tu sais à qui tu parles là ?...

J-ai taggué la discussion FAQ pour éventuellement intégrer l'idée, mais le problême, c'est que c'est plus une histoire d'algorithme qu'un problême de Delphi, tu ne crois pas ?

De toute façon, celle-là, on la met au chaud, on ne sait jamais



Si tu veux, tu peux très bien écrire un petit programme d'illustration avec les 2 ou 3 fonctions correspondant aux différentes méthodes. Comme ça tu auras ton nom dans la FAQ ou les sources de la rubrique

[diam's]

J'ai vu pour le Tag. Merci

Pour ce qui est d'avoir mon nom dans les sources, je n'ai pas pour habitude de tirer notoriété d'un travail qui n'est pas issu de mes petits doigts. Si je devais poster une source reprenant les codes de ce topics (ou des codes dérivés), soit je les posterais sans mentionner mon nom (si cela est possible), mais seulement celui des auteurs (toi et Defluc), soit en demandant aux responsables de la rubrique source de ne pas mentionner mon nom (ou alors juste en tant que 'compilateur'). D'ailleurs, il serait plus juste que ce soit toi et defluc qui les postiez. Ce doit être très désagréable de voir que quelqu'un retire le bénéfice de votre travail.

De plus, je suis un programmeur en dilettante, et je n'aurais pas la prétention d'apprendre quoi que ce soit aux pro que vous êtes. Les softs que je développe ne servent qu'à ma pomme, dans le cadre pro et perso (en fait je suis un gros fainéant, qui programme en peu en Delphi, afin que lesdits programmes bossent à sa place [j'ai dis que j'étais fainéant, pas que j'étais idiot )