Program S3;
Type
str_ch = string[35];
tab = array[1..10] Of str_ch;
Var
n : integer;
T : tab;
ch : str_ch;
//*************************************
Function verif(chaine:str_ch) : boolean;
Var
i : integer;
b : boolean;
Begin
i := 0;
Repeat
i := i+1;
b := chaine[i] In ['A'..'Z'];
Until (Not(b)) Or (i=length(chaine));
verif := b;
End;
//*************************************
Procedure saisie(Var t:tab;Var n:integer;Var ch:str_ch);
Var
i : integer;
Begin
Repeat
write('ch=');
readln(ch);
Until (verif(ch)) And (length(ch)>0);
Repeat
write('n=');
readln(n);
Until n In [5..10];
For i:=1 To n Do
Repeat
write('T[',i,']=');
readln(T[i]);
Until (verif(T[i])) And (length(T[i])=length(ch));
End;
//*************************************
Function Ressemblance(ch1,ch2:str_ch) : integer;
Var
i,j : integer;
Begin
j := 0;
For i:=1 To length(ch) Do
If ch1[i]=ch2[i] Then
j := j+1;
Ressemblance := j;
End;
//*************************************
Procedure affiche(T:tab;n:integer;ch:str_ch);
Var
i : integer;
Begin
For i:=1 To n Do
writeln(ch,' et ',T[i],' de degre de ressemblance : ',(Ressemblance(T[i],ch)/length(ch))*100
: 2 : 2 );
End;
//*************************************
Begin
saisie(T,n,ch);
affiche(T,n,ch);
End.
Inscription à :
Publier les commentaires (Atom)
