Fejtörő (2017-2018)

Mókás, de direkt dögnehéz programozási feladványok Spectrumra...
csaba
Speccyalista
Hozzászólások: 197
Csatlakozott: 2012.01.09. 19:18
Rádióamatőr hívójel: HG5BMU
Tartózkodási hely: Surány
Kapcsolat:

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: csaba » 2018.01.04. 23:14

A nem irodalmi elemzéses vonalon haladva kiadom az első javítást a programhoz.
A LOAD "patch1" után MERGE "fejtoro" majd RUN 100
Biztos nem erre a megoldásra gondolt Pgyuri, de ez legalább "működik" :)
patch1.tap
(1.05 KiB) Letöltve 15 alkalommal.
A hozzászólást 1 alkalommal szerkesztették, utoljára csaba 2018.01.05. 11:13-kor.

Avatar
Pgyuri
Speccyalista
Hozzászólások: 499
Csatlakozott: 2012.01.06. 13:34

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: Pgyuri » 2018.01.05. 10:43

Üdv,

Nana, túlzás, hogy működik :) Letöltöttem, de 3 emulátor is elszállt a TAP file megnyitására. Mérete Specrtumhoz képest elég nagy, így belenéztem, látom, hogy ez egy direct-rec móddal felvett file, vagyis TZX-ként kell kezelni. Átneveztem, így már mindhárom emulátor elfogadta.

MERGE "" a fejtörő, MERGE "" Csaba programja, de a TZX 45 másodpercig csendben vár, látszólag nem működik, de valójában tölt, csak ott nincs mit, csak csendet. 45 mp után betöltődött.

Innentől már csinálta az effektet. Szépen néz ki a képernyő, ahogy a szövegek szaladgálnak, nagy munka lehetett megírni, de azért érezni, hogy a fejtörőnek nem ez a megoldása :)

Pgyuri

Avatar
csege
Speccyalista
Hozzászólások: 218
Csatlakozott: 2012.01.06. 15:15
Tartózkodási hely: Föld.Naprendszer.Tejút

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: csege » 2018.01.05. 10:47

A windowsos FUSE megette, és a merge is sikerült :)

Számomra az az érdekes, hogy az eredeti Pgyuri féle program hogyan tud 7es (fehér) színű bordert és papert csinálni?
mivel az RND*7 nem ad olyan sűrűn 7-es értéket. (szerintem soha nem adhatna)
RND gives a random number between 0 and 1, but you can easily get
random numbers in other ranges. For instance, '5*RND' is between 0 and
5, and '1.3+0.7*RND' is between 1.3 and 2. To get whole numbers, uses
INT (remembering that INT always rounds down) as in '1+INT(RND*6)',
which we shall use in a program to simulate dice. 'RND*6' is in the
range 0 to 6, but since it never actually reaches 6, 'INT(RND*6)' is
0, 1, 2, 3, 4 or 5.
és mégis látunk fehér papert vagy bordert.
ez így hogy?

csaba
Speccyalista
Hozzászólások: 197
Csatlakozott: 2012.01.09. 19:18
Rádióamatőr hívójel: HG5BMU
Tartózkodási hely: Surány
Kapcsolat:

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: csaba » 2018.01.05. 11:11

Nem igazán voltam képben, hogyan is kell tap-ot felvenni.
Javítottam a mellékletet.

A kerekítés miatt van fehér, a BORDER 6.49 sárga, BORDER 6.5 és felette már fehéret ad.
patch1.tap
(1.05 KiB) Letöltve 17 alkalommal.

Avatar
Pgyuri
Speccyalista
Hozzászólások: 499
Csatlakozott: 2012.01.06. 13:34

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: Pgyuri » 2018.01.05. 12:16

Üdv,

Ha másért nem, már azért is megérte a fejtörő, hogy Csege barátunk elgondolkozott sok mindenen a Spectrum BASIC-el kapcsolatban. Volt CLEAR, RUN, RND :)

Csaba pedig jó sokat gépelt az izgő-mozgó szövegekért, gratuláció, bár egyszerűbb lett volna kipókolni a RUN-t a végéről és akkor bármit megtehetsz utána. Különben is illetlenség PATCH-nak nevezni, mert a fejtörő program nem hibás, hacsak annyiban nem, hogy Hpeternek igaza van az egyik jókívánság elütésében.

Még várok, hátha ...

Pgyuri

csaba
Speccyalista
Hozzászólások: 197
Csatlakozott: 2012.01.09. 19:18
Rádióamatőr hívójel: HG5BMU
Tartózkodási hely: Surány
Kapcsolat:

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: csaba » 2018.01.05. 18:30

Nem mondtam, hogy hibás, csak van rajta "foltozni" való.
Végül is pont azt csináltam amit írtál, kipókoltam a runt és utána a feltöltött változóidat használtam.
Minden színváltásban az eredeti program is lefut, és a kiegészítő program utolsó utasítása is ismét RUN, hogy hasonlítson ez eredetihez.

Avatar
Pgyuri
Speccyalista
Hozzászólások: 499
Csatlakozott: 2012.01.06. 13:34

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: Pgyuri » 2018.01.06. 23:15

Üdv,

Közeledik a lezárás ideje, még utolsó erőbedobással hátha valaki ...

Pgyuri

csaba
Speccyalista
Hozzászólások: 197
Csatlakozott: 2012.01.09. 19:18
Rádióamatőr hívójel: HG5BMU
Tartózkodási hely: Surány
Kapcsolat:

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: csaba » 2018.01.07. 11:28

Én ezen már annyit gondolkoztam...
elalvás előtt, vezetés közben, munkaidőben, szaunázás közben ...
biztosan rossz oldalról próbálom kitalálni a megoldást
minden nyakatekert
-a sorvégi run törli a változókat
-a különböző változókba való szövegbevitel
-a pause előtti cls, aminek hatására csak üres színes téglalapot nézünk 2 másodpercig
-a programot szinte lehetetlen megállítani break-el pont a sorvégi run előtt, hogy használhassuk az összes feltöltött változót.
-meg tudom állítani előre meghatározott bármelyik változó értékadásánál, de akkor még annak és az utána levőknek hiányzik az értéke.
-viszonylag egyszerűen ki tudom cserélni a let-eket print-re de van egy 34 karaktar hosszú aminek a kiírása átlóg a következő sorba, emiatt csináltam a scroll-os megoldást.
-nem is tudjuk mit lehet csinálni, csak parancsokat? átírni az egészet? kiegészítést? debugger?
persze ez mind programozástechnika, biztos valami nyakatekert irodalmi megoldás lesz.

Avatar
Pgyuri
Speccyalista
Hozzászólások: 499
Csatlakozott: 2012.01.06. 13:34

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: Pgyuri » 2018.01.07. 12:58

Üdv,

Csaba nagyon jól összefoglalta ennek a fejtörőnek a rejtélyeit ...

A LET-ek lecserélése PRINT-re nem járható út, mert ha EDIT-el lehívod a sort, akkor bizony zúgás kapsz minden esetben, ami nem egy szép dolog. Fejtörőim soha nem kívántak POKE bajnokságot, így azzal cserélgetni sem a jó út. Nem merek bármi mást írni, mert azzal csak megtéveszthetnék, félrevezethetnék bárkit.

Pgyuri

csaba
Speccyalista
Hozzászólások: 197
Csatlakozott: 2012.01.09. 19:18
Rádióamatőr hívójel: HG5BMU
Tartózkodási hely: Surány
Kapcsolat:

Re: Fejtörő (2017-2018)

Hozzászólás Szerző: csaba » 2018.01.07. 14:38

Íme még egy variáció, kis kiegészítéssel, hogy látványosabb legyen
Működése:
LOAD "patch2"
MERGE "fejtoro"
DIM V$(1,1)
GOTO 1
hibaüzenet után:
GOTO 10
patch2.tap
(496 bájt) Letöltve 16 alkalommal.

Válasz küldése

Ki van itt

Jelenlévő fórumozók: nincs regisztrált felhasználó valamint 1 vendég