Использование Var, Integer, Readln.

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

Ввод символов с клавиатуры.

Ввод символов с клавиатуры почти не отличается от ввода чисел с клавиатуры. Для того чтобы ввести какие-то символы (буквы, знаки и т.д.) с клавиатуры необходимо для переменных использовать символьный тип данных Char.

Тип данных Char. Функции Ord, Chr.

Мы с Вами уже рассмотрели типы данных, которые позволяют хранить и обрабатывать целые числа (integer) и дробные числа (real). Теперь рассмотрим тип данных, позволяющий хранить и обрабатывать различные символы. Символы – это все буквы и значки, ...

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

Вычисление предела последовательности.

Вычисление предела последовательности является типичной задачей на использование итерационного цикла.

Поиск минимального и максимального элементов массива.

Одной из наиболее распространенных задач обработки массивов является поиск минимального (максимального) элемента.

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

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

 

Комментарии   

-85 # Нео 02.12.2012 12:33
изучал Visual Basic, JS, PHP. Мгу сказать тольк что паскаль такое дерьмо :lol:
+74 # Sauron 06.12.2012 12:21
Могу сказать, что вы невежда. Во-первых Visual Basic - это среда программировани я, а не язык, в отличии от JavaScript и PHP. Во-вторых, паскаль -это язык программировани я для НАЧИНАЮЩИХ!
+33 # Антон 25.02.2013 11:49
Да, для начинающих просто отличный язык!)
+23 # Петяй 20.03.2013 21:50
А ты лучше язык придумал?
-36 # Ahtung 06.12.2012 16:17
:D :lol: :-) ;-) 8) :-| :-* :oops: :sad: :cry: :o :-? :-x :eek: :zzz :P :roll: :sigh:
+1 # Настаси 07.03.2014 16:12
мне 13 лет, в школе изучаю язык програмирования , этот сайт мне во многом помог, но я не могу найти как виводить символы разного цвета в одной строке, кто знает, подскажите пожалуйста
+14 # Дмитро 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;
...
-12 # Baxa 28.03.2014 07:57
это свет не нравится
+12 # Илюха 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.
+11 # Для 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.
+5 # Для 27.07.2015 17:14
textcolor(i mod 16);**
-1 # Николaй 17.10.2016 09:50
там выводит полностью слова закрашено,а нужно чтобы каждая буква имела цвет
+1 # сергей 14.07.2016 21:19
это программа выводит весть слов(b) разного цвета, а не буквы разного цвета
-1 # Николсй 17.10.2016 09:49
напишите как правильно будет
+1 # Александр Филон 24.02.2016 09:49
а как можно сделать цвет рандомный выводимого текста?
+6 # Таня 24.03.2016 19:37
X:=randon(16);
Textcolor(x);
+5 # Михаил 06.06.2016 18:09
какой такой randoN? :lol: :D
-2 # fghj 28.02.2017 12:43
:D
   ГлавнаяПаскальУроки ПаскальAbs, Sqr в Pascal.