Program S6;
Type
tab = array[1..200] Of string;
Var
V : tab ;
n : integer;
//***************************
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)=8);
End;
//***************************
Function Exist(T:Tab;n:integer;ch:String) : boolean;
Var
i : integer;
b : boolean;
Begin
i := 0;
Repeat
i := i+1;
b := T[i] =ch;
Until b Or (i=n);
Exist := b ;
End;
//***************************
Procedure saisie (Var T:tab ; Var n:integer);
Var
i : integer;
Begin
Repeat
writeln('Saisir nombre des élèves : ');
readln(n);
Until n >0;
Repeat
writeln('CIN1');
readln(T[1]);
Until verif(T[1]);
For i:=2 To n Do
Repeat
writeln('CIN ',i);
readln(T[i]);
Until verif(T[i]) And Not Exist(T,i-1,T[i]);
End;
//***************************
Procedure ranger(Var t:tab; n:integer);
Var
i,j : integer;
p : string;
Begin
For i:=2 To n Do
Begin
p := T [i];
j := i;
While (T[ j - 1]>p) And (j>1) Do
Begin
T [j] := T [j - 1];
j := j - 1;
End;
T [ j ] := p;
End;
End;
//***************************
Procedure Affiche ( T:tab ; n:integer);
Var
i : integer;
Begin
For i:=1 To n Do
writeln(T[i]);
End;
//***************************
Begin
saisie(V,N);
Ranger(V,N);
Affiche(V,N);
End.
Inscription à :
Publier les commentaires (Atom)
