program triangle;
var x,y,z,u,v:integer;
a,b,c,d,e,f,g,h,i,j:real;
begin
writeln('introduire les valeurs de x,y,z,u,v');
readln(x,y,z,u,v);
c:=(x-y-z)/2;
a:=y+c;
b:=z+c;
i:=c-((y-u-v+z)/2);
j:=(z-i-v)/2;
h:=(y-i-u)/2;
g:=j+v;
d:=u+h;
e:=h+i;
f:=i+j;
writeln('******************************************************************');
writeln(' Le resultat est: ');
writeln('******************************************************************');
writeln('a=',a:0:0);
writeln('b=',b:0:0);
writeln('c=',c:0:0);
writeln('d=',d:0:0);
writeln('e=',e:0:0);
writeln('f=',f:0:0);
writeln('g=',g:0:0);
writeln('h=',h:0:0);
writeln('i=',i:0:0);
writeln('j=',j:0:0);
end.
Merci d'avoir fait cette effort; très bon travail.
Est ce qu'un autre étudiant peut améliorer l'affichage du résultat (sous forme d'un triangle) ? et le tester sur d'autres valeurs (celles données au TD) pour s'assurer que ca fonctionne ? (n'oubliez pas de montrer le code et une capture écran).
Salam;
program triangle;
var x,y,z,u,v:integer; {les entrees}
a,b,c,d,e,f,g,h,i,j:real; {les sorties}
begin
writeln('introduire les valeurs de x,y,z,u,v par ordre');
writeln('x':30);
writeln('a':25,'b':10);
writeln('y':20,'c':10,'z':10); {pour schematiser le triangle et pour savoir ou se situe x,y,z,u,v}
writeln('d':15,'e':10,'f':10,'g':10);
writeln('u':10,'h':10,'i':10,'j':10,'v':10);
readln(x,y,z,u,v); {par ordre}
c:=(x-y-z)/2;
a:=y+c;
b:=z+c;
i:=c-((y-u-v+z)/2);
j:=(z-i-v)/2;
h:=(y-i-u)/2;
g:=j+v;
d:=u+h;
e:=h+i;
f:=i+j;
writeln('******************************************************************');
writeln(' Le resultat est: ');
writeln('******************************************************************');
writeln(x:30);
writeln(a:25:0,b:10:0);
writeln(y:20,c:10:0,z:10);
writeln(d:15:0,e:10:0,f:10:0,g:10:0);
writeln(u:10,h:10:0,i:10:0,j:10:0,v:10);
end.
