Получить текст в скобках - QBasic
Формулировка задачи:
В заданном тексте
X$
имеется часть, заключенная в скобки. Образовать новую переменную, в которую записана часть, содержащаяся в скобках Помогите пожалуйстаРешение задачи: «Получить текст в скобках»
textual
Листинг программы
DIM X AS STRING
DIM Y AS STRING
DIM a AS INTEGER
DIM b AS INTEGER
Y = ""
X = "lalalala papapa (kokoko) kukuku!"
a = INSTR(X,"(")
b = INSTR(X,")")
Y = MID$( X,a+1,b-a-1)
PRINT Y
Объяснение кода листинга программы
- Объявляются переменные X, Y, a, b типа STRING и INTEGER соответственно.
- Переменной Y присваивается пустая строка.
- Переменной X присваивается строка
lalalala papapa (kokoko) kukuku!. - Переменным a присваивается значение функции INSTR, которая ищет первое вхождение символа
(в строке X. - Переменной b присваивается значение функции INSTR, которая ищет первое вхождение символа
)в строке X. - Переменной Y присваивается значение функции MID$, которая возвращает подстроку с X, начиная с позиции a+1 и до b-a-1 символов.
- Выводится значение переменной Y.