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.

[e-ric]

Dans ce cas, c'est pas vraiment difficile:

Code :

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

1
2
3
4
5
 
function Produit3Positif(a,b,t: Real): Boolean;
begin
  Produit3Negatif := (a*b*t) >= 0;
End;

Cela ne suffit-il pas ?

cdlt

[nadirmabed]

[e-ric]

Petite bêtise de ma part, mais tu aurais pu corriger par toi-même:

Code :

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

1
2
3
4
function Produit3Positif(a,b,t: Real): Boolean;
begin
  Produit3Positif := (a*b*t) >= 0;
End;

[nadirmabed]

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

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
program produit33333;
 
 
 
function Produit3Positif(a,b,t: Real): Boolean;
 
begin
  Produit3Positif := (a*b*t) >= 0;
End;
function Produit3negatif(a,b,t: Real): Boolean;
 
begin
  Produit3negatif := (a*b*t) <= 0;
End;
var a,b,j,h,y,t:real;
begin
 
  write('donner une valeur: ');
   readln(j);
    write('donner une autre valeur: ');
   readln(h);
 
writeln('produit');
readln(y);
Produit3Positif(j,h,y);
readln;
end.

[e-ric]

Salut

Deux choses que tu dois retenir
- place ton code dans des balises code (bouton # de l'éditeur)
- indente ton code

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
program produit33333;
 
function Produit3Positif(a,b,t: Real): Boolean;
begin
  Produit3Positif := (a*b*t) >= 0;
End;
 
function Produit3negatif(a,b,t: Real): Boolean;
begin
  Produit3negatif := (a*b*t) <= 0;
End;
 
var
  a,b,j,h,y,t:real;
begin
  write('donner une valeur: ');
  readln(j);
  write('donner une autre valeur: ');
  readln(h);
 
  writeln('produit');
  readln(y);
  Produit3Positif(j,h,y);
  readln;
end.

Remarque bien que tes deux fonctions ont le même résultat si l'un des paramètres est nul. Les variables a,b et t ne servent à rien.
La variable y est un terme du produit, pas le produit lui-même. Si tel était le cas, le produit obtenu serait toujours positif ou nul (cherche pourquoi).

@+

[nadirmabed]

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

[anapurna]

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

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(  (a=0) or (b=0) or (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.

pour faire simple ta condition etait toujours fausse du fait que ton or ne contenais pas la condition and t<0

[nadirmabed]

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
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(  (a=0) or (b=0) or (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.

pour faire simple ta condition etait toujours fausse du fait que ton or ne contenais pas la condition and t<0

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

[bataff]

Bonjour,

Prenons un exemple avec a=-2 ; b=-5 et t=+1
Test avec ton code initial :

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

(mult(a,b)>0)and(t>0)) => true (car mult(a,b)=+10>0 et t=+1>0)
( mult(a,b)>0) and( t>0)) or (mult(a,b)<0) => true (car mult(a,b) and (t>0)=true)
Donc ( mult(a,b)>0) and( t>0)) or (mult(a,b)<0) and( t<0) => false car t=+1>0

Le résultat impliquerait donc que a*b*t est negatif alors que (-2)*(-5)*(+1)=+10.

Test avec les parentheses rajoutées par Anapurna :

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

On a mult(a,b)>0) and( t>0) = true car mult(a,b)=+10>0 et t=+1>0.
mult(a,b)<0) and( t<0) = false car mult(a,b)=+10>0
Donc ( mult(a,b)>0) and( t>0)) or ( (mult(a,b)<0) and( t<0))= true

Sinon, d'autre part, il y a autre chose qui ne va pas dans la fonction mult :

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;

Elle ne retournera rien... Le résultat d'une function doit etre renvoyé soit par l'instruction 'result' soit par le nom de la function 'mult' (et non par une autre variable avec laquelle l'ordinateur ne comprendra pas que c'est celle-ci). Regarde dans les manuels pour en savoir davantage.

A bientôt et bon noël.

[e-ric]

Salut

Ce qu'a écrit Anapurna est pourtant clair, il te manque des parenthèses, relis attentivement...

Sinon, je te propose une alternative:

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
 
function SignOf(const Value: Real): Real;
begin
  if (Value = 0) then //  attention: la comparaison d'un réel à 0 est toujours un peu risquée
    Result := 0
  else if (Value<0) then
    Result := -1
  else
    Result := +1;
End;
 
var
   res: Double;
begin
  res := SignOf(mult (a,b)) * SignOf(t);
  if (res = 0) then
    WriteLn('Produit nul')
  else if (res>0) then
    WriteLn('Produit positif')
  else
    WriteLn('Produit négatif');
End;
// code non testé.

C'est un peu lourd mais on n'est plus à ça près. La comparaison directe du produit à trois valeurs comme je l'ai déjà écrit dans une précédente réponse est largement suffisante.

[barle]

Bonjour,
A part le fait que le source est très lourd, l'erreur réside dans la fonction mult qui ne renvoie aucun résultat.
Il faut bien sûr ajouter mult:=a*b dans la fonction pour qu'elle renvoie le résultat souhaité.