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

UptoLike

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

Рубрика:

163

{Вывод номера строки голубым цветом}

textcolor(LightBlue);

write(i:2,'> ');

{Проход по всем символам i-й строки}

for j := 1 to length(str[i]) do {Length(str[i]) – количество

символов в строке str[i]}

begin

if str[i,j] in S {Если j-й символ i-й строки

имеется в множестве S}

then textcolor(LightGreen) {Тогда он выводится

светло-зеленым}

else textcolor(DarkGray); {Иначе – темно-серым}

write(str[i,j]); {Выводится символ}

end;

writeln; {После вывода всех символов i-й строки

переходим на следующую строку}

end; {Заканчивается цикл по строкам}

end;

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

Процедура выводит символы, содержащиеся в множестве S,

на экран.

S – множество.

Message – строка, выводимая перед выводом множества.

ColorMessage – цвет текста сообщения Message.

ColorSet – цвет символов множества S}.

procedure WriteSetChar(message: string; S: SetChar;

ColorMessage, ColorSet: Integer);

var

C: char; {Выводимый символ}

begin

{Вывод сообщения}