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

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

Применение логических операций с оператором IF.

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

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

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

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

Структурное программирование

Самое главное в программировании - это научиться писать четкие, логические и структурированные программы.

• Используйте осмысленные имена для переменных, процедур и функций.

• Используйте отступы ...

Массив строк типа STRING.

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

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

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

 

Комментарии  

 
-60 # Нео 02.12.2012 12:33
изучал Visual Basic, JS, PHP. Мгу сказать тольк что паскаль такое дерьмо :lol:
Ответить
 
 
+60 # Sauron 06.12.2012 12:21
Могу сказать, что вы невежда. Во-первых Visual Basic - это среда программировани я, а не язык, в отличии от JavaScript и PHP. Во-вторых, паскаль -это язык программировани я для НАЧИНАЮЩИХ!
Ответить
 
 
+27 # Антон 25.02.2013 11:49
Да, для начинающих просто отличный язык!)
Ответить
 
 
0 # VRziy 30.01.2022 09:22
согласен :lol:
Ответить
 
 
+21 # Петяй 20.03.2013 21:50
А ты лучше язык придумал?
Ответить
 
 
-31 # Ahtung 06.12.2012 16:17
:D :lol: :-) ;-) 8) :-| :-* :oops: :sad: :cry: :o :-? :-x :eek: :zzz :P :roll: :sigh:
Ответить
 
 
+2 # Настаси 07.03.2014 16:12
мне 13 лет, в школе изучаю язык програмирования , этот сайт мне во многом помог, но я не могу найти как виводить символы разного цвета в одной строке, кто знает, подскажите пожалуйста
Ответить
 
 
+11 # Дмитро 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
это свет не нравится
Ответить
 
 
+9 # Илюха 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.
Ответить
 
 
+12 # Для 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.
Ответить
 
 
+6 # Для 27.07.2015 17:14
textcolor(i mod 16);**
Ответить
 
 
0 # сергей 14.07.2016 21:19
это программа выводит весть слов(b) разного цвета, а не буквы разного цвета
Ответить
 
 
+2 # Александр Филон 24.02.2016 09:49
а как можно сделать цвет рандомный выводимого текста?
Ответить
 
 
+9 # Таня 24.03.2016 19:37
X:=randon(16);
Textcolor(x);
Ответить
 
 
+4 # Михаил 06.06.2016 18:09
какой такой randoN? :lol: :D
Ответить
 
 
+2 # Vasil 29.09.2021 18:39
Random
Ответить
 
 
0 # попуск 15.11.2021 13:24
:oops:
Ответить
 
 
0 # VRziy 30.01.2022 09:17
http://mojainformatika.ru/images/stories/pascal/nachalo/textbackground%20textcolor%20window.png не весь код что показано на http://mojainformatika.ru/images/stories/pascal/nachalo/textbackground%20textcolor%20window..png ПОТОМУ ЧТО нету gotoxy а на показе видно что надпись сдвинута с края окна! а так СПС :lol: :D :-) :lol:
Ответить
 

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

   ГлавнаяПаскальУроки Паскаль Textcolor, Window, Textbackground в Pascal.