Question

составить программу переворачивания слова (попугай - йагупоп) . Через программу QBasic.

Answer 1

INPUT "vvedite slovo s = "; s$
FOR i = LEN(s$) TO 1 STEP -1
PRINT MID$(s$, i, 1);
NEXT i
END

 

получение новой строки

INPUT "vvedite slovo s = "; s$
FOR i = LEN(s$) TO 1 STEP -1
r$ = r$ + MID$(s$, i, 1)
NEXT i
PRINT r$
END

Answer 2

Вот пример программы на QBasic, которая переворачивает слово:

DECLARE FUNCTION ReverseWord (word$)
CLS

PRINT "Введите слово: ";
INPUT word$

reversedWord$ = ReverseWord(word$)

PRINT "Перевернутое слово: ";
PRINT reversedWord$

FUNCTION ReverseWord (word$)
    reversed$ = ""
    FOR i = LEN(word$) TO 1 STEP -1
        reversed$ = reversed$ + MID$(word$, i, 1)
    NEXT i
    ReverseWord = reversed$
END FUNCTION

Объяснение программы:

1. Сначала мы объявляем функцию `ReverseWord`, которая принимает строку `word$` и возвращает перевернутое слово. 2. Затем мы очищаем экран с помощью команды `CLS`. 3. Пользователю предлагается ввести слово с помощью команды `INPUT` и сохранить его в переменную `word$`. 4. Мы вызываем функцию `ReverseWord` и передаем ей введенное слово. Результат сохраняем в переменную `reversedWord$`. 5. Затем мы выводим перевернутое слово на экран с помощью команды `PRINT`. 6. Функция `ReverseWord` использует цикл `FOR` для прохода через каждую букву в слове, начиная с последней и заканчивая первой. Мы используем функцию `MID$` для получения каждой буквы и добавляем ее в переменную `reversed$`. 7. В конце функция `ReverseWord` возвращает перевернутое слово.

Программа позволяет пользователю вводить любое слово и выводит его перевернутую версию. Например, если пользователь вводит слово "попугай", программа выведет "йагупоп".