Robotrontechnik-Forum

Registrieren || Einloggen || Hilfe/FAQ || Suche || Mitglieder || Home || Statistik || Kalender || Admins

Willkommen Gast!

Robotrontechnik-Forum » Technische Diskussionen » Modulo im KC85-Basic » Themenansicht

Autor

Thread - Seiten: -1-

000
04.05.2024, 11:00 Uhr
Bert

Hallo Forum!

gibt es im KC82-BASIC eine schöne Funktion um den Rest einer Division (=Modulo) zu ermitteln?

Viele Grüße,
Bert

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

001
04.05.2024, 14:48 Uhr
u-held

Mir fällt da nur das Naheliegende ein:

Quellcode:

m - INT(m/n) * n

Aber wirklich schön ist das nicht.
--
Kompetenz simulieren

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

002
04.05.2024, 22:46 Uhr
ggrohmann

Hallo Bert!

Auch wenns nicht elegant ist, kannst du dir das mit DEF FN ja als eigene Funktion definieren.

Guido

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

003
05.05.2024, 09:24 Uhr
Bert

Für das Modulo von 2er-Potenzen und positiven Zahlen kann man auf die AND-Funktion zurückgreifen:

Quellcode:

10 INPUT "Zahl?:";Z
20 PRINT "mod 2:"; Z AND 1
30 PRINT "mod 4:"; Z AND 3
40 PRINT "mod 8:"; Z AND 7

Dafür habe ich entdeckt, das die RESTORE-Funktion nur mit Konstanten und nicht mit Variablen funktioniert :-(
Dabei wollte ich sowas machen:

Quellcode:


90 V=3
100 RESTORE 1000+V
110 READ A, B
120 PRINT A;B
999 END
1000 DATA 1, 2
1001 DATA 3, 4
1002 DATA 5, 6
1003 DATA 7, 8

Grüße,
Bert

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

004
05.05.2024, 21:00 Uhr
maleuma

Zitat:

Bert schrieb
Dafür habe ich entdeckt, das die RESTORE-Funktion nur mit Konstanten und nicht mit Variablen funktioniert :-(

Sonst könnte RENUMBER die Zeilennummern wie auch z.B. auch nach GOTO nicht mit aktualisieren.
--
Mario.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

005
06.05.2024, 06:33 Uhr
ralle

Restore macht nichts anderes als den Zeiger auf dem Anfang zu setzen. Also bei Read/Data-Spielerein. Eine recht praktische Geschichte.
--
Gruß Ralle

Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!...
... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...

aus KENWOOD-Bedienungsanleitung TM-D700

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

006
06.05.2024, 09:50 Uhr
Bert

Zitat:

ralle schrieb
Restore macht nichts anderes als den Zeiger auf dem Anfang zu setzen.

Leider. Wenn man das variabel haben möchte, artet es etwas aus:

Quellcode:

140 ON V+1 GOSUB 1000,1001,1002,1003,1004,1005,1006,1007
...
1000 RESTORE 2000:GOTO 1500
1001 RESTORE 2001:GOTO 1500
1002 RESTORE 2002:GOTO 1500
1003 RESTORE 2003:GOTO 1500
1004 RESTORE 2004:GOTO 1500
1005 RESTORE 2005:GOTO 1500
1006 RESTORE 2006:GOTO 1500
1007 RESTORE 2007:GOTO 1500

1500 REM mache was
1520 RETURN

Grüße,
Bert

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

007
06.05.2024, 10:06 Uhr
ggrohmann

Uärks. 1 RETURN für 8 GOSUB. Das ist fast schon wie "IF HUNGER GOSUB ALDI ELSE RETURN" (aus Murphys Computergesetze).

Guido

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

008
06.05.2024, 15:29 Uhr
Bert

Zitat:

ggrohmann schrieb
Uärks. 1 RETURN für 8 GOSUB.

Das hab ich mir von Assembler abgeguckt :-)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

009
06.05.2024, 17:31 Uhr
kaiOr

Für positive Zahlen evtl. noch:

Quellcode:

10 ? "REST DER DIVISION"
20 INPUT "X=";X
30 INPUT "Y=";Y 
40 GOSUB 1000
50 ? "REST:";Z
60 END

1000 IF X<Y THEN Z=X:RETURN:ELSE X=X-Y:GOTO 1000

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

010
07.05.2024, 15:20 Uhr
kaiOr

Aus der "Kleincomputer-Fibel":

a mod b -> DEF FNF(A) = INT((A/B-INT(A/B))*B+0.005)*SGN(A/B)

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

011
28.05.2024, 14:00 Uhr
Dresdenboy

Zitat:

kaiOr schrieb
Für positive Zahlen evtl. noch:

Quellcode:

10 ? "REST DER DIVISION"
20 INPUT "X=";X
30 INPUT "Y=";Y 
40 GOSUB 1000
50 ? "REST:";Z
60 END

1000 IF X<Y THEN Z=X:RETURN:ELSE X=X-Y:GOTO 1000

Das ist aber eine teure Schleife!

Ich habe es mal schnell im BIC-Emulator ausprobiert:
RE = Y - INT(Y/X)*X
für pos. Zahlen sollte in den meisten Fällen reichen.
Falls SGN doch dazu muss, könnte es auch durch SGN(A*B) ermittelt werden, falls die Funktion vorhanden ist.
--
___________________________________
Produktionen im Rahmen der "The Computer Art Community" (Demoszene): https://demozoo.org/sceners/64936/, YT-Kanal: https://www.youtube.com/@4lpha0ne/videos
Programmierung seit '86 in BASIC: KC85/3, C64, A1200, PC | ASM: LC-80, C64, KC87, A1200, NeoGeo, PC, Mega 65, µC | Turbo Pascal: BIC, PC | C: RS/6000, Alpha, PC, µC | C++, Java, Javascript, Rust, Lua, Perl, PHP u.a. auf PC
HW: LC-80, BIC A5105 komplett, KC87, KC85/2-4, KCC, C64s, C16, Plus/4s, A500s, A1200, Mega 65, ESP32s, RasPis, PCs, Laptops, MR 610, ...

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

Seiten: -1- [ Technische Diskussionen ]