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

• #1913 boros.denes csendes tag

  Új Válasz 2012-12-05 18:49:54 #1913

  Ú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

  

  boros.denes

  csendes tag

  Sziasztok!
  Az alábbi programrészletben kéne segítség, amely nem indul el, hibaüzenetet ír:

  procedure p_BINtoDEC(bin:string;var dec:integer);
  var i,x:integer;
  begin
  dec:=0;
  for i:=1 to length(bin) do
  begin
  x:=length(bin)-i;
  »»if bin[i]='1' then dec:=dec+exp(x*ln(2))*bin(i);
  end;
  end;

  A jelölt sorra ír egy hibát, az alábbi szöveggel:

  Operator not applicable to this operand type.
  Valaki tudna valami megoldást? Köszönöm előre is

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