J'ai fait ce petit programme pour calcul du discriminant et des solutions d'une équation.
- Code: Tout sélectionner
EXPORT delta_fab2()
BEGIN
LOCAL a,b,c,y,x,x1,x2,z;
print();
z := 1;
WHILE z==1 DO
a:=0;
b:=0;
c:=0;
INPUT(a);
INPUT(b);
INPUT(c);
y := (b^2-4*a*c);
IF y>0 THEN
((-b+√y)/(2*a)) ▶ x1;
((-b-√y)/(2*a)) ▶ x2;
MSGBOX("Delta vaut : " + y + " Donc l'équation admet 2 solutions X1 = " + x1 + " et X2 = " + x2);
END;
IF y<0 THEN MSGBOX("Delta vaut : " + y + " donc l'équation n'a pas de solution");
END;
IF y=0 THEN
(-b/(2*a)) ▶ x;
MSGBOX("Delta vaut : " + y + " donc l'équation a une solution unique X = " + x);
END;
MSGBOX("On continue ?", 1) ▶ z;
END;
END;
J'ai deux soucis avec celui-ci :
- J'aurais préféré utiliser des PRINT au lieu de MSGBOX pour l'affichage des solutions, mais si je fais ça le programme ne fonctionne plus , pourquoi ?
- Comment rajouter des sauts de lignes dans un PRINT ou un MSGBOX ?