number in array of integer

Lav en for løkke som løber arrayet igennem og sammenligner.

det ville jeg ikke synes at være særlig praktisk i dette tilfælde, for talet jeg skal finde er variabelt.

jeg vil gerne forøge et tal, indtil tallet ikke forekommer i array'et

repeat
  Inc(mittal, 1);
until
  mittal er ikke i array

Medmindre tallene i arrayet er sorteret eller på andre måder systematisk,
så er man nødt til at lave sekventiel søgning.

En ide:

lad os kalde dit array for A og dit tal for N

du laver et array X af boolean 1..100 og sætter alle værdier til true

så løber du A igennem med en for løkke og hvis A[i] ligger i N+1 .. N+100
så sætter du X[A[i]-N] til false

når du er færdig løber du X igennem og det første X[j] der er true så
er N+j en løsning

Hvis du ikke finder en løsning er du nødt til at prøve med 100 mere

Alternativt kan du sortere dit array (eller evt. en kopi), så er det
også nemt at finde.

Ikke testet, men måske noget i retning af dette:

function IntArrayIndexOf(IntArray: Array of Integer; Int: Integer): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := Low(IntArray) to High(IntArray) do
    if IntArray[I] = Int then
    begin
      Result := I;
      Break;
    end;
end;

Bruges på denne måde:
var
  IntegerArray: Array of Integer;
begin
  !! En masse kode, hvor der bliver hældt tal på arrayet...

  if IntArrayIndexOf(IntegerArray, 97) > -1 then
    ShowMessage('97 er i arrayet')
  else
    ShowMessage('97 er ikke i arrayet');

athlon-pascal >> fin løsning, smid et svar

Yahooo!
Så bliver det også jul i år ;o)

God jul!

mange tak og i lige måde :)