Source :Bac Tunisien, Pratique, 2001

Tâche : Ecrire un programme qui permet de saisir les coordonnées des trois sommets A, B et C d'un triangle puis détermine et affiche la nature du triangle (isocèle, équilatéral ou quelconque).

Exemple :

• Entrée : A(0,0), B(2,2), C(1,5)
• Sortie : ABC est isocèle

Correction Problème : Nature d'un Triangle

Par : Ahmed Fessi

 Pascal :

program NatTriang;
uses wincrt;
var
     xa,ya,xb,yb,xc,yc,ab,ac,bc : real;
     b:boolean;
begin
     writeln('donner les coordonnées de A, B, et C');
     readln(xa,ya,xb,yb,xc,yc);
     ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));
     ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));
     bc:=sqrt(sqr(xc-xb)+sqr(yc-yb));
     b:=false;
     if ((ab=ac) and (ab=bc))
     then
     begin
          writeln('ABC est equilateral');
          b:=true;
     end;
     if ((ab=ac) or (ab=bc) or (ac=bc)) and (b=false) then
        writeln('ABC est isocèle');
     if ((ab<>ac) and (ab<>bc) ) then
        writeln('ABC est quelconque');
end.