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 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, ... |