Практические, проверочные и домашние работы

pdf Практическая работа 29 "Основные задачи обработки строк"

Задача 1.
Составить программу, определяющую, сколько раз встречается заданный символ в заданном тексте.
Это обычная задача перебора и нахождения суммы. Значит, основа алгоритма - цикл. Мы должны просмотреть каждый символ заданного текста и проверить, совпадает ли он с заданным символом. Если совпадает, то к счётчику добавляется единица.
Определим переменные для величин:
R$ - заданный текст; W$ - заданный символ, N - длина исходного текста, S - количество символов, совпадающих с заданным.

input "Введите текст", R$
input "Введите нужный знак", W$
rem Обнуляем счётчик:
S=0
rem Определяем длину введённого текста:
N=length(R$)
rem Организуем цикл просмотра каждого символа исходного текста:
for I=1 to N
if mid(R$,I,1)=W$ then S=S+1
next I
print "В заданном тексте буква ";
print W$;
print " встречается ";
print S;
print "раз"

Задача 2.
Составить программу, позволяющую убрать из заданной фразы первое слово.
Алгоритм состоит в определении номера первого пробела в заданной фразе (циклический алгоритм поиска). После этого надо выбрать часть фразы от символа, следующего за пробелом, до конца. Её длина будет меньше исходной на число, равное номеру первого пробела.

input "Введите текст", R$
rem Определяем длину введённой фразы:
N= length (R$)
rem Устанавливаем счётчик просмотренных символов:
I=1
rem Организуем цикл проверки каждого символа исходной фразы:
while mid (R$, I, 1)<>" "
I=I+1
end while
rem Выбираем правую часть исходной фразы длиной N-I символов:
P$ = right (R$, N-I)
print "Без первого слова получится: ";
print P$

Задача 3.
Составить программу, определяющую встречаются ли в заданном слове удвоенные гласные или согласные.
Это задача перебора и сравнения символа с соседним.

input "Введите текст", T$
rem Обнуляем счётчик удвоенных символов:
S=0
rem Определяем длину введённого текста:
K=length(T$)
rem Организуем цикл просмотра и сравнения символов:
for I=2 to K
if mid(T$,I,1)=mid(T$,I-1,1) then S=S+1
next I
if S=0 then
print "Нет удвоенных букв"
else
print "Есть"
end if

Приложения

Задачник-практикум (Т. 1), 4.4.6 [4]