Программа «Слово-перевертыш» на языке программирования OpenOffice.org Basic
Проект «Слово-перевертыш» на языках объектно-ориентированного программирования Visual Basic и Gambas
1. В операционной системе Windows запустить систему объектно-ориентированного программирования Visual Basic командой [Пуск - Все программы - Visual Basic 2010 Express].
Или:
в операционной системе Linux запустить систему объектно-ориентированного программирования Gambas командой [Пуск - Образование - Разработка - Gambas IDE (Интегрированная среда разработки Gambas)].
Разработаем графический интерфейс проекта.
2. Разместить на форме:
• текстовое поле TextBox1 для ввода исходного слова;
• метку Label1 для вывода слова-перевертыша;
• кнопку Button1 для создания обработчика событий.
3. Создать обработчик события.
В обработчике события цикл с предусловием будет выполняться, пока справедливо условие N <= Len (TextBox1 .Text), т. е. пока значение переменной N меньше или равно количеству символов в слове. (Количество символов во введенном слове является значением строковой функции Len () .)
В цикле символы последовательно вырезаются из введенного слова в прямой последовательности (слева направо) с использованием функции вырезания подстроки из строки Mid (TextBox1. Text, N, 1) и присваиваются строковой переменной S. Затем вырезанные символы (значения переменной S) в обратной последовательности (справа налево) присваиваются свойству Label1.Text, значением которого после завершения цикла будет слово-перевертыш.
4. Запустить проект на выполнение, ввести в текстовое поле исходное слово и щелкнуть по кнопке Пуск. На метку будет выведено слово-перевертыш.