Program S2;
Type
str_ch = string[10];
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('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])=n);
Repeat
write('ch=');
readln(ch);
Until (verif(ch)) And (length(ch)=n);
End;
//***********************************
Function exist(T:tab;n:integer;ch:str_ch) : boolean;
Var
i,j : integer;
b : boolean;
chaine_r : str_ch;
Begin
j := 0;
Repeat
chaine_r := '';
j := j+1;
For i:=1 To n Do
chaine_r := chaine_r+T[i,j];
b := chaine_r=ch;
Until (b) Or (j=n);
exist := b;
End;
//***********************************
Procedure affiche(T:tab;n:integer;ch:str_ch);
Begin
If exist(T,n,ch) Then
write('Chaine existe dans T')
Else
write('Chaine inexistante dans T')
End;
//***********************************
Begin
saisie(T,n,ch);
affiche(T,n,ch);
End.
Inscription à :
Publier les commentaires (Atom)
