Új hozzászólás Aktív témák
-
Dfg
csendes tag
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
A topicot kiemeltem. Valaki nem akar egy nyitó hsz-t írni?:))
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen