Baccalauréat 2018 Sujet 1 Corrigé

Program collection ; Type tab = Array[1..20] Of String ; Var p : tab ; c,i: Integer; pers: String; //*********************************************** Function valide(ch:String): Boolean; Var i: Integer; b: Boolean; Begin i:=1; Repeat i:=i+1; if (ch[i] In['a'..'z','A'..'Z']) then b:=true else b:=false; until not b or (i=length(ch)); valide := b and (ch[1] in ['A'..'Z']); End ; //*********************************************** Function chercher(x:String;p:tab;n:Integer): Boolean; Var i: Integer; b:boolean; Begin i:=0; Repeat i:=i+1; if x=p[i] then b:=true else b:=false; until b or (i=N); chercher := B; End ; //*********************************************** Begin Repeat Write('donner le nom du personnage trouvé dans le paquet n°l : ' ); Readln(p[1]); Until valide(p[1]) ; //*********************************************** { C := 1 ; for i :=2 To 50 Do begin repeat write('donner Le nom du personnage trouvé dans Le paquet n° ',i,' :') ; ReadLn(pers) ; UntiL vaLide(pers) ; If chercher(pers,p,c)=False Then Begin c := c+1 ; P[c] :=pers ; End ; End ; If c=20 Then writeln('vous avez gagné') ELse writeln('vous avez perdu'); } //*********************************************** C := 1 ; i := 1; Repeat i := i+1; repeat writeln('donner le nom du personnage trouvé dans le paquet n° ',i,' :') ; readln(pers) ; Until valide(pers) ; If chercher(pers ,p,c)=False Then Begin c := c+1 ; P[c] := pers ; end ; Until (c=20)Or (i=50); If c=20 Then Writeln('vous avez gagné') Else writeln('vous avez perdu car il vous manque ',50-c) ; End.