- Hálózati / IP kamera
- Aliexpress tapasztalatok
- Facebook és Messenger
- Synology NAS
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Hamarosan bárki hazavihet egy Apple Vision Pro headsetet
- Gmail
- Az Intel a legmodernebb chipgyártó géppel előzheti meg az egész szektort
- DIGI kábel TV
- Anyagi katasztrófára figyelmezteti az Apple-t a brit média
Új hozzászólás Aktív témák
-
zenit
tag
Szerintem az a baj, hogy ebben a sorban:
nyeremeny:=kettalalat*700+haromtalalat*9600+stb...
a jobb oldalon Integer-ek vannak, így a Pascal belül Integerekkel is számol, és csak a végeredményt konvertálja LongInt-re.
Ellenben, ha összes ''talalat'' változódat átírod LongInt-re, akkor nem fog túlcsordulni: egytalalat,kettalalat,haromtalalat,negytalalat,ottalalat : longint;
[Szerkesztve] -
zenit
tag
Eh, szerintem már volt erről szó korábban is.
A jobb oldalon kizárólag byte-ok szerepelnek, így byte-os aritmetikával fog számolni (és emiatt túlcsordulhat az összeg). Csak utána nézi meg, hogy a bal oldalon meg real van, így a végeredményt real-re konvertálja, de az már késő.
f:=a+b+c+d+e; <> f:=real(a)+real(b)+real(c)+real(d)+real(e); -
zenit
tag
válasz szabi244 #274 üzenetére
Azért azt leírhattad volna, hogy melyik Pascal verziót használod...
Na mindegy, pl. innen mazsolázhatsz: Bővebben: link -
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
- Óvodások homokozója
- Autós topik látogatók beszélgetős, offolós topikja
- Kertészet, mezőgazdaság topik
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- Politika
- Gaming notebook topik
- Masszív előrelépésnek tűnik a Zen 5
- Hálózati / IP kamera
- Elhagyhat egy kamerát a Galaxy S25 Ultra
- Telekom mobilszolgáltatások
- További aktív témák...
- AKCIÓ! Szépségápolás, Haj - és Szakállápolási márkás gépek - BOLTI ÁR FELÉÉRT!
- Bomba! HP EliteBook 1040 G7 x360 Érintős Hajtogatós Ultrabook Tab 14" -70% i7-10710U 16/256 FHD LTE
- BONTATLAN Új Iphone 15 és 15 Plus 128-512GB 1év APPLE garancia gyári független Deák AZONNAL Átvehető
- BONTATLAN Új Iphone 13 128-512GB 1év hivatalos Apple garancia gyári független Deák Azonnal Átvehető.
- ÚJ BONTATLAN Apple Watch Series 8 S8 41-45mm Azonnal Átvehető DEÁK TÉRNÉL 1 Év Apple Garanciával.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen