Hirdetés
- Samsung Galaxy Watch6 Classic - tekerd!
- Vivo X200 Pro - a kétszázát!
- MIUI / HyperOS topik
- Kezünkben a OnePlus 15 és az Oppo Find X9-ek
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Samsung Galaxy A54 - türelemjáték
- Szemtelenül olcsó lett a Nubia Fold
- One mobilszolgáltatások
- Bemutatkozott a Poco X7 és X7 Pro
- Samsung Galaxy S21 Ultra - vákuumcsomagolás
Ú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
- Miskolc és környéke adok-veszek-beszélgetek
- Formula-1 humoros
- Kuponkunyeráló
- Formula-1
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Postal: Bullet Paradise - A játék amit bejelentettek, majd el is kaszáltak
- Samsung Galaxy Watch6 Classic - tekerd!
- Építő/felújító topik
- Sony MILC fényképezőgépcsalád
- Vivo X200 Pro - a kétszázát!
- További aktív témák...
- 0perces! Samsung Galaxy Book5 Pro 360 2in1 Core Ultra 7 256V 16GB 2TB 16" WQXGA+ AMOLED TOUCH 1évgar
- iKing.Hu - Apple iPhone 15 Pro Max Black Titanium Titán stílus, 5 optikai zoom 256 GB- Gari
- ÚJ akku! Lenovo ThinkPad X1 Extreme Gen2 i7-9850H 16GB 512GB GTX1650 500nit UHD 1 év teljeskörű gar.
- Playstation 4 Pro 1 TB + kontroller 6 hó garancia, számlával!
- Bomba ár! HP Elitebook Folio 9480m - i5-4GEN I 8GB I 256SSD I 14" HD+ I Cam I W10 I Garancia!
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest



