Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Java programozás
  5. (kiemelt téma)

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

  • Dfg Dfg csendes tag
    #95
    #94 Dfg
    Új Válasz
    Ú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
    Dfg
    Dfg
    csendes tag
    #94 Dfg

    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