Programme trois points alignés

[Bisam]

On peut même réécrire le programme en une ligne :

Code: Select all

colineaire(xa,ya,xb,yb,xc,yc)
"Les 3 points "&when((xb-xa)*(yc-ya)=(xc-xa)*(yb-ya),"sont","ne sont pas")&" alignés"


[adrien13]

Merci beaucoup mais je débute donc la ça me semble quand même un peu poussé, mais je garde dans un coin de ma tête qu'une méthode simplifié existe.

[Excale]

Code: Select all

colineaire(xa,ya,xb,yb,xc,yc)
"Les 3 points "&when((xb-xa)*(yc-ya)=(xc-xa)*(yb-ya),"sont","ne sont pas")&" alignés")


(d'ailleurs je crois qu'il a oublié un " à la fin que j'ai rajouté)

Pour expliquer le code de bisam:

On part de

Code: Select all

xab:=xb-xa
yab:=yb-ya
xac:=xc-xa
yac:=yc-ya
If xab*yac=xac*yab Then
  disp "les trois points sont alignés"
else
  disp "les trois points ne sont pas alignés"
EndIf

Au lieu de déclarer xab,yab,xac,et yac, on les inclus directement dans la condition:

Code: Select all

If (xb-xa)*(yc-ya)=(xc-xa)*(yb-ya) Then
  disp "les trois points sont alignés"
else
  disp "les trois points ne sont pas alignés"
EndIf

Ensuite, il faut savoir qu'un bloc if/else/endif peut s'écrire en une ligne avec when(condition,trucsivrai,trucsifaux).
==>

Code: Select all

when((xb-xa)*(yc-ya)=(xc-xa)*(yb-ya),"Les 3 points sont alignés","Les 3 points ne sont pas alignés")

Mais là, dans les deux cas, on dit "Les 3 points " et " alignés".
On va donc dire "Les 3 points ", dire "sont" ou "ne sont pas", et enfin dire " alignés".
Il faut savoir que l'on concatène les chaines de caractères avec & (ex "le bateau"&"rouge"="lebateaurouge").

Et on retrouve le code de bisam!:

Code: Select all

colineaire(xa,ya,xb,yb,xc,yc)
"Les 3 points "&when((xb-xa)*(yc-ya)=(xc-xa)*(yb-ya),"sont","ne sont pas")&" alignés")


[adrien13]

Merci c'est déjà beaucoup plus claire comme cela, par contre devant le "when" il y a un signe, sa signifie quoi?

[Excale]

C'est le & pour concaténer deux chaines. Une fois que le when() aura été interprété, il retournera soit "sont", soit "ne sont pas", qui sont tous les deux une chaine de caractère.

Exemple:
"Les 3 points "&when((xb-xa)*(yc-ya)=(xc-xa)*(yb-ya),"sont","ne sont pas") ==>
"Les 3 points "&"sont"

[adrien13]

Je crois que je ne peux que te remercié d'avoir prix le temps de répondre a mes questions.