Faire un test

Version imprimable

04/01/2013, 19h52
thaddée

Faire un test

Bonjour à tous internautes

Petite question : quel est la syntaxe Pascal pour pouvoir faire un test, c'est-à-dire initialiser une chose à vrai, faire un compteur pour faire des calculs de valeurs (par exemple x:=x+1) avec la condition que notre test (par exemple x inférieur à b que l'on détermine au départ) soit toujours vrai. Lorsque le test devient faux, le programme s'arrête et affiche la dernière valeur calculée.

Bonjour !

Il y a plusieurs questions dans la question, mais pour aller à la principale, je dirais qu'on peut se servir d'une expression ou d'une fonction booléenne. Voici un exemple :

Code:

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
 
program fbool;
 
{ Exemple de fonction renvoyant une valeur booléenne. }
 
function a_egale_b ( const a: integer; const b: integer ): boolean;
begin
  if a = b then a_egale_b := true else a_egale_b := false;
end;
 
var
  i: integer;
 
begin
  WriteLn( a_egale_b ( 1, 2 ) );
 
  if a_egale_b ( 1, 1 ) then
    WriteLn( '1 est egal a lui-meme !' );
 
  i := 1;
  while not a_egale_b ( i, 4 ) do
  begin
    WriteLn( i );
    Inc( i );
  end;
 
  ReadLn;
end.

Citation:

FALSE
1 est egal a lui-meme !
1
2
3

04/01/2013, 20h41
thaddée

parfait merci c'est ce que je voulais savoir