Discussion :

[sam343]

Bonjour,

Je débute en programmation Pascal et j'aurais besoin d'aide sur les booléens(boolean) :

Voici un exercice d'entraînement que je n'arrive pas à résoudre :

Ecrire une fonction (a,b,x:real):boolean qui détermine si x est dans un intervalle [a;b] : elle prendra la valeur true si x appartient à [a,b],false sinon.
Tester dans un programme (on demande à l'utilisateur de saisir a,b, on vérifie a<=b si ce n'est pas le cas on redemande la saisie jusqu'à ce qu'elle soit correcte).

Pourriez-vous maider à établir ce programme svp

[sam343]

Voilà, j'ai réussi à une erreur près : le logiciel me met :"Fatal : syntax error ,; expected but ELSE found"

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
program ex4a;
uses console; {$R+}
 
function point(a,b,x:real):boolean;
begin
if (a<x) and (x<b) then point := true
                   else point := false
end;
 
var x,a,b :real;
 
begin
 writeln('entrer les bornes de l"interval a et b :');
 readln(a,b);
while a>b do
      begin
      writeln('Saisie incorrecte car a>b, recommencez :');
      readln(a,b);
      end;
 writeln('Entrer un nombre réel x :');
 readln(x);
 if point (a,b,x) then writeln('Le réel ' , x:1:2 ,' est compris dans l"interval [',a:1:2, ';',b:1:2,']');
                  else writeln('le réel ' , x:1:2 ,' n"est pas compris dans l"interval [',a:1:2,';',b:1:2,']');
 
 
end.

Apparemment le else de l'avant-dernière ligne ne convient pas mais je ne comprends pas pourquoi. Quelqu'un pourrait-il m'aider svp ?

[sam343]

c'est bon j'ai réussi j'ai remplacé else par if not point (a,b,x) then et sa a marché a+++

[droggo]

Woe,

c'est bon j'ai réussi j'ai remplacé else par if not point (a,b,x) then et sa a marché a+++

Ce n'est pas la seule modification, elle n'aurait pas suffit pour résoudre ton problème, qui vient en fait du point-virgule qui termine l'instruction juste avant le else.

[Dr.Who]

Code :

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

1
2
3
4
5
6
function IsInRange(const aValue, aMin, aMax: real): boolean;
var R : boolean;
begin
  R := (aValue > aMin) and (aValue < aMax);
  IsInRange := R;
end;

il pourrait être possible de faire egalement :

Code :

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

1
2
3
4
function IsInRange(const aValue, aMin, aMax: real): boolean;
begin
  IsInRange := (aValue > aMin) and (aValue < aMax);
end;

[droggo]

Coa,

Code :

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

1
2
3
4
5
6
function IsInRange(const aValue, aMin, aMax: real): boolean;
var R : boolean;
begin
  R := (aValue > aMin) and (aValue < aMax);
  IsInRange := R;
end;

il pourrait être possible de faire egalement :

Code :

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

1
2
3
4
function IsInRange(const aValue, aMin, aMax: real): boolean;
begin
  IsInRange := (aValue > aMin) and (aValue < aMax);
end;

Pour que ce soit utilisable sans contrainte, j'aurais vérifié que

aMax >= aMin

sinon il faut penser à le faire avant chaque appel de la fonction.

[Dr.Who]

c'etait surtout pour montrer qu'on avait pas besoin de definir implicitement True ou False sur le booléen.

faire

Code :

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

1
2
 
if quelquechose then truc := true else false;

est mauvais.

tout comme faire :

Code :

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

1
2
 
if quelquechose = true then ...

maintenant il est vrai que la fonction ne verifie pas que la borne aMin soit bien inferieure à aMax.

dans ce cas cela rend la fonction un peu plus complexe :

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
 
function IsInRange(const aValue, aMin, aMax: real): boolean;
var vMin, vMax : real;
begin
  if aMin < aMax then
  begin
    vMin := aMin;
    vMax := aMax;
  end
  else
  begin
    vMax := aMin;
    vMin := aMax;
  end;
 
  IsInRange := (aValue > vMin) and (aValue < vMax);
end;

de plus dans son code il à déjà une boucle qui verifie que Min soit < à Max donc la modif est inutile dans ce cas.

[droggo]

Peo,

de plus dans son code il à déjà une boucle qui verifie que Min soit < à Max donc la modif est inutile dans ce cas.

Oui, mais c'est une bonne habitude de créer des fonctions qui soulagent le travail répétitif en amont.

[Dr.Who]

Peo,

Oui, mais c'est une bonne habitude de créer des fonctions qui soulagent le travail répétitif en amont.

c'est bien certain!

moi j'ai plutôt pris l'habitude de forcer le développeur à vérifier les paramètres qu'il rentre dans mes fonctions ... non mais ...