profile
Размещено 5 лет назад по предмету Информатика от izyavaizer

По заданной фразе a$ сформировать и вывести фразы, слова в которых являются всевозможными перестановками слов исходной фразы. Исходная информация вводится с клавиатуры(QBasic)

  1. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    INPUT s$
    k = LEN(s$) + 1
    FOR i = 1 TO k
        IF MID$(s$, i, 1) = " " THEN n = n + 1 'считаем число слов
    NEXT i
    n = n + 1
    DIM f$(n)
    DIM z(n)
    j = 1
    FOR i = 1 TO k 'разрезаем фразу на слова и заносим их в массив f
        t$ = MID$(s$, i, 1)
        f$(j) = f$(j) + t$
        IF t$ = " " THEN j = j + 1
    NEXT i
    f$(n) = f$(n) + " "
    FOR i = 1 TO n 'считаем в СС с основанием n, исключая повтор цифр
        z(i) = i
    NEXT i
    DO WHILE z(0) = 0
        z(n) = z(n) + 1
        k = n
        DO WHILE z(k) > n
            z(k) = 1
            k = k - 1
            z(k) = z(k) + 1
        LOOP
        p = 0
        FOR i = 1 TO n - 1 'исключаем числа с повторяющимися цифрами
            FOR j = i + 1 TO n
                IF z(i) = z(j) THEN p = 1
            NEXT j
        NEXT i
        IF p = 0 THEN 'выводим соответствующие числам слова
            FOR j = 1 TO n
                PRINT f$(z(j));
            NEXT j
            PRINT
        END IF
    LOOP
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.