Idea ohjelmalle kirjasta: Funktiot ja yhtälöt 2 (1.-3. painos; Porvoo 1997, WSOY), sivu 138, sarjan D tehtävä 2.
'JAKOMAARAN DESIMAALILUVUN NUMEROT
'L ON LASKURI
0→L
'K ON NOLLAT
0→K
'J ON MONESKO NUMERO
0→J
"JAETTAVA"?→A
"JAKAJA"?→B
B=0⇒Goto 7
"MONESKO NRO DESIMAALIPILKUN JALKEEN"?→J
"1. LUKU ON ENNEN DESIMAALIPILKKUA, SEURAAVAT DESIMAALIPILKUN JALKEEN"
'JOS A<B, NIIN 1. LUKU ON NOLLA
A<B⇒0→E◢
Lbl 1
A<B⇒Goto 2
Lbl 3
0→K
L+1→L
L=J⇒Goto 8
A÷B→C
Int C→C◢
A-C×B→A
A=0⇒Goto 4
'L>100⇒Goto 5
Goto 1
Lbl 2
A×10→A
K+1→K
K≥2⇒0→E◢
Goto 1
Lbl 4
'LOPETUS, JOS JAKO MENEE TASAN
"JAKO PAATTYI TASAN"
Goto 6
Lbl 5
'LOPETUS JOS JAKO EI EHKA PAATY TASAN
"JAKO EI TAIDA PAATTYA TASAN"
Goto 6
Lbl 7
"NOLLALLA EI VOI JAKAA"
Goto 6
Lbl 8
"NUMERO ON:"
A÷B→C
Int C→C
Goto 6
Lbl 6
'LOPETUS
Muutettu viimeksi: 7. kesäkuuta 2013
Tekijä: Tomi Häsä (tomi.hasa@gmail.com)
URL: http://sites.google.com/site/tomihasa/ohjelmia-laskin