Runtime Error 201 pri vyhledavani v setridenem poli – Pascal – Fórum – Programujte.com

Zdravim, dostal jsem ukol, napsat program pro vyhledavani v setridenem poli.
Vše v pohodě, dělám to přes půlení intervalů, ale náš školní systém pro vyhodnocování úkolů mi v jednom testu z 8 který dělá hází RE 201 a absolutne me nenapada kde bych moh pracovat mimo index, samozrejme ty data se kterejma ten test pracuje neznam,
kod je zde

var n, h, d, stred, k, pos: 1..1000000;

    data: array[0..1000000] of integer;

    inp, inp2, outp: text;

    a: integer;



begin

    assign (inp, 'data.in');

    assign (inp2, 'dotazy.in');

    assign (outp, 'vysledky.out');



    reset(inp);

    reset(inp2);

    rewrite(outp);



    readln(inp, n);

    for pos := 1 to n do

        read(inp, data[pos]);



    readln(inp2, k);

    for pos := 1 to k do

    begin

         read(inp2, a);

         d := 1;

         h := n;

         while h - d > 1 do

         begin

              stred := (h + d) div 2;

              if (data[stred] > a) then

                 h := stred - 1

              else if (data[stred] < a) then

                 d := stred + 1

              else

              begin

                 d := stred;

                 h := stred;

                 while (d>1) AND (data[d] = a) do dec(d);

              end;

         end;

         if (data[d] = a) then write(outp, d, ' ')

         else if (data[h] = a) then write(outp, h, ' ')

         else write(outp, '0 ');

    end;



    close (inp);

    close (inp2);

    close (outp);

end.

Nevím, jaké byly požadavky, ale těch chyb je tam víc.
RE 2 když nebudou ty soubory existovat
RE 106 když v nich budou nesmyslné hodnoty
RE 201 když hodnoty budou mimo rozsah (jako N 0, nebo data 33000)

já vím, už jsem na N = 0 přišel, ale to že existují a nepřekročí rozsah integeru je v zadání :) díky :)

Problém je nejspíš s tím stred:=(h+d) div 2. Při dostatečně velkých hodnotách h a d může vyjít mezivýsledek (ještě před tím div 2) větší než 1000000. Spraví se to zvětšením rozsahu d a h na 2000000.

je to vyřešený, ale stred nemuze bejt vetsi nez 1000000 protoze h i d jsou max 1000000 tim padem 1000000*2/2 je zas milion ;)

Výsledek ne, ale neviditelné mezivýsledky jo - bacha na to. Počítač to vidí takhle:

- Mám výraz s operandy h a d (oba rozsah 0..milion), výsledek jde do Stredu (taky 0..milion) a pak je tam dvojka, která je menší než milion. Takže si pro mezivýsledky vyhradím pomocnou proměnnou o rozsahu taky 0..milion.
- Spočítám h+d. Když vyjde víc než milion, nahlásím chybu.
- Výsledek vydělím dvěma.
- Výsledek uložím do Stredu.

Na tohle dost často padá třeba Pythagorova věta - vím, že výsledek bude relativně malé číslo, tak deklaruju operandy jako integery, jenže pak mi mocniny přetečou ještě před odmocněním a už se to veze.

Ne, mezivýsledek má plný rozsah hostitelského typu (tady nejméně +-2Gi) a konečný výsledek už bude ve vymezeném intervalu.