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

UptoLike

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

Рубрика:

162

Заносит все символы, встретившиеся в массиве строк str,

в множество AllChars. N – количество строк в массиве str.}

procedure GetAllChars(const str: ArrayTString; N: Integer;

var AllChars: SetChar);

var

i, j : integer;

begin

AllChars := []; {Инициализация множества}

for i := 1 to n do {Для всех введенных строк}

for j := 1 to length( str[i] ) do {Для всех символов

i-й строки}

AllChars := AllChars + [ str[i,j] ]; {Добавляем по

очереди все символы к множеству AllChars}

end;

{Процедура PrintColorStrings.

Выводятся на экран строки из массива str.

N – количество строк в массиве str.

При выводе строк ЦВЕТОМ помечаются те символы,

которые есть в множестве S.}

procedure PrintColorStrings(const str: ArrayTString;

N: Integer;

var S: SetChar);

var

i, j: integer;

begin

writeln;

textcolor(LightBlue); {Цвет – голубой}

writeln('Гласные буквы выделены цветом');

{Проход по всем строкам массива str}

for I := 1 to n do

begin