- Everest / AIDA64 topik
- Milyen egeret válasszak?
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- HiFi műszaki szemmel - sztereó hangrendszerek
- Projektor topic
- Vezetékes FÜLhallgatók
- Sony MILC fényképezőgépcsalád
- Másodszor is nekifut az AI PC-k meghódításának a Qualcomm
- Milyen TV-t vegyek?
- Milyen házat vegyek?
Új hozzászólás Aktív témák
-
zenit
tag
Íme:
const
Digits: string = '0123...XYZ'; <- számjegyek
1. lépés: Str stringet számmá alakít Base számrendszerben.
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;
2. lépés: számot stringgé Base számrendszerben.
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;
Ennyi. Remélem, érthető.
Új hozzászólás Aktív témák
- Asus TUF Dash F15 FX516PM ,15.6" ,i7-11370H , GeForce RTX 3060,16GB ,512GB, 6 hónap garancia
- Dell Latitude 5350 , Intel Ultra 5 135U, 32GB RAM ,256GB SSD, gyári garancia 2028.01.17-ig
- CREALITY Ender-3 V3 KE
- Huawei B525s-23a 4G LTE WIFI router fehér
- intel-core i5-6500 CPU 3.2Ghz, 16G RAM, Geforce GTX 1660 SUPER (6G)
- BESZÁMÍTÁS! ASUS H510M i5 10400F 16GB DDR4 512GB SSD RTX 3060Ti 8GB Zalman S2 TG CHIEFTEC 700W
- LG 27GS60QC-B - 27" Ívelt - 2560x1440 - 180Hz 1ms - AMD FreeSync - Bontatlan - 2 Év Gyári Garancia
- HIBÁTLAN iPhone 13 Pro Max 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3390, 93% Akkumulátor
- Apple iPhone 13 Pro Max 128GB Silver - 100% EREDETI AKKU - 1 ÉV
- Apple iPhone 15 Pro Max 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest