Program S5;
Type
Tab = array[0..9] Of string;
Var
T : tab;
n : string;
//***************************
Function verif(ch:String) : boolean;
Var
i : integer;
b : boolean;
Begin
i := 0;
Repeat
i := i+1;
b := ch[i] In ['0'..'9'];
Until Not b Or (i=length(ch));
verif := b And (length(ch)In [4..8]);
End;
//***************************
Procedure saisie (Var n:String);
Begin
Repeat
writeln('donner un entier');
readln(n);
Until verif(n);
End;
//***************************
Procedure remplir(Var T:Tab);
Var
x : string;
i : integer;
Begin
T[0] := '-----';
x := T[0];
For i:=1 To 9 Do
Begin
If i<=5 Then
x[i] := '.'
Else
x[i-5] := '-';
T[i] := x;
End;
End;
//***************************
Procedure Affiche ( T:tab ; ch:String);
Var
i,a,e : integer;
Begin
For i:=1 To length(ch) Do
Begin
val(ch[i],a,e);
write(T[a],'?');
End;
End;
//***************************
Begin
saisie(n);
remplir(T);
affiche(T,n);
End.
Inscription à :
Publier les commentaires (Atom)
