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

UptoLike

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

Рубрика:

159

процедуры и функции как можно более универсальными, чтобы их можно

было использовать в других подобных задачах.

В результате анализа задачи в ней были выделены следующие

процедуры:

1. Ввод массива строк – ReadStrings.

2. Вывод массива строк – PrintStrings.

3. Определение множества символов в массиве строк – GetAllChars.

4. Вывод массива строк с подсветкой символов, входящих в указанное

множество, – PrintColorStrings.

5. Вывод множества символов – WriteSetChar.

6. Ожидание нажатия любой клавиши – WaitPressed.

Имея такой набор процедур, решить нашу задачу очень просто. Для

этого достаточно ввести множество русских гласных букв.

Программа:

{

Вводится не более 10 строк.

Ищутся и выводятся на экран гласные буквы, находящиеся

во введенных строках.

}

uses crt; {В программе будут использоваться средства

консольного ввода-вывода, в том числе процедуры

textcolor и clrscr, и функции readkey}

Const

MaxLengthString = 70; {Максимальная длина строки}

MaxNumberStrings = 10; {Максимальное количество строк}

Type

TString = string[MaxLengthString]; {Строка, в которой может

храниться не более MaxLengthString символов}

SetChar = Set of char; {Множество символов}