Koodit: QB: Loogiset operaattorit

Kirjoitettu: 01.09.2002 – 01.09.2002

Tagit: matematiikka, ohjelmointitavat, koodi näytille, vinkki

Tuntuvatko loogiset operaattorit (AND, OR ja XOR) hankalilta? Tämä ohjelma näyttää halutuilla luvuilla bitti bitiltä mitä operaattorit oikeastaan tekevät luvuille. Luvut voivat olla väliltä 0-255.

DECLARE FUNCTION decbin$ (l AS INTEGER)
DECLARE SUB TulostaRivit (o$, l1%, l2%, l3%)
DEFINT X-Y
CLS
INPUT "Anna luvut X, Y: ", x, y

IF x < 0 THEN x = 0
IF y < 0 THEN y = 0
IF x > 255 THEN x = 255
IF y > 255 THEN y = 255


o$ = "X AND Y (molemmat ovat 1)"
TulostaRivit o$, x, y, x AND y

o$ = "X OR Y (jompi kumpi tai molemmat ovat 1)"
TulostaRivit o$, x, y, x OR y

o$ = "X XOR Y (toinen mutta vain toinen on 1)"
TulostaRivit o$, x, y, x XOR y

DEFSNG X-Y
FUNCTION decbin$ (l AS INTEGER)
  uusi$ = ""
  u = l
  DO
    ul = u \ 2
    jj = u MOD 2
    u = ul
    uusi$ = MID$(STR$(jj), 2) + uusi$
    IF u = 0 THEN EXIT DO
  LOOP
  decbin$ = uusi$
END FUNCTION

SUB TulostaRivit (o$, l1%, l2%, l3%)
  PRINT
  PRINT o$
  PRINT RIGHT$("0000000" + decbin(l1%), 8) + " ="; l1%
  PRINT RIGHT$("0000000" + decbin(l2%), 8) + " ="; l2%
  PRINT RIGHT$("0000000" + decbin(l3%), 8) + " ="; l3%
END SUB