- Egyéves Gemini AI Pro a Google-től a magyar egyetemistáknak is
- iPhone topik
- Samsung Galaxy S25 FE - fenséges, felejthető vagy felesleges?
- One mobilszolgáltatások
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Android alkalmazások - szoftver kibeszélő topik
- Poco F7 Pro - jó, de az amatőr sem rossz
- Akciófigyelő: Kedvezményekkel nyílt új Xiaomi Partner üzlet a Westendben
- Honor Magic6 Pro - kör közepén számok
- Samsung Galaxy S21 FE 5G - utóirat
Új hozzászólás Aktív témák
-
bucsupeti
senior tag
válasz
Mr. Erikszon #2635 üzenetére
nem sok.
a turbo és a borland szinte ugyan az. a borland pascal tartalmazza a win32 programozáshoz szükséges dolgokat is. a nyelv szempontjából teljesen egyforma a TP és BP.
A free pascal egy szabad szoftver. kompatibilis a borland rendszerekkel, de vannak eltérések. a free pascalnak van dos, win32 és linux változata is.tanulásra mindegyik megfelelő.
-
aAron_
őstag
válasz
Mr. Erikszon #2630 üzenetére
egyébként vannak a neten nagyon jó oldalak pascal-hoz, kis túlzással pár óra alatt meg lehet tanulni az egészet. elég egyszerű a nyelv. http://www.prog.ide.sk/pas.php, http://videosmart.hu/profile/FlamingClaw
-
bucsupeti
senior tag
válasz
Mr. Erikszon #2630 üzenetére
Hova jársz suliba? Ez valamilyen középiskola?
-
drkbl
őstag
válasz
Mr. Erikszon #2628 üzenetére
- Felbontod vagy az én, vagy az előző módszer szerint 5 változóba a,b,c,d,e ahol a a tízezres (1), .., e az egyes (5)
- A négyjegyű szám a*1.000 + b*100 + d*10 + e
azaz a,b "lecsúszik" rangban, c nem játszik, d,e marad tízes, egyes helyiérték.
-
drkbl
őstag
válasz
Mr. Erikszon #2626 üzenetére
Kérdés, mit jelent a törlés: ötjegyű számból négyjegyű lesz, VAGY az ötjegyű szám középső jegye 0 lesz?
-
drkbl
őstag
válasz
Mr. Erikszon #2623 üzenetére
12345 / 10 = 1234,5 maradék: 5 -> megy az egyeseknek fenntartott változóba
levágással kerekíted 1234
1234 / 10 = 123,4 maradék 4 -> megy tízesnek
levágással kerekíted 123
123 / 10 = 12,3 maradék 3 -> megy százasnak
levágással kerekíted 12
.
.
.
x div y -> eredménye a hányados 0 felé kerekítve (csonkolásos kerekítés)
x mod y -> eredménye a maradéklegalábbis Delphiben
Mod: pastebin-re fel tudod tölteni, amit készítettél?
-
drkbl
őstag
válasz
Mr. Erikszon #2621 üzenetére
Nem bonyolult az, felbontja a számot 1-esekre, 10-esekre, 100-asokra, ...
Aztán ami eredetileg 1000-es volt, az százas lesz, ami 10.000-es, az 1000-es.12345 = 1X10.000 + 2X1.000+3X100+4X10+5X1
1245 = 1X1.000+2X100+4X10+5X11 + 5 + 4 + 1 változó, és akkor debuggerben egyszerűen követhető, mit számol.
Osztod 10-el, a maradék az adott jegy, az eredményt kerekíted, osztod 10-el, ...
Pont mint 10->2 számrendszer konverziónál.
Szerintem.
-
bucsupeti
senior tag
válasz
Mr. Erikszon #2618 üzenetére
meg lehet csinálni egyetlen változóval is (a bekért szám).
Ha olvashatóra akarod írni akkor 7 változót is csinálhatsz....Kérdés hogy mi a cél.
-
bucsupeti
senior tag
válasz
Mr. Erikszon #2616 üzenetére
a "most jön a gubanc" helyére kell beírni azt amit az előbb leírtam.
-
bucsupeti
senior tag
válasz
Mr. Erikszon #2613 üzenetére
A megoldás:
tezres=szam egészosztás 10000
ezres=(szam-tezres) egészosztás 1000)
szazas=(szam-tezres-ezres) egészosztás 100
tizes=(szam-tezres-ezres-szazas) egészosztás 10
egyes=szam-tezres-ezres-szazas
új szám=tezres*1000+ezres*100+tizes*10+egyesEzt kell átírni pascal-ba. Gondolom az azért nem okoz problémát....
Egy kis segítség:
div : egészosztás művelet. Használata itt van leírva. -
bucsupeti
senior tag
válasz
Mr. Erikszon #2613 üzenetére
bemásolnád ide hogy meddig jutottál?
-
bucsupeti
senior tag
válasz
Mr. Erikszon #2610 üzenetére
én meg tudnám oldani, de attól nem fog jobban menni neked az infó. inkább segítenék neked.
meddig jutottál el a problémában? le tudnád írni magyarul hogy hogyan oldanád meg a feladatot?
Új hozzászólás Aktív témák
- AMD vs. INTEL vs. NVIDIA
- Egyéves Gemini AI Pro a Google-től a magyar egyetemistáknak is
- Formula-1
- Mikrotik routerek
- iPhone topik
- Építő/felújító topik
- Luck Dragon: Asszociációs játék. :)
- Samsung Galaxy S25 FE - fenséges, felejthető vagy felesleges?
- One mobilszolgáltatások
- Nagyon nem szokványos módon ment tönkre egy ASML gép Kínában…
- További aktív témák...
- Apple iPad air 4 64GB,Újszerű,Dobozával,12 hónap garanciával
- HIBÁTLAN iPhone 13 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS37701 100% Akkumulátor
- Xiaomi 11T Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! MSI B760 i7 13700K 32GB DDR4 2TB SSD RTX 4080 16GB be quiet! 500DX Seasonic 750W
- HIBÁTLAN iPhone 15 Pro Max 256GB Blue Titanium -1 ÉV GARANCIA -Kártyafüggetlen, MS3693
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő