Buscar una cadena en un diccionario

Definir variables

a: cadena de matriz [0..1000000]

n, m, t, I, j: longint

s: Cadena ;

p: tipo booleano; procedimiento kp(i, j: entero largo); definir variable

l, r: entero largo

mid: cadena de caracteres; inicio

l:= I;

r:= j;

medio:= a[(I+j)div 2]; >

Y a[I]<mid do company(一);y a[j]>mediados de diciembre;si<=entonces j

Empezar

a[ 0]:= a[I];

a[I]:= a[j];

a[j]:= a[0] ;

inc(1);

finalización de la décima sesión; si i<r entonces kp(l,j); si i<r entonces kp (i, r); : longint); define variable

k: longint; start

si i>j luego sale;

k:=(I+j)div 2; [k]=s, entonces

Inicio

p:=True; finalizar; si s & lta[k] entonces jb(i, k-1) else jb( k+1, j); fin; inicio

readln(n); para i:=1 a n hacer readln(a[ I]);

kp(1,n). );

readln(m); para j:=1 a m hacer

Inicio

readln(s);

p :=false;

jb(1, n); si p entonces writeln('Sí ') en caso contrario writeln('No ') ;

Por favor acepte la respuesta completa, ¡gracias!