------------------------------------------------------------------ -- 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 : teste les choix et choix multiples -- Resultats : -- Relations : ------------------------------------------------------------------ with Text_IO ; use Text_IO ; -- pour les entrees/sorties procedure choix is begin put("Test SI ALORS SINON ") ; new_line ; if ( 5 = 4 ) THEN put("cas 1") ; new_line ; ELSIF (5 = 6 ) THEN put("-> cas 2") ; new_line ; ELSE put("-> autres cas") ; new_line ; END IF ; put("Test CASE IS "); new_line ; case 5 is when 0 => put ("-> cas 1") ; when 1..5 => put ("-> cas 2") ; when 6|7 => put ("-> cas 3") ; when others => put("-> autres cas") ; end case ; end choix ;