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. -- ___________________________________ Demoscene-Produktionen: https://demozoo.org/sceners/64936/, YT-Kanal: https://www.youtube.com/@4lpha0ne/videos Lern-Coding-Historie: KC85/3, LC-80, C64, KC87/1, A5105 BIC (die letzten beiden in Spezialschule Riesa), A1200HD, IBM RS/6000, DEC Alpha, Atmel AVR, ESP32, NeoGeo, 6809, Mega 65 sowie div. x86 von AMD, Cyrix, IBM, Intel seit 1992). Sprachen: Assembler (x86, 68000, 6502, Z80), C, C++, Python, Lua, Pascal, BASIC, Perl, PHP, Scheme/LISP etc. HW: A5105 komplett, KC85/2 +M006, C64 (3), C64C (2), C16, Plus/4 (2), A500 (2), A1200HD +1240, div. µC, RasPis, PCs, Laptops, alte Taschenrechner (z.B. MR 610), Monitore 1084S-D2, 1084S-P1 (ZT def.), Philips CM8833 |