Turbo Pascal
ГЛАВНАЯ | ЗАКАЗАТЬ РАБОТУ НА TURBO PASCAL | КАК ОПЛАТИТЬ? | О САЙТЕ | КОНТАКТЫ

Вывод строки с центрированием и изменением яркости символов

Вторник
25 апреля 2017 года

Вывод строки с центрированием и изменением яркости символов

Данная процедура Turbo Pascal обеспечивает вывод строки. Символы выводятся на черный фон белым цветом разной насыщенности, симметрично относительно левой и правой границам экрана. Вывод строки сопровождается звуковыми сигналами.

{--------------------------	 Colorstr	----------------------------	
Процедура вывода строки сообщения с центрированием. Строка выводится 
трижды на одно и то  же место. При  этом ее  цвет измеяется  и вывод 
строки сопровождается звуковыми сигналами. В данной процедуре  вывод 
осуществляется  на  экран  с  черным  фоном. Символы выводятся белым 
цветом разной насыщенности. Для  установки  других  цвето  в  фона и 
символов необходимо внести изменения в исходный текст процедуры
-------------------------	colorstr.inc ---------------------------}
PROCEDURE ColorStr (Stroka : string;  Y: integer);
{ текст сообщения не должен превышать 80 символов } 
( Y - строка вывода сообщения } 
{$I waitdos.inc } 
VAR
X   : integer;   { позиции начала вывода строки } 
BEGIN 
TextBackGround(O); 
ClrScr;
TextColor (15) ; { центрируем строку } 
if Length (Stroka) > 80 then begin
	TextColor(15); 
	GotoXY (18,8);
	Writeln ('Текст сообщения  в строке, начинающейся с:'); 
	GotoXY (21,10);
	Write ('"',Copy (Stroka,1,30), '..."'); 
	GotoXY (29,12) ;
	Write ('превысил 80 символов !'); 
	GotoXY (28,14); 
	Write   ('Сократите текст.'); 
	WaitDos (7) ; 
	Halt; 
end; 
X := (80 - Length (Stroka)) div 2; 
TextColor (13); 
GotoXY(X,Y);
Writeln (Stroka); 
WaitDos (2) ; 
TextColor (14); 
GotoXY (X,Y); 
Write (Stroka); 
Sound (3560); 
WaitDos (2); 
NoSound; 
TextColor(15); 
GotoXY (X,Y); 
Write (Stroka); 
Sound (2356); 
WaitDos (1); 
NoSound; 
END;

Пример использования процедуры ColorStr.

PROGRAM DemoColorStr; 
USES Crt, Dos;
($I colorstr.inc }   { вывод строки с изменяемым цветом }
{$I waitdos.inc  } 
BEGIN
ClrScr;
ColorStr   ('ФИРМА       ИНФОРМАТИК',   10);
TextColor (11);
GotoXY (1, 23);
Write ('Выход - Enter');
Readln; 
END.

Последние новости

Сервис инновация
заправка картриджей Предлагаю Вам оценить сайт наших партнеров - Сервисный центр по заправке картриджей "Сервис инновация". Они профессионально занимаются заправкой картриджей в Красноярске с 2007 года. Очень быстро и качественно оказывают заправку картриджей. Рекомендую!

Скупка новых картриджей

Если у на работе остались неипользованные новые картриджи, а принтер уже вышел из строя, мы купим у вас такие картриджи по высокой цене. Мы занимаемся скупкой новых картриджей в Красноярске.

скупка картриджей

Скупка новых картриджей уже многим принесла неплохой дополнительный заработок. Скупка осуществляется круглосуточно, без выходных. Осуществляется выезд к клиенту!


Счетчики






Реклама

Полезная информация



 
 
 
email
:tanucik2004@ya.ru Copyright © TP7.INFO, 2007-2013
icq
: 308-364-613
тел.
: +7 953 580 83 78