PALINDROM

Program provjerava da li je upisana rijč palindrom. Palindrom je riječ koja se jednako čita s lijeve i desne strane.

Ana   - s lijeve i desne strane ispada Ana.

 
CLS
INPUT "Upisi rijec "; rijec$
duljina = LEN(rijec$)
pola = INT(duljina / 2)
kraj = duljina

FOR i = 1 TO pola
     IF MID$(rijec$, i, 1) <> MID$(rijec$, kraj, 1) THEN
          PRINT "Nije palindrom ": END
     END IF
  kraj = kraj - 1
NEXT i
PRINT "Da, palindrom je :", rijec$