Új hozzászólás Aktív témák

• #2332 Fire/SOUL/CD félisten Csucsy1991 #2331

  Új Válasz 2009-02-28 20:07:00 #2332

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Csucsy1991 #2331 üzenetére

  Hali!

  Úgy látom ezek szerint az alapokkal is gondod van, de nem baj, ezért van ez a fórum, hogy lehessen kérdezni...
  Egy kis elmélet az elején(tényleg nagyon dióhéjban):
  A DINAMIKUS VÁLTOZÓK=MUTATÓK vagy angolul POINTEREK
  Turbo Pascalban a dinamikus változók az ugynevezett HEAP-ben tárolódnak, magyarul ha jól emlékszem HALOM vagy HALOMTERÜLET néven említik a szakkönyvek.

  MAXAVAIL függvény: a legnagyobb összefüggő blokk méretét adja vissza a HEAP-ben.
  NEW függvény: létrehoz a HEAP-ben egy dinamikus változót és a címét elhelyezi benne
  DISPOSE függvény: felszabadítja a dinamikus változót a HEAP-ben

  Mindezek után a program, ami egy 4 integer tárolására alkalmas tömböt tölt fel ill. ír ki, dinamikus változó(POINTER) segítségével.(persze a TOMB_MERETE konstans módosításával más méretű tömb is kezelhető)

  program pointer1;
  
  uses
  Crt;
  
  const
  TOMB_MERETE=4;
  
  Type
  tomb = array[1..TOMB_MERETE] of Integer;
  tombptr = ^tomb;
  
  var
  i:integer;
  MyTombPtr:tombptr;
  
  begin
  ClrScr;
  Writeln('Dinamikus valtozo(POINTER) hasznalata. 1 pelda');Writeln;
  Writeln('A tomb elemeinek szama: ',TOMB_MERETE,' db integer');
  Writeln('A tomb merete byte-ban: ',sizeof(tomb));
  Writeln('A tomb meretenek megfelelo hely lefoglalas a HEAP-ben');
  {ellenőrizzük, hogy van-e elég szabad hely a HEAP-ben a tömb számára}
  
  if maxavail<sizeof(tomb) then
  begin
  Writeln('Nincs elegendo hely a tomb szamara a HEAP-ben, a program ENTER-re kilep...');
  Readln;
  Halt;
  end;
  
  {helyet foglalunk a tömb számára}
  New(MyTombPtr);
  
  Writeln;
  Writeln('A tomb elemeinek beolvasasa');
  for i:=1 to TOMB_MERETE do
  begin
  Write('Kerem a tomb ',i,'. elemet: ');
  Readln(MyTombPtr^[i]);
  end;
  
  Writeln;
  Writeln('A tomb elemeinek kirasa');
  for i:=1 to TOMB_MERETE do
  begin
  Writeln('A tomb ',i,'. eleme: ',MyTombPtr^[i]);
  end;
  
  {felszabadítjuk a korábban lefoglalt helyet}
  Dispose(MyTombPtr);
  
  Writeln;
  Write('A program ENTER-re kilep...');
  Readln;
  end.

  Remélem, ez a példa segít megérteni a MUTATÓK vagy POINTER fontosságát, illetve azok használatának egyszerűségét...

  Fire.

• #2330 Fire/SOUL/CD félisten Csucsy1991 #2329

  Új Válasz 2009-02-28 15:52:06 #2330

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Csucsy1991 #2329 üzenetére

  Hali!

  Igen igazad van, a "hagyományos" STACK kezelés(Assembly, Pascal C, stb) az LIFO elven működik.(amit utoljára tettél be, ahhoz férsz hozzá elöször).
  Assemblyben így
  push eax ebx ecx edx
  pop edx ecx ebx eax

  A FIFO speciális veremkezeléseknél használják, csak a nyagy rohanásban nem fogalmaztam egyértelműen.

  Küldtem privet(a priv az a privát üzenetet jelenti)

  Fire.

• #2328 Fire/SOUL/CD félisten Csucsy1991 #2327

  Új Válasz 2009-02-28 08:49:46 #2328

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Csucsy1991 #2327 üzenetére

  Hali!

  Sejtettem, hogy erre gondolsz, csak gondoltam megkérdem a biztonság kedvéért...
  (Amúgy a FIFO(First In First Out) tipikusan a VEREM(STACK) kezelésnél alkalmaznak, többekközt)

  Azonban, hibás a gondolatmeneted...
  Most rohannom kell, de délután leszek, akkor kifejtem hogy miért is...
  Egyébként a pascal programrészletek, még egész rendben is vannak....

  Fire.

• #2326 Fire/SOUL/CD félisten Csucsy1991 #2325

  Új Válasz 2009-02-27 20:39:03 #2326

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Csucsy1991 #2325 üzenetére

  Hali!

  Értem, és nem értem...
  Nem írtad, hogy matematika szakon vagy, vagy csak egy egyszerű algoritmus kellene...
  Küldj privet, mert ebből szerintem, senki nem fogja megérteni...(aki esetleg megérti tökéletesen, attól elnézést)

  Fire.

  UI: kellene, hogy mégis milyen PASCAL-ban dolgozol

Új hozzászólás Aktív témák