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.