قسم الرياضيات و الإعلام الإلي

;Algorithme quadilatere

Var a,b,c,d,Xa,Ya,Xb,Yb,Xc,Yc:entier

Debut

;(Lire(a,b,c,d,Xa,Ya,Xb,Yb ,Xc,Yc

;(Ab:=(Xb-Xa)+(Yb-Ya

;(Ecrire('donnez la distance ab:',ab

;(Bc:=(Xc-Xb)+(Yc-Yb

;(Ecrire('donnez la distance bc:',bc

;(Cd:=(Xd-Xc)+(Yd-Yc

;(Ecrire('donnez la distance cd:',cd

;(ad:=(Xd-Xa)+(Yd-Ya

;(Ecrire('donnez la distance ad:',ad

Si ab=bc alors

('Ecrire('carré

Sinon

Si ab<>bc alors

('Ecrire('rectangle

Sinon

Si ad\\cd alors

('Ecrire('losange

Sinon 

('Ecrire('quadilatére quelconque

;fsi

;Fsi

;Fsi

.Fin

Algorithme Qdr;

var AB,BC,ax,ay,bx,by,cx,cy,dx,dy,ABC,CDA:reel;

debut

ecrire('A');lire(ax,ay);

ecrire('B');lire(bx,by);

ecrire('C');lire(cx,cy);

ecrire('D');lire(dx,dy);

AB:=sqrt(sqr(bx-ax)+sqr(by-ay));

BC:=sqrt(sqr(cx-bx)+sqr(cy-by));

ABC:=(bx-ax)*(cx-bx)+(by-ay)*(cy-by);

CDA:=(dx-cx)*(ax-dx)+(dy-cy)*(ay-dy);

si AB=BC alors

  si ABC=0 alors

   debut

    si CDA=0 alors

    ecrire('ABCD est un carré')

   fin

   sinon

    ecrire('ABCD est un losange')

   fsi ;

 sinon

  si ABC=0 alors

   debut 

    si CDA=0 alors

    ecrire ('ABCD est un rectangle')

   fin

  sinon

  ecrire ('ABCD est un quelque quadrilatere')

  fsi;

 fsi;

Fin.

Amina et Islam, Vous devez le faire en Pascal et voir si votre lgorithme donne les résulats attendus en le déroulant sur des exemples connus.

Bon courage.

ALGORITHME quad;

VAR xA,yA,xB,yB,xC,yC,xD,yD,AB,BC,CD,DA,AC,BD:réel;

DEBUT

ECRIRE (Introduisez l''abscisse (x) ainsi que l''ordonnée (y) du point A:')

LIRE(xA,yA); 

ECRIRE (Introduisez l''abscisse(x) ainsi que l''ordonnée (y) du point B:')

LIRE(xB,yB); 

ECRIRE (Introduisez l''abscisse (x) ainsi que l''ordonnée (y) du point C:')

LIRE(xC,yC); 

ECRIRE (Introduisez l''abscisse (x) ainsi que l''ordonnée (y) du point D:')

LIRE(xD,yD);

     AB:=sqrt((xB-xA)*(xB-xA)+(yB-yA)*(yB-yA));

     BC:=sqrt((xC-xB)*(xC-xB)+(yC-yB)*(yC-yB));

     CD:=sqrt((xD-xC)*(xD-xC)+(yD-yC)*(yD-yC));

     DA:=sqrt((xA-xD)*(xA-xD)+(yA-yD)*(yA-yD));

     AC:=sqrt((xC-xA)*(xC-xA)+(yC-yA)*(yC-yA);

     BD:=sqrt((xD-xB)*(xD-xB)+(yD-yB)*(yD-yB);

SI (AB-BC=0) ET (BC-CD=0) ET (CD-DA=0) ET (AC-BD=0) ALORS

ECRIRE ('Votre quadrilatère est un carré.')

SINON

        SI (AB-CD=0) ET (DA-BC=0) ET (AB<>DA) ALORS

         ECRIRE ('Votre quadrilatère est un rectangle.'

SINON

        SI (AB-BC=0) ET (BC-CD=0) ET (CD-DA=0) ET (AC<>BC) ALORS

         ECRIRE ('Votre quadrilatère est un losange.')

SINON

ECRIRE ('Votre quadrilatère est quelconque.');

FIN.

Algorithme  repere ; 

Var xa, ya , xb , yb , xc , yc , xd , yd , AB , BC , CD , AD , AC , BD : reèl ; 

Debut 

Ecrire( ' donnez les coordonnée de A, B , C et  D ' ) ; 

Lire( xa , ya , xb , yb , xc , yc , xd , yd ) ; 

AB:= sqrt( sqr(xb-xa) + sqr(yb-ya)  ) ; 

BC:= sqrt( sqr(xc-xb) + sqr( yc-yb) ) ; 

CD:= sqrt( sqr(xd-xc) + sqr(yd-yc)  ) ; 

AD:= sqrt( sqr(xd-xa) + sqr(yd-ya)  ) ; 

AC:= sqrt( sqr(xc-xa) + sqr(yc-ya)  ) ; 

BD:= sqrt( sqr(xd-xb) + sqr(yd- yb)  ) ; 

Si  ( (AB=BC) et (BC=CD) et ( CD=AD) et (AC=BD)  )   alors 

ecrire( ' votre points forme carrè ' ) 

Fsi 

Si  (  (AB=CD) et (BC=AD) et (AB<>BC) et (AC=BD)  )    alors 

Ecrire(' votre points forme rectangle ' ) 

Fsi 

Si  (  ( AB=BC) et (BC=CD) et (CD=AD) et (AC<>BD)   )       alors 

ecrire( ' votre points forme losagne ' ) 

Sinon 

Ecrire( ' votre points forme quadilatère quelcenque ' ) 

Fsi 

Fin.

algorithme quadilatere;

var xa,ya,xb,yb,xc,yc,xd,yd,ab,bc,cd,ad,abc,abc:entier;

debut

ecrire('entrez l''abscisse et l''ordonnee de a ');

lire(xa,ya);

ecrire('entrez l''abscisse et l''ordonnee de b');

lire(xb,yb);

ecrire('entrez l''abscisse et l''ordonnee de c');

lire(xc,yc);

ecrire('entrez l''abscisse et l''ordonnee de d');

lire(xd,yd);

ab:=(xb-xa)+(yb-ya);

ecrire('donnez la distance ab ');

bc:=(xc-xb)+(yc-yb);

ecrire('donnez la distance bc ');

cd:=(xd-xc)+(yd-yc);

ecrire('donnez la distance cd ');

ad:=(xd-xa)+(yd-ya);

ecrire('donnez la distance ad ');

si (ab=bc=dc=ad)alors

ecrire('carre')

sinon

si(ab<>bc)alors

ecrire('rectangle')

sinon

si((ab=bc=cd=ad)et(abc=adc))alors

ecrire('losange')

sinon

ecrire('quadilatere quelconque');

fin.

Algorithme quadrilatere;

Var xa,ya,xb,yc,xc,yc,xd,yd,AB,BC,CD,AD,AC,BD: réel;

Debut 

Ecrire  ('donnez les coordonnées du A ');

Lire  (xa,ya);

Ecrire  ('donnez les coordonnées du B');

Lire  (xb,yb);

Ecrire  (' donnez les coordonnées du C');

Lire  (xc,yc);

Ecrire  (' donnez les coordonnées du D');

Lire  (xd,yd);

AB:= sqrt( sqr(xb-xa) + sqr(yb-ya)  );

BC:= sqrt( sqr(xc-xb) + sqr( yc-yb) );

CD:= sqrt( sqr(xd-xc) + sqr(yd-yc)  );

AD:= sqrt( sqr(xd-xa) + sqr(yd-ya)  );

AC:= sqrt( sqr(xc-xa) + sqr(yc-ya)  );

BD:= sqrt( sqr(xd-xb) + sqr(yd- yb)  );

Si (AB=BC) et (BC=CD) et (CD=AD) et (AC=BD) alors 

Ecrire  (' le quadrilatère est un carré')

Sinon 

Si (AB=BC) et (BC=CD) et (CD=AD) et (AC <>BD) alors 

Ecrire  (' le quadrilatère est un losange')

Sinon 

Si (AB=CD) et (BC=AD) et (AB <>BC) alors 

ecrire  (' le quadrilatère est un rectangle ')

Sinon 

Ecrire  (' les qutres points sont un quelconque quadrilatère ');

Fin.

☺

;Algorithme quadilatére

;Var ab,ad,bc,cd,ac,bd,Xa,Ya,Xb,Yb

Xc,Yc,Xd,Yd:entier;

Debut

;('Ecrire('donnez moi les coordoneé de a,b,c et d 

;(Lire(Xa,Xb,Xc,Xd,Ya,Yb,Yc,Yd

(;Ab:=cqrt((Xb-Xa)*(Xb-Xa)+(Yb-Ya)*(Yb-Ya)

;(Ecrire('donnez la distance ab:',ab

(;Bc:=cqrt((Xc-Xb)*(Xc-Xb)+(Yc-Yb)*(Yc-Yb)

(;Ecrire('donnez la distance bc:',bc

(;Cd:=cqrt((Xd-Xc)*(Xd-Xc)+(Yd-Yc)*(Yd-Yc)

;(ecrire('donnez la distance cd:',cd

(;ad:= cqrt((Xd-Xa)*(Xd-Xa)+(Yd-Ya)*(Yd-Ya)

;(ecrire('donnez la distance ad:',ad

(;ac:=cqrt((Xc-Xa)*(Xc-Xa)+(Yc-Ya)*(Yc-Ya)

;(Ecrire('donnez LA distance ac:',ac

(;Bd:=cqrt((Xd-Xb)*(Xd-Xb)+(Yd-Yb)*(Yd-Yb)

;(Ecrire('donnez LA distance de bd:',bd

Si (ab=bc) et (ad=cd) et (ad=bc) et (ab=cd) et (ac=bd) alors

;(Ecrire(le quadilatère est carrè

Si non

Si (ad=bc) et(ab=cd)et (ac=bd) et (ad<>cd)et (ab<>bc) alors

;('Ecrire('le  quadilatère est rectangle

So non

Si (ab=bc) et(ad=cd)et (ad=bc) et (ab=cd) et (ac<>bd) et ( bd<>ab) et (ac<>cd) alors

;('Ecrire('le quadilatère east losange

So non

;('Ecrire('le quadilatère est quelqonque

FSI

Fsi

Fsi

Fin.

Algorithme quadilataire;

var xa,ya,xb,yb,xc,yc,xd,yd:entiers;

a,b,c,d:caracteres;

Début 

Écrire  ('donner quatre points avec ses cordonnees');

Lire (a (xa,ya),b (xb,yb),c (xc,yc),d (xd,yd));

ab=sqrt (sqr (xb-xa)+sqr (yb-ya));

ad=sqrt (sqr (xd-xa)+sqr (yd-ya));

Si ab=ad alors 

Si ab*ad=0 alors ecrire ('carré ')

Sinon écrire  ('losange ');

Sinon

Si ab*ad=0alors écrire  ('rectangle ')

Sinon écrire  ('quadilataire quelconque ');

Fin. 

algorithme quadilatère;

var xa,ya,xb,yb,xc,yc,xd,yd,ab,bc,cd,ad,ac,bd:réel;

debut

écrire('tapez les cordonnéeé de a,b,c,d');

lire(xa,ya,xb,yb,xc,yc,xd,yd);

ab:=sqrt((xb-xa)*(xb-xa)-(yb-ya)*(yb-ya));

bc:=sqrt((xc-xb)*(xc-xb)-(yc-yb)*(yc-yb));

cd:=sqrt((xd-xc)*(xd-xc)-(yd-yc)*(yd-yc));

ad:=sqrt((xd-xa)*(xd-xa)-(yd-yc)*(yd-yc));

ac:=sqrt((xc-xa)*(xc-xa)-(yc-ya)*(yc-ya));

bd:=sqrt((xd-xb)*(xd-xb)-(yc-ya)*(yc-ya));

cas à distance vaut

(ab=bc )et (bc=cd )et(cd=ad) et( ac=bd):écrire('le point forme carré');

(ab=bc) et (bc=ad) et (ab<>bc) et (ac=bd):écrire('lepoint forme rectangle');

(ab=bc) et (bc=cd) et (cd=ad) et (ac<>bd):écrire('le point forme losange');

autre:écrire('le point forme quelque qualidatère');

fcas;

fin.

algorithme qualidatère;

var xa,xb,xc,xd,ya,yb,yc,yd,ab,bc,cd,ad,ac,bd:integer;

debut

écrire('tapez les cordonnées de a,b,c,d');

lire(xa,ya,xb,yb,xc,yb,xd,yd);

ab:=sqrt((xb-xa)-(yb-ya));

bc:=sqrt((xc-xb)-(yc-yb));

cd:=sqrt((xd-xc)-(yd-yc));

ad:=sqrt((xd-xa)-(yd-ya));

ac:=sqrt((xc-xa)-(yc-ya));

bd:=sqrt((xd-xb)-(yd-yb));

cas à qualidataire vaut

(ab=bc) et (bc=cd) et (cd=ad) et (ac=bd):écrire('le point forme carré');

(ab=bc) et (bc=ad) et (ab<>bc) et (ac=bd) :écrire('le point forme rectangle');

(ab=bc) et (bc=cd) et (cd=ad) et (ac<>bd) :écrire('le point forme losange');

autre:écrire('le point forme quelque qualidatère');

fcas;

fin.

Algorithme Qdr;

var AB,BC,ax,ay,bx,by,cx,cy,dx,dy,ABC,CDA:reel;

debut

ecrire('A');lire(ax,ay);

ecrire('B');lire(bx,by);

ecrire('C');lire(cx,cy);

ecrire('D');lire(dx,dy);

AB:=sqrt(sqr(bx-ax)+sqr(by-ay));

BC:=sqrt(sqr(cx-bx)+sqr(cy-by));

ABC:=(bx-ax)*(cx-bx)+(by-ay)*(cy-by);

CDA:=(dx-cx)*(ax-dx)+(dy-cy)*(ay-dy);

si AB=BC alors

  si ABC=0 alors

   debut

    si CDA=0 alors

    ecrire('ABCD est un carré')

   fin

   sinon

    ecrire('ABCD est un losange')

   fsi ;

 sinon

  si ABC=0 alors

   debut 

    si CDA=0 alors

    ecrire ('ABCD est un rectangle')

   fin

  sinon

  ecrire ('ABCD est un quelque quadrilatere')

  fsi;

 fsi;

Fin.

ALGORITHME quad;

VAR xA,yA,xB,yB,xC,yC,xD,yD,AB,BC,CD,DA,AC,BD:réel;

DEBUT

ECRIRE (Introduisez l''abscisse (x) ainsi que l''ordonnée (y) du point A:')

LIRE(xA,yA); 

ECRIRE (Introduisez l''abscisse(x) ainsi que l''ordonnée (y) du point B:')

LIRE(xB,yB); 

ECRIRE (Introduisez l''abscisse (x) ainsi que l''ordonnée (y) du point C:')

LIRE(xC,yC); 

ECRIRE (Introduisez l''abscisse (x) ainsi que l''ordonnée (y) du point D:')

LIRE(xD,yD);

     AB:=sqrt((xB-xA)*(xB-xA)+(yB-yA)*(yB-yA));

     BC:=sqrt((xC-xB)*(xC-xB)+(yC-yB)*(yC-yB));

     CD:=sqrt((xD-xC)*(xD-xC)+(yD-yC)*(yD-yC));

     DA:=sqrt((xA-xD)*(xA-xD)+(yA-yD)*(yA-yD));

     AC:=sqrt((xC-xA)*(xC-xA)+(yC-yA)*(yC-yA);

     BD:=sqrt((xD-xB)*(xD-xB)+(yD-yB)*(yD-yB);

SI (AB-BC=0) ET (BC-CD=0) ET (CD-DA=0) ET (AC-BD=0) ALORS

ECRIRE ('Votre quadrilatère est un carré.')

SINON

        SI (AB-CD=0) ET (DA-BC=0) ET (AB<>DA) ALORS

         ECRIRE ('Votre quadrilatère est un rectangle.'

SINON

        SI (AB-BC=0) ET (BC-CD=0) ET (CD-DA=0) ET (AC<>BC) ALORS

         ECRIRE ('Votre quadrilatère est un losange.')

SINON

ECRIRE ('Votre quadrilatère est quelconque.');

FIN.