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

UptoLike

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

Рубрика:

164

textcolor(ColorMessage); {Цвет текста сообщения}

Write(message);

{Вывод символов, хранящихся в множестве}

textcolor(ColorSet); {Цвет символов множества}

For c := #0 to #255 do

{Если символ есть в множестве, он выводится}

If c in S then write(c, ' ');

Writeln;

end;

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

Выводит сообщение message на экран.

ColorMessage – цвет символов сообщения.

После вывода сообщения ждет нажатия любой клавиши.}

procedure WaitPressed( message: string;

ColorMessage: Integer);

begin

textcolor(ColorMessage); {Установить цвет текста}

write(message); {Вывод сообщения}

readkey; {Ожидание нажатия любой клавиши}

writeln;

end;

const

{Множество всех гласных букв}

AllGlasn : SetChar = ['а', 'я', 'у', 'ю', 'э', 'е', 'о',

'ё', 'и', 'ы',

'А', 'Я', 'У', 'Ю', 'Э', 'Е', 'О',

'Ё', 'И', 'Ы' ];

var

ArrayStr : ArrayTString; {Массив строк}

N : integer; {Количество введенных строк}