| Пример 1
Дан текст. Определить, содержит ли он символы «*».
INPUT "ВВЕДИ СТРОКУ"; A$
N = LEN(A$)
T = 0
FOR I = 1 TO N
B$ = MID$(A$, I, 1)
IF B$ = "*" THEN T = 1: PRINT "ДА": EXIT FOR
NEXT I
IF T = 0 THEN PRINT "НЕТ"
END
| Пример 2
Дана строка символов. Выяснить имеются ли в этой строке до первой точки подряд идущие символы запятая и тире.
LINE INPUT A$
A1$ = "."
L = INSTR(A$, A1$)
FOR i = 1 TO L
B$ = MID$(A$, i, 2)
IF B$ = ",-" THEN k = i: EXIT FOR
NEXT i
IF k <> 0 THEN? "ДА" ELSE? "нет"
END
|
| Пример 3
Заменить в тексте после первой точки все буквы «а» на «о».
CLS
'Ввод исходной строки.
LINE INPUT "ВВЕДИ СТРОКУ"; A$
'Определение длины строки.
N = LEN(A$)
'Поиск первого вхождения точки в исходную строку.
L = INSTR(A$, ".")
'Открытие цикла для организации циклической проверки
'каждой пары символов введенной строки.
FOR I = L + 1 TO N
'Выделение из исходной строки по одному символу.
B$ = MID$(A$, I, 1)
'Проверка условия для обнаружения символов «а», в случае
Нахождения производится замена на букву «о».
IF B$ = "a" THEN MID$(A$, I, 1) = "o"
NEXT I
PRINT "получена строка: "; A$
END
| Задачи для дополнительного решения
Для дополнительного решения предлагаются задачи, данные в порядке возрастания сложности.
Задача 1.Дано предложение. Определить порядковые номера первой пары одинаковых «соседних» символов. Если таких символов нет, то должно быть напечатано соответствующее сообщение.
Задача 2.Дано предложение, в котором имеются одна буква «с» и одна буква «т». Определить, какая из них встречается раньше (при просмотре слева направо).
Задача 3.Дана строка символов, среди которых есть «?». Получить все символы, расположенные между первым и вторым «?». Если второго «?» нет, то получить все символы, расположенные после первого «?».
|
