Baccalauréat 2016 Sujet 10 Corrigé

Program S10; Type Tab = Array[1..20] Of String; Var T : tab; N : integer; //*********************************** Procedure Saisie_N(Var N:integer); Begin Repeat Write('Entrer la taille du tableau : '); Readln(n); Until n In [1..20]; End; //*********************************** Procedure Remplissage(Var T:tab; N:integer); Var i,j : integer; Begin For i:=1 To n Do Repeat Write('Donner une chaine de caractère : '); Readln(T[i]); j := 0; Repeat j := j+1; Until (UpCase(T[i][j]) In ['A'..'Z']) Or (j=Length(T[i])); Until (UpCase(T[i][j]) In ['A'..'Z']) And (Length(T[i]) In [3..15]); End; //*********************************** Function mono_vocalisme_sans(ch:String) : boolean; Var i,nb_occurence : integer; Begin nb_occurence := 0; For i:=1 To length(ch) Do If (UpCase(ch[i]) In ['A','E','I','O','U','Y']) Then nb_occurence := nb_occurence+1; mono_vocalisme_sans := nb_occurence=1; End; //*********************************** Procedure Afficher(N:integer; T:tab); Var i : integer; Begin Writeln('Les mots mono-vocalismes sans occurrences sont : '); For i:=1 To n Do If mono_vocalisme_sans(T[i]) Then Writeln(T[i]); End; //*********************************** Begin Saisie_N(N); Remplissage(T,N); Afficher(N,T); End.