Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Problem sa pointerima..

[es] :: Pascal / Delphi / Kylix :: Problem sa pointerima..

[ Pregleda: 2347 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Problem sa pointerima..18.12.2005. u 12:53 - pre 222 meseci
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
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Problem sa pointerima..18.12.2005. u 14:05 - pre 222 meseci
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.

 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: Problem sa pointerima..18.12.2005. u 18:43 - pre 222 meseci
Je, to je to..

thx
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Problem sa pointerima..

[ Pregleda: 2347 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.