RAZLIČITI ZNAKOVI U REČENICI
 

Program ispisuje različitec znakove u upisanoj rečenici.

npr. ANA I IVAN

program ispisuje:  AN IV, dakle program pretražuje rečenicu znak po znak i ako naiđe na različiti znak ispisuje ga na ekranu.

 

CLS
INPUT "Rečenica"; rec$
temp$ = ""
d = LEN(rec$)
FOR i = 1 TO d
slovo$ = MID$(rec$, i, 1)
p = INSTR(temp$, slovo$)
IF p = 0 THEN
temp$ = temp$ + slovo$
END IF
NEXT i
PRINT "Razliźiti znakovi:", temp$