---

Une solution de l'exercice 4 du TP4 d'informatique en DEUG MIAS+MASS S1

---

PROGRAM TP4EXC4 ;
(* USES crt ; *)

VAR S : string[75] ;
    choix, souligne, marge : integer ;
    cadre : char ;
    i, j : integer ;

BEGIN
(* clrscr ; *)
repeat (*1*)
  (* saisir la chaine *)
  S:='' ;
  writeln('CHAINE d''au plus 75 caracteres (vide pour terminer) ? ') ;
  readln(S) ;
  if S<>'' then
    repeat (*2*)
      (* choisir l'affichage *)
      writeln ;
      writeln('MENU : ') ;
      writeln('1 pour afficher la chaine (et la souligner n fois)') ;
      writeln('2 pour afficher la chaine dans un cadre') ;
      writeln('3 pour afficher la chaine verticalement') ;
      writeln('0 pour changer de chaine') ;
      repeat
        readln(choix)
          until (choix>=0) and (choix<=3) ;
      writeln ;
      (* choisir les options et afficher *)
      case choix of    (* 3 *)
        1 : begin
            write('combien de soulignement (0...20) ? ') ;
            repeat
              readln(souligne)
              until (souligne<=20) and (souligne>=0) ;
            writeln ;
            writeln(S) ;
            for i:=1 to souligne do
              begin
              for j:=1 to length(s) do write('-') ;
              writeln ;
              end ;
            end ;
        2 : begin
            write('quel sera le caractere d''encadrement ? ') ;
            readln(cadre) ;
            for i:=1 to length(S)+4 do write(cadre) ; writeln ;
            writeln(cadre,' ',S,' ',cadre) ;
            for i:=1 to length(S)+4 do write(cadre) ; writeln ;
            end ;
        3 : begin
            for i:=1 to length(S) do writeln(copy(S,i,1)) ;
            writeln ;
            end ;
        end ; (* 3 *)
    until choix=0 ; (*2*)
  until S='' ; (*1*)
END.

---