✅ The verified answer to this question is available below. Our community-reviewed solutions help you understand the material better.
Le barème appliqué ici n'est pas représentatif du contrôle. Voici plusieurs extraits de programmes typables. On suppose que Txt renomme l'acteur GAda.Text_IO.Répondez aux questions posées. Répondez -1 lorsqu'il est impossible de répondre à la question par un nombre.(Note : Moodle ne permet pas l'indentation).
procedure Glabu (X : Boolean) isbeginif X = True then Txt.Put(Aff => "Fooz") ;elseTxt.Put(Aff => "Barz") ;end if ;end Glabu ;-- Cette ligne est un commentaireY : Boolean ;beginY := False ;Glabu(X => True) ;Glabu(X => Y = False) ;
Le programme affiche-t-il "Fooz" ?
function Bigger (N1, N2 : Integer) return Boolean is X : Integer := N1 ; Y : Integer := N2 ;beginreturn (X > Y) ;end Bigger ;X : Integer := 10 ;Y : Integer := 20 ;beginGlabu( X => Bigger(N1 => X, N2 => Y) ) ;Glabu( X => Bigger(N1 => Y, N2 => X) ) ;Glabu( X => Bigger(N2 => Y, N1 => X) ) ;Glabu( X => Bigger(N2 => X, N1 => Y) ) ;Glabu( X => not False) ;
Ce programme affiche 5 messages. Indiquez lesquels :Message 1
function Bigger (N2, N1 : Integer) return Boolean isX : Integer := N2 ;Y : Integer := N1 ;
(Attention, chaque ligne porte une modification concernant N1 et N2).Quels sont maintenant les messages affichés ?Message 1
Get Unlimited Answers To Exam Questions - Install Crowdly Extension Now!