------------------------------------------------------------------ -- le nom du fichier doit avoir le nom de la procedure : divise.adb -- /usr/local/bin/gcc -c essai.adb -- /usr/local/bin/gnatbl essai.ali ------------------------------------------------------------------ -- Specifs : -- Donnees : test les fonctions et procedure ADA -- Resultats : -- Relations : ----------------------------------------------------------------- with Text_IO ; use Text_IO ; -- pour les entrees/sorties procedure proc is package Int_Io is new Integer_IO (Integer); use Int_Io; -- procedure sans parametre procedure sans_param is begin put("dans sans_param") ; new_line ; end sans_param ; -- procedure avec un parametre d'entree procedure avec_param_in(nb : in INTEGER) is begin put("dans avec_param_in : "); put(nb) ; new_line ; -- nb := nb + 1 ; IMPOSSIBLE ! end avec_param_in ; -- procedure avec un parametre de sortie procedure avec_param_out(nb : out INTEGER) is begin put("dans avec_param_out : "); nb := 10 ; put(nb) ; new_line ; nb := nb + 1 ; end avec_param_out ; -- procedure avec un parametre d'entree/sortie procedure avec_param_in_out(nb : in out INTEGER) is begin put("dans avec_param_in_out : "); nb := 0 ; put(nb) ; new_line ; nb := nb + 1 ; end avec_param_in_out ; function sortie return BOOLEAN is c : CHARACTER := ' ' ; begin put("Taper o pour terminer le programme") ; new_line ; while c /= 'o' loop get(c) ; end loop ; return(TRUE) ; end sortie ; a : INTEGER := 0 ; begin put("Appel d'une procedure sans parametre"); new_line ; sans_param ; put("Appel d'une procedure avec parametre in : "); put(a) ; new_line ; avec_param_in(a) ; put("sortie de avec_param_in : "); put(a) ; new_line ; put("Appel d'une procedure avec parametre out : "); put(a) ; new_line ; avec_param_out(a) ; put("sortie de avec_param_out : "); put(a) ; new_line ; put("Appel d'une procedure avec parametre out : "); put(a) ; new_line ; avec_param_in_out(a) ; put("sortie de avec_param_in_out : "); put(a) ; new_line ; if (sortie) then put("C'est fini") ; end if ; new_line ; end proc ;