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

Центрирование строки текста в программах Turbo Pascal

Среда
24 мая 2017 года

Центрирование строки текста в программах Turbo Pascal

Процедура Middle выводит на экран строку текста, центрируя ее. Длина выводимой строки не должна превышать 80 символов. Для удобства работы с процедурой в ней предусмотрен контроль длины выводимой строки. Если длина строки превышает 80 символов, то выдается рекоменia сколько необходимо уменьшить число символов в строке, и выполнение программы прерывается (аварийное завершение программы).

{------------------------	 Middle		------------------------	
Процедура выводит строку текста, центрируя её на строке 
Stroka - вводимая строка 
Y      - координата Y
------------------------	middle.inc	------------------------}
PROCEDURE Middle (Stroka : string; Y : integer); 
{$I waitdos.inc }
VAR
X   : integer; 
BEGIN
if Length (Stroka) > 80 then begin
GotoXY (18,8) ;
Writeln ('Текст сообщения в строке, начинающийся с: '); 
GotoXY (21,10);
Write ('"',Copy (Stroka,1,30), '..."'); 
GotoXY (29,12);
Write (' превысил 80 символов ! '); 
GotoXY (18,14);
Write ('Уменьшите длину текста на '); 
Write (Length (Stroka) - 80, ' символов(ов)'); 
WaitDos (6);
Halt;{аварийное завершение программы } 
end; 
X := (80 - Length (Stroka)) div 2; 
GotoXY(X,Y); 
Writeln (Stroka); 
END;

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

PROGRAM DemoMiddle; 
USES Crt, Dos; 
CONST
Stroka_l = 'Пример вывода строки сообщения';
Stroka_2 = 'с использованием процедуры Middle.inc';
Stroka 3 = '  Ждите 7 секунд до завершения программы ...';
{$I middle.inc }
{$I waitdos.inc } 
BEGIN
ClrScr;
TextColor (11) ;
Middle (Stroka_l, 10);
Middle (Stroka_2, 12);
TextColor (4);
TextBackGround (15);
Middle (Stroka_3, 18);
WaitDos   (7); 
END.

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

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

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

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

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

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


Счетчики






Реклама

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



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