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

• #2536 VladimirR nagyúr vamzi #2533

  Új Válasz 2007-03-27 17:13:28 #2536

  Ú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

  

  VladimirR

  nagyúr

  válasz vamzi #2533 üzenetére

  a unit az gyakorlatilag egy fuggvenykonyvtar (vagy minek hijjak), abban mindenfele fuggvenyek, eljarasok vannak
  programozasi tanulmanyaid mar egeszen biztos talalkoztal unit-okkal, ha massal nem, akkor a crt, vagy meginkabb a system unit-tal
  ahhoz, hogy a bennuk levo eljarasokat, fuggvenyeket hasznalni tudd, ezeket a unit-okat ''be kell hivni'' a kodba, amire a uses kulcsszo (vagymi) hasznal (system unit eseteben ez nem szukseges, az alapbol bennefoglaltatik)
  az olyan fuggvenyek, eljarasok, mint peldaul az inc, dec, val, round, write, writeln, read, readln mind a system unit-ban vannak, de pl a crt unit legismertebb fuggvenyevel, a clrscr-rel is egeszen biztos talalkoztal mar
  ahhoz, hogy egy clrscr-t hasznalni tudj, a program elejen be kell irnod, hogy uses crt;
  ugyanigy, hogy a fenti mathcvt.tpu unit-ot hasznalni tudd, meg kell azt hivnod a kovetkezo modon: uses mathcvt
  ezutan elerhetove valnak a kovetkezo fuggvenyek:
  Function Power(X,Y:WORD):LongInt;         - hatvanyozas
  Function Bin2Dec(Bin:String):LongInt;         2-esbol 10-esbe
  Function Bin2Hex(Bin:String):String;         - 2-esbol 16-osba
  Function Dec2Bin(Dec:LongInt):String;         - 10-esbol 2-esbe
  Function Dec2Hex(Dec:LongInt):String;         - 10-esbol 16-osba
  Function Hex2Bin(Hex:String):String;         - 16-osbol 2-esbe
  Function Hex2Dec(Hex:String):LongInt;         - 16-osbol 10-esbe
  Function Oct2Dec(Oct:String):LongInt;         - 8-asbol 10-esbe
  Function Dec2Oct(Dec:LongInt):String;         - 10-esbol 8-asba
  
  az elso fuggveny-nek ket parametert adsz meg, x a hatvanyalap, y a hatvany foka - a visszateresi ertek x^y lesz
  a tobb fuggveny egy bemeno parametert kap (ami 10-esbol konvertalasnal longint, egyebkent string), s a megfelelo szamrendszerben levo ertekkel ter vissza (tizesbe konvertalasnal longint, egyebkent string)
  
  tehat:
  
  uses mathcvt;
  
  begin
      wrinteln( dec2hex( 255 ) );
      wrinteln( dec2hex( 'FF' ) );
  end.
  
  ez ket sort fog kiirni, az elsoben FF lesz (ez a 255 16-os szamrendszerben), a masodikban pedig 255 (ez az FF 10-es szamrendszerben)
  
  [Szerkesztve]

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