Цвет Опции

[Антон]

Кто-нибудь, подскажите, пожалуйста, как менять цвет в строках. Желательно с примером. Не судите строго – я Паскалем второй день занимаюсь.
И ещё со звуком не понятно, написанно sound(Hz:word), как правильно написать, чтобы заработало?
Заранее благодарен.

[volvo]

Антон

Цвет строки в текстовом режиме меняется процедурой TextColor(color). Также можно менять цвет фона - TextBackground(bgColor). Например, чтобы выводить символы красного цвета на белом фоне -

Код

 Uses Crt;
Begin
 TextColor(Red);
 TextBackground(White);
 Write('test');
End.

Важно не забывать восстанавливать исходные значения цветов перед выходом из программы:

Код

 TextColor(LightGray);
 TextBackground(Black);

Процедура Sound(freq) - заставляет встроенный динамик компьютера издавать звук частоты freq Герц. Способ использования:

Код

Uses Crt;
Begin
 Sound(2000);
 Delay(5000); { время звучания }
 NoSound; { обязательно, т.к. без этой процедуры звук не прекратится даже после окончания работы программы}
End;

Сообщение отредактировано: volvo - 23.10.2004 12:41