Использование program, begin…end, write, readln, Uses Crt, Clrscr.

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

Div, Mod, сложение, вычитание в Pascal.

Помимо операций умножения и сложения, над целочисленными переменными производятся операции Div (операция целочисленного деления), Mod (вычисление остатка от целочисленного деления), операция вычитания «-».

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

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

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

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

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

Оператор варианта CASE.

Иногда его называют также оператором выбора. Это оператор CASE, который является обобщением оператора IF и позволяет сделать выбор из произвольного числа имеющихся вариантов.

Процедура 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.


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

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

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