Une solution de l'exercice 3 du TP6 d'informatique en DEUG MIAS+MASS S1
PROGRAM tp6exc3 ;
CONST nmax = 50 ;
VAR i,k,autres : integer ;
T : array[1..nmax] of char ;
c : char ;
BEGIN
(* remplissage du tableau *)
randomize ;
for i:=1 to nmax do
T[i]:=chr(random(26)+97) ;
(* on se limite à l'alphabet minuscule *)
(* saisie *)
repeat
write('un caractère (a-z) ? ') ;
readln(c) ;
until (c>='a') and (c<='z') ;
repeat
write('un indice du tableau où chercher ce caractère
(1 à ',nmax,') ? ') ;
readln(k) ;
until (k>=1) and (k<=nmax) ;
(* recherche dans le tableau *)
if T[k]=c
then writeln('Ce caractère ',c,' est bien dans
la case ',k,' indiquée')
else begin
autres:=0 ;
for i:=1 to nmax do
if T[i]=c then autres:=autres+1 ;
if autres>0
then writeln('Ce caractère n''est pas
dans cette case ',k,', mais il apparait dans ',autres,' autres cases du
tableau')
else writeln('Ce caractère ne figure pas dans
le tableau') ;
end ;
END.