Hirdetés
- Milyen okostelefont vegyek?
- One mobilszolgáltatások
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Megbüntették, ezért feloszlatná az EU-t Elon Musk
- Milyen robotporszívót vegyek karácsonyra? (2025)
- Google Pixel topik
- Xiaomi 15 - kicsi telefon nagy energiával
- Okosóra és okoskiegészítő topik
- Bemutatkozott a Poco X7 és X7 Pro
Ú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
- Feketelista, avagy a rossz boltok topicja
- Ez gyors volt! Máris van működő VGA ARM-os Windows 11-hez
- Tisztázta a Valve a Steam Machine HDMI-paráját
- sziku69: Fűzzük össze a szavakat :)
- Milyen okostelefont vegyek?
- Crypto Trade
- Azonnali notebookos kérdések órája
- Gaming notebook topik
- One mobilszolgáltatások
- Linux kezdőknek
- További aktív témák...
- AKCIÓ! HP EliteBook x360 830 G7 i5-10210U 16GB 1000GB 1 év garancia
- Apple iPhone 14 Pro Max / Kártyafüggetlen / 256GB / 12Hó Garancia / 87% akku
- GYÖNYÖRŰ iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3835
- iKing - Xiaomi 14T Pro Titan Gray Vékony, prémium kivitel, nagy kijelző 12/512
- CSX 2x2GB (4GB) DDR 800 MHz kit
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest



