Question

В QBasic нужно написать программу, которая для каждого из слов заданного предложения указывает, сколько раз оно встречается в предложении

Answer 1

DIM S$, S2$, S3$, i%, j%, k%, d%
CLS
INPUT "Vvedite text: ", S$
PRINT S$
S3$ = ""
S$ = " " + S$ + " "
S2$ = " " + S2$
FOR i = 2 TO LEN(S$)
IF NOT (MID$(S$, i, 1) = " ") THEN
   S3$ = S3$ + MID$(S$, i, 1)
ELSE
d = 0
FOR j = 2 TO LEN(S2$) - LEN(S3$)
    IF (MID$(S2$, j, LEN(S3$)) = S3$) AND (MID$(S2$, j - 1, 1) = " ") AND (MID$(S2$, j + LEN(S3$), 1) = " ") THEN
    d = 1
    END IF
NEXT j

IF d = 0 THEN
   FOR j = 2 TO LEN(S$) - LEN(S3$)
       IF (MID$(S$, j, LEN(S3$)) = S3$) AND (MID$(S$, j - 1, 1) = " ") AND (MID$(S$, j + LEN(S3$), 1) = " ") THEN
          k = k + 1
       END IF
   NEXT j
PRINT ; S3$, k
k = 0
S2$ = S2$ + S3$ + " "
END IF
S3$ = ""

END IF
NEXT i
END

Answer 2

Для решения этой задачи в QBasic можно написать программу, которая будет считывать предложение и подсчитывать количество вхождений каждого слова в предложении. Вот пример программы:

CLS

DIM sentence AS STRING
DIM words() AS STRING
DIM counts() AS INTEGER

PRINT "Введите предложение:"
INPUT sentence

' Разделение предложения на отдельные слова
words() = SPLIT(sentence, " ")

' Инициализация массива счетчиков
REDIM counts(UBOUND(words))

' Подсчет количества вхождений каждого слова
FOR i = 0 TO UBOUND(words)
    FOR j = 0 TO UBOUND(words)
        IF words(i) = words(j) THEN
            counts(i) = counts(i) + 1
        END IF
    NEXT j
NEXT i

' Вывод результатов
PRINT "Результаты подсчета:"
FOR i = 0 TO UBOUND(words)
    PRINT words(i) + ": " + STR$(counts(i))
NEXT i

END

В этой программе мы сначала считываем предложение с помощью команды `INPUT`. Затем мы используем функцию `SPLIT`, чтобы разделить предложение на отдельные слова и сохранить их в массив `words`. Затем мы создаем массив `counts`, который будет содержать счетчики для каждого слова.

Затем мы используем два вложенных цикла `FOR` для подсчета количества вхождений каждого слова. Если слово `words(i)` совп