Department of Mathematics and Computer Science

www.univ-soukahras.dz/en/dept/mi

Module: Algorithmique et structure de données 1

  1. Information
  2. Questions

Algorithme/Pascal: Quel Quadilatère suis-je?

0 votes

Soient quatre points A, B, C, D sur un repère orthonormé. Chaque point est identifiée par des coordonnées (x,y) où x est l'abscisse et y est l'ordonnée.

X, y: des entiers positifs. Sachant que (x,y) = (0,0) represente un point (Pour pascal le point est le coin supérieur gauche).

Donner l'algorithme qui affiche si les A(xa,ya), B(xb,yb),C(xc,yc) et D(xd, yd) forment un quadilatère de type:

- Carré, Rectangle, Losange ou un quadilatère quelconque.

N'oubiez pas: Faites une exécution avant de répondre! Vous pouvez aussi réécrire, optimser la solution et de la commenter si un étudiant aura trouvé la bonne solution.

Bonne réflexion.

Asked on 13:29, Sunday 29 Oct 2017 By Noureddine GASMALLAH
In Algorithmique et structure de données 1


answers (13)




Answer (1)

1 votes

;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

smile

 

Answered on 19:01, Monday 30 Oct 2017 by amina monebbah (61 points)
In Algorithmique et structure de données 1



Answer (2)

0 votes

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.

 

 

Answered on 19:14, Sunday 5 Nov 2017 by Islam Yagoub (74 points)
In Algorithmique et structure de données 1



Answer (3)

0 votes

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.

Answered on 11:30, Monday 6 Nov 2017 by Noureddine GASMALLAH
In Algorithmique et structure de données 1



Answer (4)

0 votes

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.

Answered on 18:53, Tuesday 7 Nov 2017 by Adlène Beddiar (18 points)
In Algorithmique et structure de données 1



Answer (5)

0 votes

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.

 

Answered on 20:30, Tuesday 7 Nov 2017 by Fateh HESSAINIA (61 points)
In Algorithmique et structure de données 1



Answer (6)

0 votes

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.

Answered on 18:23, Wednesday 8 Nov 2017 by Aicha Azzag (14 points)
In Algorithmique et structure de données 1



Answer (7)

0 votes

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.

 

 

 

Answered on 19:28, Wednesday 8 Nov 2017 by Manel chiah (12 points)
In Algorithmique et structure de données 1



Answer (8)

0 votes

;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.

 

 

Answered on 17:51, Thursday 9 Nov 2017 by amina monebbah (61 points)
In Algorithmique et structure de données 1



Answer (9)

0 votes

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. 

Answered on 21:56, Saturday 11 Nov 2017 by Hafsia Tradkhodja (104 points)
In Algorithmique et structure de données 1



Answer (10)

0 votes

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.

Answered on 18:08, Sunday 12 Nov 2017 by ريان ريدان (228 points)
In Algorithmique et structure de données 1



Answer (11)

0 votes

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.

Answered on 18:31, Sunday 12 Nov 2017 by Haifa Benlassowd (76 points)
In Algorithmique et structure de données 1



Answer (12)

0 votes

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.

 

 

Answered on 14:03, Friday 1 Dec 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



Answer (13)

0 votes

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.

Answered on 18:16, Tuesday 19 Dec 2017 by Cadi Mohamed riadh (14 points)
In Algorithmique et structure de données 1



Do you have an answer ?