Основы программирования на языке Turbo Pascal. Беляева И.В. - 166 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

166
Задача «Поиск слов в строке и удаление символов»
В качестве второго примера возьмем такую задачу: в строке из слов,
начинающихся с двух согласных букв, удалить все гласные буквы.
{
Пример обработки строки.
Удаляются все гласные буквы в словах, которые начинаются
с двух согласных букв
}
{=====================================================}
{Функция IsLetter.
Возвращает TRUE, если Ch является русской буквой.
Иначе возвращает False.}
function IsLetter(Ch: char): boolean;
begin
IsLetter := ch in ['А'..'Я','а'..'п','р'..'я','ё','Ё'];
end;
{=====================================================}
{Функция IsSoglasn.
Возвращает TRUE, если Ch является русской согласной буквой.
Иначе возвращает False.}
function IsSoglasn(ch:char):boolean;
begin
IsSoglasn := ch in ['б','в','г','д','ж','з','й','к','л',
'м','н','п','р','с','т','ф','х','ц',
'ч','ш','щ','ъ','ь',
'Б','В','Г','Д','Ж','З','Й','К','Л',
'М','Н','П','Р','С','Т','Ф','Х','Ц',
'Ч','Ш','Щ','Ъ','Ь'];
end;

Страницы