Welcome, Guest. Please login or register.


Author Topic: Általános BASIC Kérdések (Read 423694 times)

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #705 on: 2015.February.10. 11:11:01 »
Kettes szamrendszerben megkapjuk az utolso szamjegyet, ha egy binaris AND muveletet vegzunk a kerdeses szam es az 1 kozott.
Jaaa, kezdem már érteni. Annyira új nekem is ez, hogy nem tudtam elvonatkoztatni.

De akkor ezt hogyan kéne átírni?
840 IF YY/2=INT(YY/2) THEN

Simán így?
840 IF YY BAND 1 THEN

Ennyi lenne csak?

100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #706 on: 2015.February.10. 11:22:46 »

De akkor ezt hogyan kéne átírni?
840 IF YY/2=INT(YY/2) THEN

Kár cifrázni...:oops:

840 IF REM(YY,2)=0 THEN

De a BAND is jó.
« Last Edit: 2015.February.10. 11:46:13 by Lacika »

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #707 on: 2015.February.10. 11:39:24 »
840 IF REM(YY,2)=0 THEN
De a BAND is jó.
Ez már a bőség zavara, már választani is lehet két módszer közül. :D
Melyik műveletet végzi el gyorsabban a gép, lehet ezt tudni? Ha egy cikluson belül jó sokszor elvégzi, akkor lehet jelentősége.

Szerk.: Nekem elsőre a BANDás módszer nem működött, vagy legalábbis pont fordítva működhet, és a páratlant "detektálja".
« Last Edit: 2015.February.10. 11:46:04 by szipucsu »
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline endi

  • EP addict
  • *
  • Posts: 7298
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
    • Honlapom
Re: Általános BASIC Kérdések
« Reply #708 on: 2015.February.10. 11:40:17 »
mi az a REM? :D
Vigyázat! Szektás vagyok! :)

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #709 on: 2015.February.10. 11:45:46 »
Ez már a bőség zavara, már választani is lehet két módszer közül. :D
Melyik műveletet végzi el gyorsabban a gép, lehet ezt tudni? Ha egy cikluson belül jó sokszor elvégzi, akkor lehet jelentősége.

Értelemszerűen messze a leglassabb az INT-es (két osztással). Ennek ellenére sok BASIC-ben csak ez a megoldás létezik...
A REM / MOD és a BAND-os megoldás között nagy különbség nem lehet, de talán a bináris összehasonlítás gyorsabb valamiel.

ODD függvény Pascal-mintára:

DEF ODD(X)=NOT((X BAND 1)-1)

Ha nem kell a "jólnevelt jelző":

DEF ODD(X)=X BAND 1
« Last Edit: 2015.February.10. 12:28:07 by Lacika »

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14722
  • Country: hu
    • http://enterprise.iko.hu/
Re: Általános BASIC Kérdések
« Reply #710 on: 2015.February.10. 11:46:57 »
mi az a REM? :D
Remainder azaz maradék.

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #711 on: 2015.February.10. 11:47:32 »
mi az a REM? :D

A Referencia kézikönyv szerint:

"REM(x,y)
Az x és y osztásának maradéka.
REM(-1,3)=-1. L.: MOD(x.,y)."

:oops:

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #712 on: 2015.February.10. 11:54:03 »
mi az a REM? :D

1. Egy zenekar neve
2. Rapid Eye Movement, azaz gyors szemmozgásos fázik, az alvás egyik szakasza
3. REMember, azaz emlékeztető.

Amúgy mindkét módszer jó! :smt041

Code: [Select]
  10 PROGRAM "paros1.bas"
  100 INPUT A
  110 IF REM(A,2)=0 THEN PRINT "paros":GOTO 100
  120 IF REM(A,2)<>0 THEN PRINT "paratlan":GOTO 100

Code: [Select]
  10 PROGRAM "paros2.bas"
  100 INPUT A
  110 IF NOT(A BAND 1) THEN PRINT "paros":GOTO 100
  120 IF A BAND 1 THEN PRINT "paratlan":GOTO 100

Akkor maradok a BANDás módszernél, de még kipróbálom előbb, a Zzzip megeszi-e. Szerk.: A Zzzip megeszi mindkettőt.
Végülis a REM is egy BANDa (zenekar). :D
« Last Edit: 2015.February.10. 11:59:48 by szipucsu »
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #713 on: 2015.February.10. 11:57:05 »
A Referencia kézikönyv szerint:

"REM(x,y)
Az x és y osztásának maradéka.
REM(-1,3)=-1. L.: MOD(x.,y)."

Mondjuk elég bénán magyarázza a referencia kézikönyv. Igaz, nem is tankönyv, de ebből én nem érteném meg. Elsőre hozhatna valami pozitív egész számmal példákat (többet is), utána elvont matematikusok kedvéért jöhetne a negatív előjelű példa is.
Az akkori EP tulajdonosok átlagéletkora elég alacsony lehetett, főleg kb. 13 éves fejjel még úgy se tudtam mit kezdeni ilyen magyarázatokkal.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #714 on: 2015.February.10. 12:02:05 »
Mondjuk elég bénán magyarázza a referencia kézikönyv. Igaz, nem is tankönyv, de ebből én nem érteném meg. Elsőre hozhatna valami pozitív egész számmal példákat (többet is), utána elvont matematikusok kedvéért jöhetne a negatív előjelű példa is.
Az akkori EP tulajdonosok átlagéletkora elég alacsony lehetett, főleg kb. 13 éves fejjel még úgy se tudtam mit kezdeni ilyen magyarázatokkal.

A Hetedhéten Túl könyvben van ezekről a függvényekről szó.

Offline endi

  • EP addict
  • *
  • Posts: 7298
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
    • Honlapom
Re: Általános BASIC Kérdések
« Reply #715 on: 2015.February.10. 12:04:11 »
elvont matematika szerintem épp hogy a nem egész számok meg ilyesmi csilivili izék
a bináris, az egész szám, 8 bites, 16 bites stb, na az a valódi valóság, a konkrét valóság :)
Vigyázat! Szektás vagyok! :)

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14722
  • Country: hu
    • http://enterprise.iko.hu/
Re: Általános BASIC Kérdések
« Reply #716 on: 2015.February.10. 12:12:22 »
főleg kb. 13 éves fejjel még úgy se tudtam mit kezdeni ilyen magyarázatokkal.
Szerintem az osztást, maradékot meg ilyeneket akkor már pár éve tanultad általánosban :-)

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #717 on: 2015.February.10. 12:35:25 »
Szerintem az osztást, maradékot meg ilyeneket akkor már pár éve tanultad általánosban :-)
Lehet, de ránézek ilyen -1 és 3 számokra, azok nem néznek ki jól, nekem legalábbis. :D
Lehetett volna 4 és 2, meg 5 és 10, ott örültem volna, hogy nullát ad, és utána lehettek volna még más számok.

Na, kicsit pofoztam ezen a primitív labirintusos játékon, zzzippeltem is, de olyan egetverően nem lett gyors, mint gondoltam. A Hungry Creature játékomban is gyors ennyire, de ott még 4 szörny is mozog a pályán. Szóval valami ritka lassú módszerrel csinálhatták meg ezt a játékot, de azért érdekes.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #718 on: 2015.February.10. 19:34:54 »
Picit még toldozgattam a programot. Nem a 102-es, hanem a 0-ás csatornára írta az időt játék közben, ez is lassította.
Ez most zzzippelés nélkül is egész jó sebességűnek tűnik.
Laci, ha ki akarod rakni a BASIC programcsokorba, akkor még rakok bele valami zenét, amikor kijutunk a labirintusból. Ha nem akarod kirakni, akkor hagyom. Érdemes lenne kirakni, mert bár 1 percet kell várni az elején, mégis eléggé egyedi ez a program.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline endi

  • EP addict
  • *
  • Posts: 7298
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
    • Honlapom
Re: Általános BASIC Kérdések
« Reply #719 on: 2015.February.10. 20:26:41 »
hú, tök ötlet jutott eszembe, bár ez már nem basic
olyan labirintus játék ahol speckó lpt van, mintha a pálya egy csőre lenne ráfeszítve, azaz lpt-vel megcsinálni hogy az alsó és felső lpt sorok egyre vékonyabbak
látványos lenne ahogy fel-le megyünk és forog a cső
Vigyázat! Szektás vagyok! :)