Registermaschine/Teilbarkeitsbeziehung von zwei Registerinhalten/Beispiel

Es soll überprüft werden, ob der Registerinhalt ${}r_{t}$ (von ${}R_{t}$) den Registerinhalt ${}r_{j}$ (von ${}R_{j}$) teilt. Falls ja soll das Programm ${}1$ ausgeben, andernfalls ${}0$. Dies leistet das folgende Programm mit den Hilfsregistern ${}R_{k}$ und ${}R_{\ell }$ (für Teilprogramme braucht man noch weitere Hilfsregister). Das Ausgaberegister Fehler beim Parsen (SVG (MathML kann über ein Browser-Plugin aktiviert werden): Ungültige Antwort („Math extension cannot connect to Restbase.“) von Server „http://localhost:6011/de.wikiversity.org/v1/“:): {\displaystyle {{}} R_1} soll zu Beginn leer sein.

1. Leere ${}R_{\ell }$
2. Berechne ${}r_{t}\cdot r_{\ell }$ und schreibe das Ergebnis in ${}R_{k}$ (ohne ${}r_{t},r_{\ell }$ zu verändern)
3. Bei ${}r_{k}>r_{j}$ gehe zu 8
4. Bei ${}r_{k}=r_{j}$ gehe zu 7
5. ${}\ell +$
6. Gehe zu 2
7. ${}1+$
8. Drucke
9. Halte an