Recherche:

j'ai pas compris t<0 j'ai ecrit (mult(a,b)<0) and( t<0)

Je n'ai pas trouvé de grand solution j'ai pas le temps j'ai interrogation.
Après peut-être.

Regarde ça, est-ce que c'est bien ?

program produit33333;



function Produit3Positif(a,b,t: Real): Boolean;

begin
Produit3Positif := (a*b*t) >= 0;

163519

Trois.

Mon prof m'a dit la solution avec une fonction.

Je n'ai pas compris "le code est lourd"

Même chose il écrit negative regarde la photo

163288

Bonjour,

j'ai ce programme que je veux exécuter mais il retourne presque toujours le résultat "negatif".
Quelle est la solution ?

Regardez la photo.


program multiplication;