На главную Самоучитель pascal Форум программистов онлайн Решение задач pascal Задачи pascal Поиск
28 Июн 13

Оформление текста на экране в Паскаль


Комментарии :  3        Просмотры :  15871



Оформление и разметку текста используют довольно редко , однако бывают случаи , когда они вам пригодятся.

Возможно , когда-нибудь вы столкнетесь с такой задачей : как оформить текст в паскале.

В данной статье вы узнаете о том , как изменить цвет текста , как добавить цветной фон , как очистить экран и т.д.

Модуль crt

Для всех ниже приведенных функций требуется подключать дополнительный модуль crt. Подключать его нужно в блоке uses :
program mypascal;
uses crt;

Если вы не подключите данный модуль , то функции по оформлению текста не будут работать.

После того , как вы его подключите , программа будет работать в новом окне размером 80x25. Представлять такое окно можно как таблица в 25 строк и 80 столбцов.

Рабочее окно программа в модуле crt

GotoXY

Когда мы выводим текст на экран , то курсор находится в координате 1,1 ( столбец-1 , строка-1 ). Но для того , чтобы изменить место положение выводимого текста , в паскале предусмотрена функция gotoxy.
program mypascal;
uses crt;
begin
gotoxy(25,5);
writeln('Hello');
end.
Применение gotoxy

TextColor

Стандартно , в языке программирования паскаль текст выводится строго черным цветом , но его также можно изменить. Изменить цвет текста можно командой textcolor. Чтобы изменить цвет текста требуется использовать команду textcolor(red) , а в скобках указать цвет ( например red ). В скобках можно использовать название цвета , а также код цвета.

Таблица цветов

Но стоит помнить , что команда textcolor не меняет весь текст на экране ,а только тот , который выводится после этой команды.
program mypascal;
uses crt;
begin
writeln('Hello');
textcolor(green);
writeln('Hello');
end.

Результат выполнения данной программы будет выглядеть примерно так :
Применение textcolor

Clrscr

Функция clrscr стирает весь текст , который был выведен на экран до использования данной функции. Также с помощью неё можно закрасить экран в определенный цвет. О том как это сделать читайте далее.

TextBackGround

Тексту также можно задавать цвет фона. Фон для текста задается командой textbackground. В скобках , в аналогии с textcolor можно указывать имя или код цвета.
program mypascal;
uses crt;
begin
writeln('Hello');
textbackground(green);
writeln('Hello');
end.

Результат выполнения данной программы будет выглядеть так :
Применение textbackground

С помощью данной команды можно задать фон всему рабочему окну программы,
Сделать это можно так :
program mypascal;
uses crt;
begin
textbackground(green);
clrscr;
writeln('Hello');
writeln('Hello');
end.

В данном случае всё окно рабочей программы будет окрашено в зеленый цвет.

Delay


С помощью команды delay можно остановить программу на определенное количество времени . Это время указывается в скобках в мкс.
program mypascal;
uses crt;
begin
delay(1000);
writeln('Hello');
end.

В данном случае на экран будет выведено сообщение "hello" с задержкой 1000 мкс.

Рейтинг материала : ( 5 / 10 )
Сообщить об ошибке
Комментарии :  3        Просмотры :  15871

Поиск

Решение задач

Если вас интересует решение какой-либо задачи , то вы можете опубликовать
её условие на нашем сайте или форуме. И в скором времени другие пользователи помогут вам.

Опубликовать на сайте

Опубликовать на форуме

Опрос

Какой ваш любимый раздел ?