J'ai un programme à faire pour mon cours de programmation sur les relations métriques dans un triangle quelconque. J'ai déjà commencé par le fait de pouvoir construire le triangle d'où l'inégalité triangulaire
je vous envoie le code de ce que j'ai déjà fait.
Merci de bien vouloir y jeter un oeil
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
begin
clrscr;
 
while (max>=l[1]+l[2]+l[3] - max) do
 
begin
 
writeln('Entrez a');
readln (a);
 
writeln ('Entrez b');
readln (b);
 
writeln ('Entrez c');
readln (c);
 
max:=a;
end;
 
for i:= 2 to 3 do
begin
if l[i] > max then max := l [i];
end;
 
 
end.