قسم الرياضيات و الإعلام الإليwww.univ-soukahras.dz/ar/dept/mi |
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. |
نشر على 13:29, الأحد 29 أكت 2017 By Noureddine GASMALLAH |
أجوبة (13)
جواب (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
|
نشر على 19:01, الاثنين 30 أكت 2017 by Amina Monebbah |
جواب (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.
|
نشر على 19:14, الأحد 5 نوف 2017 by Islam Yagoub |
جواب (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. |
نشر على 11:30, الاثنين 6 نوف 2017 by Noureddine GASMALLAH |
جواب (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. |
نشر على 18:53, الثلاثاء 7 نوف 2017 by Adlène Beddiar (18 points) |
جواب (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.
|
نشر على 20:30, الثلاثاء 7 نوف 2017 by Feteh HESSAINIA |
جواب (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. |
نشر على 18:23, الأربعاء 8 نوف 2017 by Aicha Azzag (14 points) |
جواب (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. ☺
|
نشر على 19:28, الأربعاء 8 نوف 2017 by Manel chiah (12 points) |
جواب (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.
|
نشر على 17:51, الخميس 9 نوف 2017 by Amina Monebbah |
جواب (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. |
نشر على 21:56, السبت 11 نوف 2017 by Hafsia Tradkhodja |
جواب (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. |
نشر على 18:08, الأحد 12 نوف 2017 by rayene ridane |
جواب (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. |
نشر على 18:31, الأحد 12 نوف 2017 by Haifa Benlassowd |
جواب (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.
|
نشر على 14:03, الجمعة 1 ديس 2017 by sara younsi |
جواب (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. |
نشر على 18:16, الثلاثاء 19 ديس 2017 by Cadi Mohamed riadh (14 points) |