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

• #95 Dfg csendes tag Dfg #94

  Új Válasz 2005-02-02 22:44:16 #95

  Ú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

  

  Dfg

  csendes tag

  válasz Dfg #94 üzenetére

  A Pascal progi ez alapján készült:
  
  function StrToNum(Str: string; Base: Integer): LongInt;
  var
  . Digit: Integer;
  . Result: LongInt;
  begin
  . Result := 0;
  . while Str <> '' do
  . begin
  . . Digit := Pos(UpCase(Str[1]), Digits) - 1; Str := Copy(Str, 2, Length(Str) - 1);
  . . Result := Result * Base + Digit;
  . end;
  . StrToNum := Result;
  end;
  
  function NumToStr(Num: LongInt; Base: Integer): string;
  var
  . Digit: Integer;
  . Result: string;
  begin
  . Result := '';
  . while Num > 0 do
  . begin
  . . Digit := Num mod Base; Num := Num div Base;
  . . Result := Digits[Digit + 1] + Result;
  . end;
  . if Result = '' then NumToStr := '0' else NumToStr := Result;
  end;
  
  Ha valaki megtenné, hogy átdobja Java-ba.
  
  Köszönöm!

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