[ Passwd @ 18.12.2005. 12:53 ] @
Ne znam kako da ovo dobijem u pascalu...evo kod od c++ :

Code:

#include <cstdlib>
#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{int niz[10],*point;
 int x;
 
for(x=1;x<=10;x++)
{
niz[x]=x;
point=&niz[x];
cout<<x<<". clan niza: [memorijska adresa]: "<<point<<" [vrijednost]:"<<*point<<endl;
}


    system("PAUSE");
    return EXIT_SUCCESS;
}


p0z
[ Srki_82 @ 18.12.2005. 14:05 ] @
To bi bilo ovako nesto... posto TP radi sa 16bitnim adresama onda imas segmet i ofset deo adrese. Ne secam se tacno, ali mislim da 1 segment ima 64k tako da ako kazes da je adresa u segmentu 0 na ofsetu 3 onda je to na nadresi 3, a ako je u segmentu 1 na ofsetu 3 onda je to na adresi 64k + 3... itd. Jos jednom napominjem da nisam siguran u ovo.

Code:
var
  Niz: array[0..9] of Integer;
  I: Integer;
begin
  for I := 0 to 9 do
  begin
    Niz[I] := I + 1;
    Write(I + 1, '. clan niza ');
    Write('[memorijska adresa]: ', Seg(Niz[I]), ':', Ofs(Niz[I]), ', ');
    WriteLn('[vrednost]: ', Niz[I]);
  end;
  ReadLn;
end.
[ Passwd @ 18.12.2005. 18:43 ] @
Je, to je to..

thx