Program S8;
Var
l,c : integer;
ch,cr : char;
//************************************
Procedure saisielc(Var l,c :integer);
Begin
Repeat
write('donner le nombre de lignes :');
readln(l);
write('donner le nombre de colonnes :');
readln(c);
Until (l In [2..10]) And (c In [2..10]) And (l<>c) ;
End;
//************************************
Procedure car(Var cr :char);
Begin
Repeat
write('donner le caractére de dessin :');
readln(cr);
Until (cr In ['x','+','$','*'] ) ;
End;
//************************************
Procedure choix(Var ch :char);
Begin
Repeat
write('donner le choix de dessin :');
readln(ch);
Until (ch In ['P','V'] ) ;
End;
//************************************
Procedure dessin (l,c:integer; cr,ch:char);
Var
i : integer;
x,s,e : string;
Begin
s := '';
e := '';
If ch='P' Then
Begin
For i:=1 To c Do
s := s+cr;
For i:=1 To l Do
writeln(s);
End
Else
Begin
For i:=1 To c Do
s := s+cr;
writeln(s);
For i:=1 To l-2 Do
writeln(cr,cr:c-1);
writeln(s);
End;
End;
//************************************
Begin
saisielc(l,c);
car(cr);
choix(ch);
dessin(l,c,cr,ch);
End.
Inscription à :
Publier les commentaires (Atom)
