Program S3;
Type
Tab = Array[1..9] Of String;
Var
T,Tid : tab;
N : integer;
//***********************************
Procedure Saisie_N(Var N:integer);
Begin
Repeat
Write('Donner le nombre d''utilisateurs : ');
Readln(n);
Until n In [1..9];
End;
//***********************************
Procedure Remplissage(Var T:tab; N:integer);
Var
i,j : integer;
Begin
For i:=1 To n Do
Repeat
Write('Donner le nom de l''utilisateur n° ',i,' : ');
Readln(T[i]);
j := 0;
Repeat
j := j+1;
Until Not(T[i][j] In ['A'..'Z']) Or (j=Length(T[i]));
Until (T[i][j] In ['A'..'Z']) And (Length(T[i]) <=20);
End;
//***********************************
Procedure FormerTI(Var Tid:tab; T:tab; N:integer);
Var
i,j,nb_occurence : integer;
ch_indice : String;
C : char;
Begin
For i:=1 To n Do
Begin
nb_occurence := 0;
For j:=1 To length(T[i]) Do
If (T[i][j] In ['A','E','I','O','U','Y']) Then
nb_occurence := nb_occurence+1;
str(i,ch_indice);
If (ORD(T[i][1]) + nb_occurence) > 90 Then
C := 'a'
Else
C := CHR(ORD(T[i][1]) + nb_occurence);
Tid[i] := copy(T[i],1,2) + ch_indice + C;
End;
End;
//***********************************
Procedure Afficher(T:tab; N:integer);
Var
i : integer;
Begin
Writeln('La liste des identificateurs générés est : ');
For i:=1 To n Do
Write(' | ',T[i]:5);
End;
//***********************************
Begin
Saisie_N(N);
Remplissage(T,N);
FormerTI(Tid, T, N);
Afficher(Tid, N);
End.
Inscription à :
Publier les commentaires (Atom)
