Cоставить программу подсчета ошибок ** правило ча ща

Question

Cоставить программу подсчета ошибок на правило ча ща

Answer 1

Rem BASIC-256
cls
errors = 0
print "Введите текст > ";

rem Пользователь вводит текст
input a$

rem Перебираем все буквы с начала и до предпоследней
for i=1 to length(a$)-1

rem Если встречаем букву Ч или Щ
if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then

rem Тогда проверяем следующую за ней букву.
rem Если это буква я, тогда подсчитываем очередную ошибку
if mid(a$, i + 1, 1) = "я" then errors = errors + 1
end if

rem Переходим к следующей букве
next i

rem Вывод результата
print "Количество ошибок в тексте ";
print errors

rem Конец программы
end

Comments

Примечание: если в строке будет сочетание букв Чя или Щя, это не будет засчитано ошибкой.

---

Строку if mid(a$,i,1) = "ч" or mid(a$,i,1) = "щ" then

---

следует заменить на if lower(mid(a$,i, 1)) = "ч" or lower(mid(a$,i,1)) = "щ" then

---

Строку if mid(a$,i+1,1)="я" ... на строку if lower(mid(a$,i+1,1))="я"