Koodit: QB: Kielen tunnistaja

Kirjoitettu: 22.05.2002 – 27.11.2011

Tagit: teksti, koodi näytille, sovellus, vinkki

Pitkästä aikaa QBasic-ohjelmointia! Tämä ohjelma tunnistaa, onko haluttu lause suomea vai englantia erilaisten sääntöjen avulla. Tavalliset lauseet tunnistuvat ohjelmalla miltei 100%-varmuudella, mutta kun tietää miten, ohjelman saa erehtymään. Esimerkiksi lause 'Fagotti on barokkisoitin' on ohjelman mukaan englantia...

vokaalit$ = "aeiouy"
konsonantit$ = "bcdfghjklmnpqrstvwxz"
ekonsonantit$ = "bcfqwxz"
svokaalit$ = "äö"
eloput$ = "bcdfghjkmpqvwxz"
sloput$ = "aiou"

engv% = 0
suov% = 0

CLS

LINE INPUT "Anna tunnistettava lause:", lause$
lause$ = " " + LCASE$(lause$) + " "

FOR i = 1 TO LEN(lause$)
  IF INSTR(ekonsonantit$, MID$(lause$, i, 1)) <> 0 THEN
    engv% = engv% + 1
  END IF
  IF INSTR(svokaalit$, MID$(lause$, i, 1)) <> 0 THEN
    suov% = suov% + 1
  END IF
  IF INSTR(vokaalit$, MID$(lause$, i, 1)) > 0 AND MID$(lause$, i, 1) = MID$(lause$, i + 1, 1) THEN
    suov% = suov% + 1
  END IF
  IF INSTR(eloput$, MID$(lause$, i, 1)) > 0 AND MID$(lause$, i + 1, 1) = " " THEN
    engv% = engv% + 1
  END IF
  IF INSTR(sloput$, MID$(lause$, i, 1)) > 0 AND MID$(lause$, i + 1, 1) = " " THEN
    suov% = suov% + 1
  END IF
NEXT

IF engv% > suov% THEN
  PRINT "Lause on englantia."
ELSEIF engv% < suov% THEN
  PRINT "Lause on suomea."
ELSE
  PRINT "Lausetta ei pystytä tunnistamaan."
END IF