Pascal/Turbo Pascal - sentencia in

hola tengo una duda sobre una sentencia en pascal ...
tengo un lineas de codigo en pascal algo asi.

repeat
j:=rnd(1, m)
.............
............
until not( j in C)

C es un vector ....y no se que significa el "in" .si alguin sabe le agradeceria q me ayuden.

Hola, la sentencia "in" en mira si "j" está contenido en "C". El bucle se repetirá hasta que esto ocurra.

gracias julio ; ¿ y no sabes como puedo hacer lo mismo pero en java ?

Corrigo la respuesta de Julio. El operador "in" funciona solo para conjuntos, no para arrays. El operando a la derecha de "in" debe ser un tipo conjunto que contiene elementos del mismo tipo que el tipo del operando a la izquierda del operador "in".

claro que el palabra reservada 'in' tambien es para los tipos de datos String ya que es un arreglo indexado y no es solo para los conjuntos. en java creo q acepta el in en String. Saludos

var
S: string;
begin
if 'C' in S then
Writeln('C está en ',S);
end.

Error 41: el tipo del operando no coincide con el operador.
Me gustaría saber de dónde has sacado que "in" funciona con strings.

hola Diego , te equivocas porque el String se toma como un arreglo indexado. Lo estas usando mal. te paso el codigo.

Function CantVocales(S : String ) : integer;
var auxi, : integer;
i : integer;
begin
auxi := 0;
for i:= 1 to length(S) do
if S[ i ] in [ 'a', 'e', 'i', 'o', 'u' ] then
auxi := auxi + 1;
CantVocales := auxi;
end;

Espero que hayas entendido. Saludos

Lo lamento pero no estoy equivocado. En el código que has posteado:

[ 'a', 'e', 'i', 'o', 'u' ]

es un conjunto. Un conjunto de caracteres, no un string. Y como es un conjunto de caracteres el operando a la izquierda de "in" debe ser un caracter y S[i] es un caracter.

tenes razon eso es un conjunto el ejemplo que te di , no es el mejor ejemplo , pero en in no esta solamente en los conjuntos podes usarlo sino en un caracter solo. intenta hacerlo con 1 solo caracter y vas a ver que sale sino crees. Saludos

begin

if 'a' in 'c' then
writeln('a está en c');
end.

Error 41... de nuevo.