AlgoBox : droites_algo12
Tester l'algorithme
Cliquer sur ce bouton pour exécuter l'algorithme : 

Résultats

Code de l'algorithme
1   VARIABLES
2     xA EST_DU_TYPE NOMBRE
3     yA EST_DU_TYPE NOMBRE
4     xB EST_DU_TYPE NOMBRE
5     yB EST_DU_TYPE NOMBRE
6     xC EST_DU_TYPE NOMBRE
7     yC EST_DU_TYPE NOMBRE
8     xD EST_DU_TYPE NOMBRE
9     yD EST_DU_TYPE NOMBRE
10    a1 EST_DU_TYPE NOMBRE
11    a2 EST_DU_TYPE NOMBRE
12  DEBUT_ALGORITHME
13    LIRE xA
14    LIRE yA
15    LIRE xB
16    LIRE yB
17    LIRE xC
18    LIRE yC
19    LIRE xD
20    LIRE yD
21    SI (xA==xB et xC==xD) ALORS
22      DEBUT_SI
23      AFFICHER "(AB) et (CD) sont parallèles"
24      FIN_SI
25      SINON
26        DEBUT_SINON
27        SI (xA==xB ou xC==xD) ALORS
28          DEBUT_SI
29          AFFICHER "(AB) et (CD) ne sont pas parallèles"
30          FIN_SI
31          SINON
32            DEBUT_SINON
33            a1 PREND_LA_VALEUR (yB-yA)/(xB-xA)
34            a2 PREND_LA_VALEUR (yD-yC)/(xD-xC)
35            SI (a1==a2) ALORS
36              DEBUT_SI
37              AFFICHER "(AB) et (CD) sont parallèles"
38              FIN_SI
39              SINON
40                DEBUT_SINON
41                AFFICHER "(AB) et (CD) ne sont pas parallèles"
42                FIN_SINON
43            FIN_SINON
44        FIN_SINON
45  FIN_ALGORITHME