Discussion :

[nadirmabed]

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.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program multiplication;
 
 
var a,b,d,t,r :real;
 
   function mult (a:real; b:real):real;
   var c:real;
   begin
   c:=a*b;
   writeln('     ',a:0:0,'*',b:0:0,'=',c:0:0);
   end;
   begin
 
   write('donner une valeur: ');
   readln(a);
    write('donner une autre valeur: ');
   readln(b);
 
 
 
 
 
begin
 
 
readln(t);
 
begin
if(( mult(a,b)=0) and ( t= 0 )) then
 
 begin
 write ('null' );
 end
else
 
if(( mult(a,b)>0) and( t>0))  or (mult(a,b)<0) and( t<0)  then
 
 
begin
write ('le produit de a et b et t  est positif');
end   else write ('negatif');
 
 end;
 
 end;
 
   end.

[lkhalid]

de la ligne 36 efface ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

or (mult(a,b)<0) and( t<0)

sinon je pense le code est lourd pour un simple test de produit de 3 nombres

[nadirmabed]

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

Même chose il écrit negative regarde la photo

[e-ric]

sinon je pense le code est lourd pour un simple test de produit de 3 nombres

C'est le moins que l'on puisse dire...

Est-ce que la "méthode" employée est liée à une contrainte de l'énoncé du problème ?
Comment ferais-tu en mathématiques ? Dans le cas présent c'est quasiment la même chose.

Il suffit d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if (a*b*t) >= 0 then
  WriteLn('Produit positif')
else
  WriteLn('Produit négatif');

C'est quand même pas sorcier, non ?

[nadirmabed]

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

[e-ric]

Salut

Ok, mais une fonction avec combien de paramètres: 2 ou 3 ?

Cdlt

[nadirmabed]

Trois.