Discussion :

[iks37]

Salut !

Supposons que dans un programme nous déclarions une variable, par exemple, nbr, comme integer (type entier).

Je remarque que lors de l'affectation d'une valeur à nbr, si nous lui affectons plutôt une valeur de type réel (real), l'écran disparaît.

Que faire pour empêcher la disparition de l'écran ?

Un exemple : un petit programme pour calculer la factorielle d'un nombre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
program Factorielle(input, output);
var nbr : integer;
     fac : longint;
begin
repeat
write ('Donnez un entier naturel :  '); 
readln (nbr);
until (nbr>=0);
.
.
.
end.

La factorielle d'un nombre n'existe que pour les entiers naturels.
Si l'utilisateur saisit un nombre réel au lieu d'un nombre entier naturel, l'écran disparaît dès la validation de la saisie.

[droggo]

Foe,

L'écran "disparaît" parce que l'entrée génère une erreur.

Il faut lire une chaine, puis essayer de l'interpréter comme un entier.

[iks37]

Salut Droggo

Pourriez-vous être plus explicite ?
Je souhaite pour cela que vous expliquiez votre idée à partir de l'exemple que j'ai proposé.
Merci de votre compréhension.

[droggo]

Geo,

Petit exemple rapide :

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
program lecture_ok;
 
var
  s : string;
  n,code : integer;
 
begin
  // lecture de la chaine
 
  write ('entrez valeur : ')
  readLn(s);
 
  // essai de conversion en entier
 
  Val(s,n,code);
 
  // en retour, si code = 0, la valeur est bien un entier
 
  if (code = 0)
  then writeLn('La valeur est ', intToStr(n))
  else writeLn('La valeur n'est pas un entier');
end.

À quoi il faut ajouter tes propres contrôles, genre la valeur est-elle >= 0, le valeur est-elle dans les limites acceptables (qui sont petites ), et éventuellement créer une boucle tant que ce n'est pas ok...