Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Binaari luku kymmenluvuksi

Sivun loppuun

pushpabon [18.09.2002 18:58:09]

#

Tämä ohjelma muuntaa binaariluvun esim. '010100111' kymmenluvuksi.

CLS
a$ = "010"
DIM numerot(LEN(a$))

FOR i = LEN(a$) TO 1 STEP -1
  a = a + 1
  numerot(a) = VAL(MID$(a$, i, 1))
  LOCATE 5 + a, 1: PRINT numerot(a)

  IF numerot(a) = 0 THEN luku& = luku& + 0
  IF numerot(a) = 1 THEN
  luku& = luku& + 2 ^ a
  END IF
NEXT i
LOCATE 23, 1: PRINT luku&

Jaakko [19.09.2002 16:35:47]

#

tämmöne on jo tääl. dorka.

pushpabon [19.09.2002 16:41:43]

#

oho...en huomannu, sori!

saarna [19.09.2002 17:23:36]

#

tää on ihan ok! Onko Jaakolla kasvanut herneenpalko egoon...

Gevil [19.09.2002 17:33:09]

#

Jaakko kyllä vois ihan asiallisesti huomauttaa asiasta...

snakari [19.09.2002 18:19:20]

#

juu

pushpabon [19.09.2002 18:44:05]

#

Tota 'if numerot(a) = 0 THEN luku& = luku& + 0'´ei tarvitse

thefox [20.09.2002 12:07:14]

#

Hommansa hoitaa mutta on kyllä huonosti koodattu.

pushpabon [20.09.2002 15:15:48]

#

jaa...

mummon_mopo [22.09.2002 13:34:17]

# 

d& = 0
b$ = "101010"
for i% = 1 to len(b$)
    d& = 2& * d& + (asc(mid$(b$, i%, 1))-48)
next i%
print b$ + " bin ="; d&; " dec"

Urja Rannikko [10.10.2002 18:27:26]

#

Outoo 11111111 pitäis olla 255, mutta se on ohjelman mukaan 510.
BUUU!

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta