Константы в Pascal.

Иногда, бывает так, что у нас в программе встречаются величины, которые не меняются в процессе выполнения программы (т.е. фактически они противоположность переменных). Такие величины называются константами. Константы указываются в специальном ...

Перевод числа из десятичной системы счисления в шестнадцатеричную.

Напишем программу, которая вводит с клавиатуры целое число в диапазоне от 0 до 15 и преобразует его к шестнадцатеричной системе счисления. Напомню, что в шестнадцатеричной системе счисления числа в диапазоне от 0 до 9 соответствуют таким же числам в ...

Функции LENGTH и CONCAT.

Функция Length возвращает в качестве значения длину строки. Например, если в строковой переменной «stroka» записано слово «Pascal», то Length(stroka) будет равно 6. Эта операция аналогична операции Ord(stroka[0]), которую мы разбирали в 1-м уроке. ...

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

Табулирование функций.

Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: Х0, Хn – начало и конец ...

Сортировка одномерного массива. Метод пузырька.

Сортировка — перестановка местами объектов в определенном порядке. Известно несколько сотен алгоритмов сортировки и их модификаций.

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

Текст, который мы выводим на экран с помощью процедуры 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 подчеркивает, что он умеет управлять способами вывода на экран.

 

Комментарии  

 
-69 # Нео 02.12.2012 12:33
изучал Visual Basic, JS, PHP. Мгу сказать тольк что паскаль такое дерьмо :lol:
Ответить
 
 
+59 # Sauron 06.12.2012 12:21
Могу сказать, что вы невежда. Во-первых Visual Basic - это среда программировани я, а не язык, в отличии от JavaScript и PHP. Во-вторых, паскаль -это язык программировани я для НАЧИНАЮЩИХ!
Ответить
 
 
+27 # Антон 25.02.2013 11:49
Да, для начинающих просто отличный язык!)
Ответить
 
 
+19 # Петяй 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 лет, в школе изучаю язык програмирования , этот сайт мне во многом помог, но я не могу найти как виводить символы разного цвета в одной строке, кто знает, подскажите пожалуйста
Ответить
 
 
+9 # Дмитро 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;
...
Ответить
 
 
-8 # 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.
Ответить
 
 
+8 # Для 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
напишите как правильно будет
Ответить
 
 
+2 # Александр Филон 24.02.2016 09:49
а как можно сделать цвет рандомный выводимого текста?
Ответить
 
 
+5 # Таня 24.03.2016 19:37
X:=randon(16);
Textcolor(x);
Ответить
 
 
+5 # Михаил 06.06.2016 18:09
какой такой randoN? :lol: :D
Ответить
 

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

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

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