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

UptoLike

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

Рубрика:

165

FoundChars : SetChar; {Все найденные в ArrayStr символы}

FoundGlasn : SetChar; {Все найденные в ArrayStr

ГЛАСНЫЕ символы}

begin {Начало тела программы}

{Ввод строк}

ReadStrings(ArrayStr, N );

{Вывод строк}

PrintStrings(ArrayStr, N );

{Получение всех символов, введенных в строки ArrayStr}

GetAllChars(ArrayStr, N, FoundChars);

{Получаем все гласные символы, находящиеся в строках ArrayStr}

FoundGlasn := FoundChars * AllGlasn;

{Печатаем введенные символы с выделением гласных букв}

PrintColorStrings(ArrayStr, N, FoundGlasn);

{Печатаем гласные буквы, встречающиеся в строках ArrayStr}

WriteSetChar('Во введенных строках присутствуют' +

' гласные буквы: ',

FoundGlasn, Red, LightRed);

{Ждем нажатия любой клавиши}

WaitPressed('Для завершения работы программы нажмите' +

' любую клавишу...', LightBlue);

end. {Конец программы}