Hirdetés

2024. május 26., vasárnap

Lapcsaládunk:

Gyorskeresés

Útvonal

Fórumok  »  Szoftverfejlesztés  »  Java programozás (kiemelt téma)

Hozzászólások

(#95) Dfg válasza Dfg (#94) üzenetére


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!

Útvonal

Fórumok  »  Szoftverfejlesztés  »  Java programozás (kiemelt téma)

Támogatóink

Copyright © 2000-2024 PROHARDVER Informatikai Kft.