Baccalauréat 2015 Sujet 9 Corrigé

Program S9; Var msg : string; //********************************** Procedure saisi_msg(Var msg:String); Var i,l : integer; x : boolean; Begin Repeat x := false; write('Message a crypter : '); readln(msg); l := length(msg); If l=0 Then x := false Else Begin i := 1; While (upcase(msg[i]) In ['A'..'Z' , ' ']) And (i<=length(msg)) Do i := i+1; If i>l Then x := true; End; Until x; End; //********************************** Function Crypter(msg:String) : string; Var i,s,n : integer; ch : string; Begin ch := ''; For i :=1 To length(msg) Do Begin n := ord(msg[i]); Repeat s := 0; Repeat s := s+n Mod 10; n := n Div 10; Until n=0; n := s; Until n In [1..9]; If msg[i]=' ' Then ch := ch+' ' Else ch := ch+chr(n+random(18)+64); End; Crypter := ch; End; //********************************** Begin Saisi_msg(msg); Writeln(Crypter(msg)); End.