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.