// xcas version=1.5.0-37 fontsize=14 font=0 currentlevel=1 pixon=1
// fltk 7Fl_Tile 11 56 854 462 14 0
[
// fltk N4xcas7EditeurE 11 56 854 295 14 0
537 ,
//Le programme principal qui va appeler la procÃ©dure controleSaisie(
input("Donner un nombre entier naturel",a);
controleSaisie(a);  //appel de la fonction
input("En saisir un autre",b);
controleSaisie(b);  //appel de la fonction


//voici la procÃ©dure de controle de saisie de paramÃ¨tre n
controleSaisie(n):={
//surtout ne pas dÃ©clarer n en local, ceci aurait pour effet de rÃ©initialiser n Ã  0
si n<0 ou floor(n)!=n 
  alors print (" DÃ©solÃ©, "+n+" n'est pas un entier naturel")
  sinon print (n+" est un entier naturel")
fsi}
:;,
// fltk N4xcas10Log_OutputE 11 351 854 165 14 0
// InterprÃ¨te controleSaisie£// SuccÃ¨s£// lors de la compilation controleSaisie£15 est un entier naturel£12 est un entier naturel££Temps mis pour l'Ã©valuation: 7.656£
,
// fltk N4xcas8EquationE 11 516 854 20 14 0 1
[1,15],1,[1,12],1,"Done"
]
,
// fltk 7Fl_Tile 11 520 854 98 14 0
[
// fltk N4xcas19Multiline_Input_tabE 11 520 854 22 14 0
progPrinc(
,
// fltk N4xcas10Log_OutputE 11 542 854 56 14 0
15 est un entier naturel£ DÃ©solÃ©, 18.6 n'est pas un entier naturel£Evaluation time: 7.64£
,
// fltk N4xcas8EquationE 11 598 854 20 14 0 1
1
]
,
// fltk 7Fl_Tile 11 620 854 25 14 0
[
// fltk N4xcas19Multiline_Input_tabE 11 620 854 24 14 0

,
// fltk N4xcas10Log_OutputE 11 644 854 1 14 0

]
// context 1087 giac archive
7 0 10 8 0 0 'cas_setup' 7 0 12 0 0 0
0 0 0
0 0 0
0 1 0
0 0 0
7 0 2 1   590 8
1    24 1
0 12 0
7 0 4 0 2 0
0 50 0
0 0 0
0 25 0
0 0 0
0 0 0
0 0 0
0 1 0
8 0 0 'xyztrange' 7 0 16 1 næ Ànæ 
1   a    
1  aìå a
1  k 7Fl_
1   "   
1 ½ÿÿ 11 
1 a"D¡   
1 Ýÿÿ 11 
1  "",a);
1  æ |å a
1  6 876 
1  æ \å a
0 1 0
1 ^ a<å a
1  6 876 
0 3 0
7 0 0 7 0 0 8 0 15 7 1 2 0 15 0
6 1 a 8 0 15 7 1 2 0 12 0
6 1 b 8 0 15 7 1 2 8 0 73 7 1 3 7 1 1 6 1 n 7 1 1 0 0 0
7 32 1 8 0 -1 si 7 0 3 8 0 -1 ou 7 1 2 8 0 35 7 1 2 6 1 n 0 0 0
8 0 39 7 1 2 8 0 0 'floor' 6 1 n 6 1 n 8 0 0 print 8 0 1 7 1 3 12 11 | DÃ©solÃ©,  6 1 n 12 28 | n'est pas un entier naturel 8 0 0 print 8 0 1 7 1 2 6 1 n 12 22 | est un entier naturel 6 14 controleSaisie 8 0 15 7 1 2 0 1 0
6 2 ok 8 0 15 7 1 2 8 0 73 7 0 3 7 1 0 7 1 0 8 0 42 7 0 2 7 0 2 7 1 2 6 1 a 6 1 b 7 1 0 7 0 4 8 0 0 'saisir' 7 1 2 12 31 |Donner un nombre entier naturel 6 1 a 8 0 81 7 0 2 6 14 controleSaisie 6 1 a 8 0 0 'saisir' 7 1 2 12 18 |En saisir un autre 6 1 b 8 0 81 7 0 2 6 14 controleSaisie 6 1 b 6 9 progPrinc 8 0 0 'xcas_mode' 0 0 0