- Samsung Galaxy A54 - türelemjáték
- Apple Watch Ultra - első nekifutás
- Google Pixel topik
- Apple Watch Sport - ez is csak egy okosóra
- Android alkalmazások - szoftver kibeszélő topik
- Android szakmai topik
- Poco F7
- Apple iPhone 16 Pro - rutinvizsga
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Xiaomi 15 - kicsi telefon nagy energiával
Új hozzászólás Aktív témák
-
alitak
senior tag
válasz
VladimirR
#1762
üzenetére
Igen, így már működött, köszi a segítséget.
A val() függvényt még életben nem használtam, nem tudom mért keverem az ord() -dal.
Érettségire készülvén nem értem a tanárom. Majdnemhogy lecsesz, mert nem lett csilli-villi a program. ''Csak'' csinálja, ami a feladata. Érettségi lesz kb 20 percem, hogy megcsináljam a programomat. Ennyi idő alatt szerintem nem nagyon lehet egy értelmes felépítésű, csilli-villi kinézetű programot csinálni. -
Cxgrav
senior tag
válasz
VladimirR
#1657
üzenetére
Köszönöm szépen, jól működik
Még egy apropó felépítésbeli kérdés:
tehát több procedurára bontom a programot:
kurzorkikapcs
feltöltés
keveres
rajz
info
menu
begin.
kurzor
repeat
menu
until.....
Kérédésem, hogy a nyertes procedurát hova építsem be, hogy biztosan lefusson ha teljesül a feltétel és ne zavarja össze a prg-t?
[Szerkesztve] -
ViragL
tag
válasz
VladimirR
#1401
üzenetére
1. Igazad van, van az volt a kérdés mögött, nem akartam kimondani, úgy voltam vele, mindenki gondolja át, maga döntse el. Nem szokásom kiröhögni/lenézni senkit, biztos vagyok benne, hogy tudod miaz, legfeljebb nem ezen a néven ismered, nem dobálózni akartam, csak azt hittem ezt mindenki ezen a néven ismeri. (A teljesség igénye nélkül: Az infix alaku kifejezéseket használó nyelvek, hivatkozási nyelv szinten rögzítik a műveletek elvégzési sorrendjét az egyértelműség miatt. Teszik ezt úgy, hogy az operátorokhoz precedenciát rendelnek, a nagyobb precedenciájú művelet az erősebb, tehát először elvégzendő.)
3. Nem téged akartalak megvilágosítani, hanem azt próbáltam megvilágítani, hogy mire is gondoltam. (Olvass vissza lényszives, hogy ne legyen belőle félreértés, thx.)
Valóban ragaszkodom az általam emlegetett módszerhez, nagyon bevált.
Tiszteletet parancsoló cselekedet, hogy az általad felsorolt dolgokat szinte tisztán kódbol, peldákon keresztül tanultad meg. Azért én mégis állítom, hogy ''szakirodalom aztán példa'' módszerrel hatékonyabb lett volna a tanulás. -
ViragL
tag
válasz
VladimirR
#1397
üzenetére
1. Nem jelentettem ki, ott figyel a kérdőjel a sor végén. Azért a szelekciokon es iteraciokon kivül van még néhány apróság amit forráskódbol elég nehéz kibogarászni. Szerintem, pl nem a forráskód nézegetés a legjobb módszer a paraméterátadás, a hatáskörkezelés megértésésre, esetleg az operátorok precedenciájának megtanulásásra. Szerintem.
2. te mondtad, hogy helpből tanulsz. Ismerem azt a könyvet, tény, hogy nagyon jól használható.
4, az nc után volt egy mod, egy (egyébként elég xar) példát eröltettem oda, (hirtelen jobb ötletem nem volt, és az idő sürgetett) remélem segít megvilágítani, hogy mire is gondoltam. -
ViragL
tag
válasz
VladimirR
#1392
üzenetére
1. Kicsit elkanyarodtunk az eredeti témátol, x év programozás után én is rászorulok, hogy kódbol tanuljak, ez egy szint után már természetes. (teszem hozzá: szomorú) De eredetileg arrol szólt a vita, ha nevezhetem így, hogy kezdőként mi a megfelelő tanulási módszer. Teszem fel a kérdést, te kezdőnek azt javaslod, hogy vegyen elő x darab forráskódot és abbol próbálja felfogni a dolgokat (ja és a könyveket hanyagolja, mert minek a könyv, ha van kód)?
2. a help pont arra való amit leírtál, kikeresni a szükséges eszközöket, hogy ne kelljen mindent fejben tartani. De a help nem fog megtanítani programozni, az nem arra való.
4.nc MOD: esetleg annyit, hogy próbálj meg egy ovodásnak elmagyarázni a prímszámokat, simán menni fog, pláne, ha ismeri a számokat, azz osztást és a legnagyobb közös osztó fogalmát. Jo, ez kicsit ferdites, de talán megvilágítja mie gondoltam.
[Szerkesztve] -
cucka
addikt
válasz
VladimirR
#1365
üzenetére
a turbo pascal emlékeim szerint minden változót 0-ra inicializál.
mod: ki kéne próbálni, mert határozottan emlékszem arra, hogy a turbo és a borland pascal is 0-ra inicializál. nekem nincs pascal fordító a gépemen, meg egyáltalán évek óta nem programoztam abban a nyelvben, szóval hajrá
[Szerkesztve] -
ViragL
tag
válasz
VladimirR
#1352
üzenetére
Régen volt, nem emlékszem mindenre, de most hogy mondod rémlik már.
Azthiszem a Delay() aljárás működéséhez szükséges adatok ''begyüjtésénél'' hibázik, végez egy 0 val való osztást. Dob egy kivételt emiatt, az nincs lekezelve, így a program visszadobja azt az operációs rendszernek és runtime errorral leáll.
A Pascal (-ban írt program) ugyanúgy dob kivételeket, mint bármelyik másik programnyelv (-ben írt program), csak nincs fejlett eszközrendszere a kivételek kezelésére. Azthiszem egyedül a pragmákkal lehet valamilyen szinten kezelni a kivételeket és annyi.
Szerintem. -
QuarK
senior tag
válasz
VladimirR
#1290
üzenetére
Jelen esetben nem láttam indokoltnak, hogy erre is figyeljek; de igazad van.
Én így különböztetem meg őket:
repeat
ch := #0;
if keypressed then
begin
ch := readkey;
if ( ch = #0) then
begin
altchar := true;
ch := readkey;
end
else
altchar := false
end;
...
until ch = #27;
Az altchar jelzi, ha specialis karakterről van szó; és így nem kell külön kecmec.
Lefele gomb = ( altchar and ( ch = #80))
Fel gomb = ( altchar and ( ch = #72))
Jobbra gomb = ( altchar and ( ch = #77))
Balra gomb = ( altchar and ( ch = #75))
Delete = ( altchar and ( ch = #83))
Home = ( altchar and ( ch = #71))
End = ( altchar and ( ch = #79))
Tab = ( ch = #9)
Shift+Tab = ( altchar and ( ch = #15))
Enter = ( ch = #13)
Backspace = ( ch = #8)
Stb.
[Szerkesztve] -
Tangerine
senior tag
válasz
VladimirR
#1246
üzenetére
if ( ch >= '0' ) and ( ch <= '6' ) then begin
Kmm... 6-os számrendszerben nincs 6-os.![;]](//cdn.rios.hu/dl/s/v1.gif)
Egyszerű lenne az egész - csak végig kéne szorozni a számjegyeket 6 egyre növekvő hatványaival -, de elképzelésem sincs hogyan lehetne ekkora óriási számot (6^60 - 1)tárolni. Valami trükköt be kell vetni, de nem jövök rá, hogy mit. -
Tangerine
senior tag
válasz
VladimirR
#1237
üzenetére
Ja. Valószínűleg nem teljesen egyforma. Ha parancssoros progit akarok írni, akkor delphi console app.
Sok hasonlóság a pascalhoz. Több függvény esetleg kicsit másnéven. Vagy ami a Pascalban még eljárás a Delphiben már függvény pl. (Str vs. IntToStr)
Vagy pl. UpperCase(s: string) az előző problémára. -
Tangerine
senior tag
-
norbiphu
őstag
válasz
VladimirR
#1224
üzenetére
[ i ]-t átkonvertálta az a probl
egyébként meg nem tök8 mit raksz a végére?
nekem suliban a repeat until keypressed-et oktatták, de megkérdeztem (talán ebben a topikban
), hogy mit használjak helyette. ezt mondták ez maradt meg, de a readln is ugyanolyan helyes
crt meg includolva van képernyőtörlés miatt általában nálam
[Szerkesztve] -
KMan
őstag
válasz
VladimirR
#1222
üzenetére
kozben meg is irtam a fuggvenyt es mar teszteltem is.
(masik gepen dolgozok, es ott nincs net. egy masik asztalnal van). Na mind1 a function muxik, de meg mindig nem ertem minek a vegere a readkey. Kiprobaltam mindket fele keppen hogy van/nincs es nem latok kulonbseget.
Ugyan meg kezdo vagyok, de a pl: readkey(char) az nem arra jo hogy eltarulja a bufferbe a a bill. kodjat, majd megjeliniti? pl. a readkey-el lehet vakon gepelni nem? ha onmagaban van az utasitas a fuggveny vegen, azzal mit erek el? -
Tyrael
senior tag
válasz
VladimirR
#1197
üzenetére
akkor viszont pascalban tenyleg nem sok ertelme van/lenne a noop-nak.
vagy most nagy hulyeseget mondtam?
hisz valszeg noop csak akkor lenne hasznos, ha mondjuk tobb visszateresi erteke, vagy kimenete lehetne valaminek, es az egyiknel nem akarok csinalni semmit, de ha ott az else agat uresen hagynam, akkor ugyanugy semmit sem csinalna, szal felesleges lenne odarakni egy noop-ot.
Tyrael
[Szerkesztve] -
norbiphu
őstag
-
alitak
senior tag
válasz
VladimirR
#1125
üzenetére
ÁÁÁÁ... Amint rányomtam a linkekre, rájöttem, hogy igen ezt játszottam régen. Pedig még csak 17 múltam
De szerintem az én játékom ezt sem fogja megütni. Majd meglátjuk, mit tudok kihozni belőle. Valahova majd tuti felrakom. Tegnap este nézegettem a már meglévő forráskódot, és bizony már a motrot is nekiáltam átítrni régebben. Csak az a gáz, hogy már nem nagyon tudom, hogy melyik változó mi, melyik jel mit jelent, meg ilyenek. De majd kitalálom. -
alitak
senior tag
válasz
VladimirR
#1123
üzenetére
Régebben nagy divat volt az ún. lapozgatós kalandjátékkönyv. Ugye volt egy kiló fejezet, aminek a végén eldönt¨tted, hogy mit csinálsz/merre mész tovább, és ott volt a fejezetszám. Akkor átlapoztál oda.... Na egyik ilyen könyvet írom át, bár egy kicsit egyszerűsíteni fogok rajta, mert még nem vagyok olyan nagyon nagy programozó. Bár már gondoltam rá, hogy nekiállok a Diablo 3-nak
Az általad említett címeket nem ismerem, de szerintem ugyanarra gondoltunk. -
Tottu
senior tag
válasz
VladimirR
#963
üzenetére
Termesztessen text. A kiolvasással semmi gond. Raktam be még ppár üres sort de az sem segített rajta. Az üres sorokat kiírja és ha azok is elfogynak akkor jönnek azok a nyíl karakterek.
Ez lenne a feladat: (hogy mindenki értse mire is kell ez)
Ismert a SuperBike világbajnokság 0 < N < = 12 idei futamának beérkezési sorrendje, a BIKE.BE szövegfájlban. Minden sorban egy név van, futamonként legfeljebb hat. Az egyes futamokat egy üres sor választja el egymástól (mindig maximum hatan érkeztek be).
1. Adjuk meg azok névsorát a FUTAM.TXT fájlban, akik minden futamon célba érkeztek! Minden sorban pontosan egy név szerepeljen!
2. A LISTA.TXT -be kerüljön be a világbajnokság eredményrangsora (rendezés)! A győztes 6, a többiek rendre eggyel kevesebb pontot kapnak! Minden sorban egy név legyen, mellette egy szóköz, után a pontszám!
Példa:
a b c d e f a c d f a f c b g a f b c
LISTA.TXT
a 23
c 15
f 13
b 11 d 7
g 6
e 2
FUTAM.TXT
a c f -
-
WN31RD
addikt
válasz
VladimirR
#515
üzenetére
Nem volt időm korábban foglalkozni ezzel, de most belenéztem.
Nálam jól rendezi a mintabemenetet, egyszeri átolvasásra jónak tűnik az algoritmus. Egy hibát találtam: A kimenet elejére mindig berak egy üres sort, mégpedig azért, mert a láncolt lista végén mindig van egy üres elem, és hiába eggyel kisebb az ''n'' értéke, mint a láncolt lista elemeinek a száma, a rendezőciklus ezt nem veszi figyelembe: a lista végéig megy (''while lm^.next <> nil do'').
Szerk.: És aztán az utolsóként megvizsgált után következő elemben levő szöveget is felhasználja (''lm^.next^.s'').
[Szerkesztve] -
Protezis
őstag
válasz
VladimirR
#513
üzenetére
Soha nem tenném
Így utólag összehasonlítottam a te progidat, meg az enyémet, és látom, hogy néhány helyen sikerült túlbonyolítanom. Az elve u.a., mivel a tiédből értettem meg a láncot, utána nem nagyon tudtam tőle elszakadni 
De legalább én írtam, nem copyztam semmit!
Mail ment! -
WN31RD
addikt
válasz
VladimirR
#513
üzenetére
Én láttam a kódot, és szerintem az #509 alapján kitalálható, úgyhogy nemigen szegem meg az itt korábban ''aláírt'' NDA-t
ezzel:
Az eredeti kicsi2nagy függvény olyan, mint ami az #509-ben van, kivéve:
Nincs ''tarolo'', és a ciklusban levő if-ben így néznek ki az értékadások:
kicsi2nagy[ i ] := chr( ... )
illetve:
kicsi2nagy[ i ] := szoveg[ i ]
0. karaktert nem állítgat, csodálkozom is rajta, hogy egyáltalán működik, de Pascalban már nem vagyok otthon, úgyhogy passzolom a kérdést. -
-
ALI_G
veterán
válasz
VladimirR
#467
üzenetére
Az előbb már én is rájöttem erre, csak még nem tom, hogy valósítsam meg, de :
for j:=i downto 1 do
begin
if (tmp[j]>tmp[j-1]) then
szam:=szam+(tmp[j]-tmp[j-1])
else if (j <> 0) then
szam:=szam+tmp[j];
if (tmp[j] < tmp[j+1]) and (j<i) then
szam := szam-tmp[j];
end;
ez így jó lenne?
[Szerkesztve] -
ALI_G
veterán
válasz
VladimirR
#462
üzenetére
aha, szóval ha ezt beszúrom a függvény elejére, hogy tmp[0]:=0; és deklarálok egy tmp[0]-t is hozzá akkor jó lesz?
És hogy ne adja hozzá a következő ciklusban mit csináljak (most nem akar le esni), az egyetlen gagyi 5let ami eszembe jutott, hogy 2* vonom ki és akkor nyugodtan hozzáadhatja, de az nagyon gagyi.
[Szerkesztve] -
Protezis
őstag
válasz
VladimirR
#431
üzenetére
Én tavaly progalap gyakon a lehetséges 60 pontból 45-öt szereztem, ami szerintem nem olyan rossz. Ennek ellenére vizsgán nem sikerült összeszednem a 21 pontot
És tényleg szóról szóra azt kéri, amit leadott. Pedig szerintem a programozásnak nem ez a lényege. Nemrég a linuxos zh előtt feldobtam a fórumra, hogy aki nem akar felrakni linuxot, de szeretne gyakorolni, az próbálja ki a sulixot. Erre minden linuxfan a torkomnak esik. Mondván a win így szar, úgy szar. Én meg normálisan válaszoltam, hogy a win is lehet stabil, és a linux is le tud fagyni. Rá 2-3 napra hallom a haveromtól (gyakvezér), hogy Dévényi az egész fórumot elküldte nekik, hogy nézzék meg, és mellékelte, hogy aki win/linux hitvitát kezdeményezett, az nem baj, ha nem megy át félév végén. Bár jónéhány smiley volt a levélben, ez az ember hasonló levelet - hasonlóan sok smileyval - küldött egy évvel ezelőtt, melynek a tartalma: Most buktattam meg 150 embert.
Azóta nem írok semmit se a fórumra, nem szeretnék ilyen köcsögségek miatt megbukni. Nem mintha a tavalyi nem lett volna az. -
khalox
őstag
válasz
VladimirR
#416
üzenetére
Valahol a rendezéssel van a hiba. Ha kikommentezem, akkor az OUT-ba beleír mindent a talált sorrendben szemét nélkül.
Asszem a következő, de most elbizonytalaítottál:
A buborékrendezéskor a leghátsó elem abban a láncelemben lesz, ami az utolsó (tehát a next-je nil) - emiatt már nem kerül kiírásra.
Viszont az utolsónak a .s-e üres, az meg felkerül legelőre... és ott az üres sor...
[Szerkesztve] -
Protezis
őstag
válasz
VladimirR
#390
üzenetére
Sajna az fpc parancssori fordító, legalábbis én így tudom, és ezért is használom. Debug szvsz nincs benne. kipróbáltam in fájl nélkül, természetesen akkor hibaüzivel leállt. NEM NEM NEM ÉRTEM!
Milyen oprendszered van? Nálam sp2 van, nem lehet, hogy az zavar be?
Gondoltam már az írási jogra is, de rendszergazdaként vagyok bejelentkezve, szal az is van
Aki megfejti, meghívom egy sörre, feltéve hogy lejön Szegedre -
Protezis
őstag
válasz
VladimirR
#387
üzenetére
Hát tényleg nem értem
Leszedtem az exe-t, mellette csináltam egy RENDEZ.IN fájlt, beleírtam, hogy alma
A végeredmény: RENDEZ.OUT, tartalma semmi
Kezdem lámának érezni magam
Már egy programot se tudok normálisan futtatni
Ja igen, free pascal. De akkor nem ott van a bibi.
[Szerkesztve] -
Protezis
őstag
válasz
VladimirR
#385
üzenetére
Na átnéztem a progidat, és világos
Nem tudom miért, de mindig mindent túlbonyolítok. Tavaly csináltam egy számológépet, ami RÓMAI számokkal működött. Tudta a 4 alapműveletet, ill. az eredményt fel tudta használni a következő számolásnál. Asszem 30000 környékén száll el, de ki ír be 30 db M betűt?? :
A tanár visszaírja e-mailben, hogy ez hogy műkszik? Mert ő nem érti, de mivel gyors voltam, 13 pontot kaptam a 15-ből
-
-
Katka
csendes tag
válasz
VladimirR
#364
üzenetére
Szóval:
Tettszőleges számú és egyenként egy előre meghatározott hosszúságot meg nem
haladó szavak sorbarendezése az angol ábécé szerint. Az inputban az angol
betűk és a kötőjel (ez minden betű előtt van a rendezés szerint) kivételével
bármely egyéb karakter szóelválasztónak számít, és figyelmen kívül kell
hagyni. Kis és nagybetű között nincs különbség. Az output a szavak sorozata,
egy-egy szóközzel elválasztva.
Példa input:
alma zokni Asztal pad
baba Telefon telex )( megad
meg-meg egy1+hat65=nyolc
Példa output:
alma Asztal baba egy hat meg-meg megad nyolc pad Telefon telex zokni
![;]](http://cdn.rios.hu/dl/s/v1.gif)
), hogy mit használjak helyette. ezt mondták ez maradt meg, de a readln is ugyanolyan helyes
(masik gepen dolgozok, es ott nincs net. egy masik asztalnal van). Na mind1 a function muxik, de meg mindig nem ertem minek a vegere a readkey. Kiprobaltam mindket fele keppen hogy van/nincs es nem latok kulonbseget.
)
) 
De legalább én írtam, nem copyztam semmit!
Új hozzászólás Aktív témák
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- sziku69: Fűzzük össze a szavakat :)
- Windows 11
- Samsung Galaxy Tab S11 és Tab S11 Ultra: minden, amit tudni érdemes
- Elemlámpa, zseblámpa
- Formula-1
- sziku69: Szólánc.
- Milyen videókártyát?
- Luck Dragon: Asszociációs játék. :)
- Hogy is néznek ki a gépeink?
- További aktív témák...
- Újszerű LG OLED 55C11LB(4K/120Hz) 139cm
- Sapphire Pulse RX 6600 XT - eladó!
- ÚJ DELL XPS 14 9440 PROFI Laptop, -70% 14,5" Ultra 7 155H 12Mag 16/512 FHD+ 120Hz /Millió! Ft/
- Vadonat új garanciás laptopok hihetetlen áron! Szeptember Októberi lista! Razer blade zephyrus
- ÚJ HP ENVY x360 Érintős Hajtogatós Laptop Tab -30% 15,6" AMD RYZEN 7 7730U 8Mag 16/1TB FHD
- BESZÁMÍTÁS! Apple iPhone 16 Pro MAX 256GB okostelefon garanciával hibátlan működéssel
- Bomba ár! Fujitsu LifeBook U727 - i3-7GEN I 16GB I 256SSD I 12,5" FHD I Cam I W11 I Garancia!
- Samsung Galaxy S21 Ultra / 12GB RAM 256GB / Gyárifüggetlen / 12Hó Garancia
- Gamer PC-Számítógép! Csere-Beszámítás! I7 12700E / RTX 3060Ti / 32GB DDR4 / 512GB Nvme SSD
- Számlás!Windows 10 Pro 11 Pro,Windows 10 Home 11 Home, Office 2016,2019,2021 ,Vírusirtok,Mac
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest