Ветвления в Pascal.

Ветвления в Паскаль позволяют выполнять действия не поочередно, как мы делали в предыдущих программах, а в зависимости от каких - либо условий. Для этого в языке программирования Pascal предусмотрены различные условные операторы. В данном уроке мы ...

Ввод логических переменных с клавиатуры.

В отличие от переменных целого, вещественного или символьного типов данных, булевские переменные нельзя вводить с клавиатуры, их можно только выводить на экран. Однако можно использовать небольшую хитрость. Для того чтобы можно было ввести булевскую ...

Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Циклы и массивы

Циклы с параметром. Оператор FOR.

Эти циклы организуются в программах, где заранее известно число повторений. При этом повторное выполнение сопровождается изменением управляющего параметра (переменной цикла).

Индексы одномерного массива.

Существует класс задач, в которых индекс массива используется для формализации вычислительного процесса путем сведения исходных формул к конечным суммам и произведениям. Преобразованные таким образом ...

Уроки Паскаль

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится текст. Процедура Window задает окно, в котором будет выводиться текст.

 program number4; uses crt; begin clrscr; Window (20,5,60,20); Textbackground (14); Textcolor (1); writeln(‘Это сообщение выводится синим цветом на желтом фоне’); readln end.

Строка №2. Подключаем к программе модуль Crt. Мы уже упоминали этот модуль, когда использовали процедуру очистки экрана Clrscr. Помимо этого данный модуль подключается к программе для управления способами вывода на экран. Он позволяет устанавливать курсор в нужную позицию на экране (gotoxy), устанавливать цвет фона (textbackground) и цвет выводимых символов (textcolor) и многое другое. В конце обязательно ставится точка с запятой.

Строка №5. Записываем процедуру Window. Эта процедура определяет, где на экране будет находиться текстовое окно. Window (x1, y1, x2, y2): (x1, y1) - координаты для верхнего левого угла окна. (x2,y2) – координаты для нижнего правого угла окна. Таким образом, запись Window (20,5,60,20) означает, что у нас задается окно. Его координаты: левый верхний угол (20,5) и нижний правый угол (60,20). Ниже дана простая схема.

razmetka okna v windows

Самый большой черный прямоугольник – это весь экран. В компиляторе Turbo Pascal ширина экрана равна 80 столбцам и 43 строкам (для Free Pascal - 80 столбцов и 38 строк). Красный прямоугольник внутри – это экран, определяемый процедурой Window (20,5,60,20). Самое главное здесь – запомнить, что координаты отмеряются с верхнего левого угла. Теперь все действия, которые будут производится в программе (например, вывод сообщения на экран) будут производится в этом окне.

В строке №6 записываем процедуру Textbackground, которая устанавливает цвет для фона, на котором будет выводиться текст. После записи слова Textbackground в скобках указывается значение. Мы указали значение 14. Это число соответствует желтому цвету в палитре цветов Паскаля. Ниже находится таблица, в которой указаны все 16 цветов, входящих в палитру цветов Паскаля.

В строке №7 записываем процедуру Textcolor. Эта процедура устанавливает цвет для выводимого на экран текста. После записи Textcolor в скобках записываем значение 1, что соответствует синему цвету.

palitra tsvetov v Pascal

Строка №8. Выводим на экран сообщение.

Теперь набрем программу в Паскале и запустим ее.

textbackground textcolor window

textbackground textcolor window.

У нас выводится сообщение. Обратите внимание, что оно выводится не в начале экрана, а в начале невидимого экрана, определенного процедурой Window. Кроме того, сообщение выводится, синим цветом, на желтом фоне. Это действие Textbackground и Textcolor.



Дополнение к материалу.

CRT – английская аббревиатура, которая обозначает электронно-лучевую трубку. Таким образом, название модуля Crt подчеркивает, что он умеет управлять способами вывода на экран.

 

Комментарии  

 
-72 # Нео 02.12.2012 12:33
изучал Visual Basic, JS, PHP. Мгу сказать тольк что паскаль такое дерьмо :lol:
Ответить
 
 
+63 # Sauron 06.12.2012 12:21
Могу сказать, что вы невежда. Во-первых Visual Basic - это среда программировани я, а не язык, в отличии от JavaScript и PHP. Во-вторых, паскаль -это язык программировани я для НАЧИНАЮЩИХ!
Ответить
 
 
+29 # Антон 25.02.2013 11:49
Да, для начинающих просто отличный язык!)
Ответить
 
 
+21 # Петяй 20.03.2013 21:50
А ты лучше язык придумал?
Ответить
 
 
-29 # Ahtung 06.12.2012 16:17
:D :lol: :-) ;-) 8) :-| :-* :oops: :sad: :cry: :o :-? :-x :eek: :zzz :P :roll: :sigh:
Ответить
 
 
0 # Настаси 07.03.2014 16:12
мне 13 лет, в школе изучаю язык програмирования , этот сайт мне во многом помог, но я не могу найти как виводить символы разного цвета в одной строке, кто знает, подскажите пожалуйста
Ответить
 
 
+10 # Дмитро 29.10.2015 18:01
textcolor(); write();
textcolor(); write();
textcolor(); write();
textcolor(); write();
textcolor(); write();
і так дальше або
...
for i:=0 to 15 do
begin
textcolor(i);
write('G');
end;
...
Ответить
 
 
-9 # Baxa 28.03.2014 07:57
это свет не нравится
Ответить
 
 
+10 # Илюха 11.08.2014 04:01
Настаси,вот лови для тебя писал
uses crt;
var j,a,i:integer;
b:string;
begin
textbackground(0);
clrscr;
j:=1;
readln(b);
a:=Length(b);
for i:=1 to a do
begin
textcolor(j);
j:=j+1;
if j=15 then j:=1;
write(b);
end;
writeln;
end.
Ответить
 
 
+9 # Для 27.07.2015 17:11
Начинающий?
Можно проще и короче.
uses crt;
var i:integer;
b:string;
begin
clrscr;
readln(b);
for i:=1 to length(b) do
begin
textcolor(i-i+(i mod 15));
write(b);
end;
readkey;
end.
Ответить
 
 
+4 # Для 27.07.2015 17:14
textcolor(i mod 16);**
Ответить
 
 
0 # Николaй 17.10.2016 09:50
там выводит полностью слова закрашено,а нужно чтобы каждая буква имела цвет
Ответить
 
 
+1 # сергей 14.07.2016 21:19
это программа выводит весть слов(b) разного цвета, а не буквы разного цвета
Ответить
 
 
0 # Николсй 17.10.2016 09:49
напишите как правильно будет
Ответить
 
 
+3 # Александр Филон 24.02.2016 09:49
а как можно сделать цвет рандомный выводимого текста?
Ответить
 
 
+5 # Таня 24.03.2016 19:37
X:=randon(16);
Textcolor(x);
Ответить
 
 
+4 # Михаил 06.06.2016 18:09
какой такой randoN? :lol: :D
Ответить
 
 
0 # fghj 28.02.2017 12:43
:D
Ответить
 

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальУроки Паскаль