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$ |