
Оформление и разметку текста используют довольно редко , однако бывают случаи , когда они вам пригодятся.
Возможно , когда-нибудь вы столкнетесь с такой задачей : как оформить текст в паскале.
В данной статье вы узнаете о том , как изменить цвет текста , как добавить цветной фон , как очистить экран и т.д.
Модуль crt
Для всех ниже приведенных функций требуется подключать дополнительный модуль crt. Подключать его нужно в блоке uses :
1 2 |
program mypascal; uses crt; |
Если вы не подключите данный модуль , то функции по оформлению текста не будут работать.
После того , как вы его подключите , программа будет работать в новом окне размером 80×25. Представлять такое окно можно как таблица в 25 строк и 80 столбцов.
GotoXY
Когда мы выводим текст на экран , то курсор находится в координате 1,1 ( столбец-1 , строка-1 ). Но для того , чтобы изменить место положение выводимого текста , в паскале предусмотрена функция gotoxy.
1 2 3 4 5 6 |
program mypascal; uses crt; begin gotoxy(25,5); writeln('Hello'); end. |
Стандартно , в языке программирования паскаль текст выводится строго черным цветом , но его также можно изменить. Изменить цвет текста можно командой textcolor. Чтобы изменить цвет текста требуется использовать команду textcolor(red) , а в скобках указать цвет ( например red ). В скобках можно использовать название цвета , а также код цвета.
Но стоит помнить , что команда textcolor не меняет весь текст на экране ,а только тот , который выводится после этой команды.
1 2 3 4 5 6 7 |
program mypascal; uses crt; begin writeln('Hello'); textcolor(green); writeln('Hello'); end. |
Результат выполнения данной программы будет выглядеть примерно так :
Clrscr
Функция clrscr стирает весь текст , который был выведен на экран до использования данной функции. Также с помощью неё можно закрасить экран в определенный цвет. О том как это сделать читайте далее.
TextBackGround
Тексту также можно задавать цвет фона. Фон для текста задается командой textbackground. В скобках , в аналогии с textcolor можно указывать имя или код цвета.
1 2 3 4 5 6 7 |
program mypascal; uses crt; begin writeln('Hello'); textbackground(green); writeln('Hello'); end. |
Результат выполнения данной программы будет выглядеть так :
С помощью данной команды можно задать фон всему рабочему окну программы,
Сделать это можно так :
1 2 3 4 5 6 7 8 |
program mypascal; uses crt; begin textbackground(green); clrscr; writeln('Hello'); writeln('Hello'); end. |
В данном случае всё окно рабочей программы будет окрашено в зеленый цвет.
Delay
С помощью команды delay можно остановить программу на определенное количество времени . Это время указывается в скобках в мкс.
1 2 3 4 5 6 |
program mypascal; uses crt; begin delay(1000); writeln('Hello'); end. |
В данном случае на экран будет выведено сообщение «hello» с задержкой 1000 мкс.