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

• #1164 Tyrael senior tag Tottu #1163

  Új Válasz 2006-05-15 13:22:45 #1164

  Ú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

  

  Tyrael

  senior tag

  válasz Tottu #1163 üzenetére

  http://www.prog.hu/tudastar/47584-11/Matematikai+fuggveny+szam+-e.html
  itt pont errol beszeltek tegnap.
  ez lett a helyes megoldas:
  
  ''
  Szia.
  
  A System unit Val függvénye lesz a neked megfelelő.
  
  Val(szoveg :String; var szam; var kod :Integer);
  
  Ez a szoveg Stringben megadott szöveget számmá konvertálja a szam változóba. A visszatérési érték a kod. A kod=0 ha minden hibátlan, ellenkező esetben pedig az a hely, ahol szoveg adott karaktere már számmá nem alakítható.
  
  Itt egy példa:
  
  Var s1 :String;
  i, j :Integer;
  r :Real;
  
  Begin
  s1:='12'; Val(s1,i,j); {i=12, j=0 mert hibátlan}
  s1:='1.2E3'; Val(s1,r,j); {r=1.2, j=0}
  s1:='123a76'; Val(s1,i,j); {i=0, j=4 mert az 'a' nem konvertálható számmá}
  End.
  ''
  
  Tyrael
  
  [Szerkesztve]

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