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

• #1270 cucka addikt Tangerine #1268

  Új Válasz 2006-05-22 14:22:39 #1270

  Ú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

  

  cucka

  addikt

  válasz Tangerine #1268 üzenetére

  szorzás függvényed finoman szólva érdekes
  működni nyilván működik, de ez inkább csak számjeggyel való szorzásra alkalmas.
  ezekkel a függvényekkel egyébként elég egyszerű megírni a számrendszer átalakítást.
  
  a,e,h:string; {a:6os számrendszerbeli szám, e:eredmény, h:6 aktuális hatványa }
  i:integer;
  
  h:='1';e:='0';
  
  for i:=length(a) downto 1 do
  begin
  e:=osszead(e, szoroz(h, a[ i ]));
  h:=szoroz(h,6);
  end;
  
  
  
  [Szerkesztve]

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