Определить, что в тексте нет равных символов - QBasic

Формулировка задачи:

Текст записан в переменной S. И использовано его представление в виде множества. Конечно можно было просто в данном случае отсортировать текст. Но мне хотелось показать, что есть и такой вариант.

CLS
DIM S AS STRING
DIM T AS STRING * 256
DIM s1 AS STRING
S = "SLOVN"
PRINT S
 
FOR i = 1 TO LEN(S)
   s1 = MID$(S, i, 1)
   n = ASC(s1)
   MID$(T, n, 1) = "1"
NEXT
 
FOR i = 1 TO 256
   IF MID$(T, i, 1) = "1" THEN k = k + 1
NEXT
IF k = LEN(S) THEN PRINT "YES" ELSE PRINT "NO"
END

Решение задачи: «Определить, что в тексте нет равных символов»

textual
                            Листинг программы 
                        

                            a$ = "abcda"
FOR i = 1 TO LEN(a$)
n = n + INSTR(i + 1, a$, MID$(a$, i, 1))
NEXT
IF n > 0 THEN PRINT "YES" ELSE PRINT "NO"
                        

Оцени полезность:

12 голосов , оценка 4.083 из 5

Похожие ответы