Kirjoittaja: Antti Laaksonen
Kirjoitettu: 01.02.2002 – 01.02.2002
Tagit: yhteiskunta, koodi näytille, vinkki
Jokaisessa uudessa ja vähän vanhemmassakin kirjassa on yksilöivä ISBN-numero. Tämä koodi tarkistaa annetun numeron oikeellisuuden.
INPUT "Anna ISBN-numero:", isbn$
summa% = 0
kerroin% = 0
FOR i = 1 TO LEN(isbn$) - 2
merkki$ = MID$(isbn$, i, 1)
IF merkki$ <> "-" THEN
kerroin% = kerroin% + 1
summa% = summa% + VAL(MID$(isbn$, i, 1)) * kerroin%
END IF
NEXT
tmerkki = summa% MOD 11
IF tmerkki = 10 THEN tmerkki = 0
IF VAL(RIGHT$(isbn$, 1)) = tmerkki THEN
PRINT "Numero oikein"
ELSE
PRINT "Numero väärin"
END IFKun mä kokeilin tätä se ei toiminut. Se sanoo aina, että numero väärin
Laitoitko viivat väliin?