rentrer dans la boucle après qu'une exception soit déclenchée

[phenix1988]

Bonjour
Je suis amené à écrire un petit programme en ADA qui récupère une exception et affiche un message indiquant l'erreur de saisie, puis, inviter l'utilisateur à saisir une autre commande et lorsque le programme a comptabilisé plus de 5 DATA_ERROR, le programme doit être terminé :

Code :

1
2
3
4
5
6
7
for  i in 1..5  loop
get(c);
end loop;

exception when data_error =>
put_line("erreur de saisie");

le problème c'est que je ne sais pas comment faire pour rentrer dans la boucle après que l'exception soit déclenchée
si quelqu'un peut m'aider je lui serai reconnaissant
merci

[jovalise]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Nbr_Erreur : Natural;
begin
   loop
      begin
         Get(C);
         exit;
      exception
         when Data_Error =>
            Nbr_Erreur := Nbr_Erreur + 1;
      end;
      exit when Nbr_Erreur = 5;
   end loop;

[phenix1988]

ça marche merci

[jovalise]

De rien. Bonne continuation.