Bonsoir,
Quand j'essaye de compiler ce programme, Dev-Pascal m'affiche trois erreurs.
Voilà le programme :
J'ai beau chercher l'erreur, je ne trouve pas
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
27
28
29
30
31 program Mousse; const prix_metre = 300; var x : char; larg, long, prof, ray, haut, vol, prix, prix_metre : real; begin writeln('Quelle est la forme voulue ?'); write('saisir r pour rectangulaire, c pour cylindrique: '); readln(x); if (x <> 'r') or (x<>'c') then writeln('Saisie erronnée'); if (x = 'r') then begin write('largeur en mètres'); readln(larg); write('longueur en mètres'); readln(long); write('profondeur en mètres'); readln(prof); vol:= larg*long*prof; prix:= prix_metre*vol; writeln('Prix T.T.C: ',prix :10:2,'euros.'); end; if (x = 'c') then begin write('rayon en mètres: '); readln(ray); write('hauteur en mètres: '); readln(haut); vol:= sqr(ray*2)*haut; prix:= prix_metre*vol; writeln('Prix T.T.C: ',prix :10:2,'euros.'); end; readln; end.![]()
Partager