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

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

Функции Sqr, Abs, Sqrt, Sin, Cos, Arctan, Ln, Exp, Pi в Pascal.

Мы уже знаем, какие существуют функции для целых переменных. Это – нахождение модуля числа (Функция Abc), а также возведение числа в квадрат (Функция Sqr). В этом уроке мы рассмотрим функции, применяемые к дробным числам. Это функции Sqr - квадрат ...

Тип данных Boolean. Значения True, False в Pascal.

Мы рассмотрели с Вами целый тип данных (integer), вещественный тип (real), символьный (char). В этом уроке мы рассмотрим тип данных, который имеет большое значение в программировании. Логический типBoolean. Одной из особенностей этого типа данных ...

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

Спецификация процедуры.

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

ЗАПИСИ. ТИП ДАННЫХ RECORD.

В описании данных и связей между ними используют понятия: запись логическая и запись физическая. Физическое описание данных определяет способ их хранения во внешней памяти ЭВМ. Логическое описание ...

Процедура cleardevice очищает экран. При этом указатель устанавливается в левый верхний угол с координатами (0, 0). Сам экран при этом заполняется цветом фона, который задается процедурой SetBkColor. Напишем программу, которая будет выводить треугольник на голубом фоне.

 Изменение цвета фона в Паскаль.





Program Graphika8;
Uses Graph;
Procedure Graphinterface;
Var  gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:=' ';
Initgraph(gd,gm,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end
end;
begin
Graphinterface;
setbkcolor(9);
cleardevice;
Line (120,210,520,210);
Line (120,210,320,10);
Line (320,10,520,210);
readln;
closegraph;
end.



Строка №18. Включаем графический режим с помощью процедуры «Graphinterface».

Строка №19. Записываем процедуру SetBkColor и в круглых скобках указываем для нее значение 9. Это значение соответствует   светло – синему цвету. Вместо указания числового кода можно записать константу, т.е. строка №19 может иметь вид «setbkcolor(LightBlue);». Таким образом, с помощью процедуры SetBkColor мы устанавливаем в качестве цвета фона светло – синий цвет.

В строке №20 записываем процедуру ClearDevice. Она предназначена для очистки графического экрана. Обратите внимание, мы применяем эту процедуру вовсе не для того, чтобы очистить экран, ведь мы пока еще ничего не нарисовали. Дело в том, что процедура ClearDevice очищает экран, заполняя его фоновым цветом, который задается с помощью процедуры SetBkColor. Сама по себе процедура SetBkColor работать не будет (она не меняет цвет фона). Поэтому если вы хотите задать тот или иной фон, необходимо после записи процедуры SetBkColor записать процедуру ClearDevice.

В строках №20 - №23 записываем знакомую нам процедуру Line, которая выводит на экран линии, с заданными координатами. В нашем примере координаты заданы таким образом, что 3 линии образуют треугольник.

ClearDevice, SetBkColor

ClearDevice, SetBkColor.


Предыдущая статья : Процедура PutPixel.

Оглавление : Уроки Паскаль. Графика.

Следующая статья : Процедура SetLineStyle.


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

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

   ГлавнаяПаскальГрафика в ПаскальГрафика в Паскаль.