Sekalaista

Ohjelmia: laskin

Casio CFX-9800G

Jakomäärän desimaaliluvun numerot

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