Процедуры Dec и Inc в Pascal.

При работе с целыми числами используются процедуры DEC и INC. Процедура Dec уменьшает число на определенное значение, а процедура Inc увеличивает число на определенное значение.

Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...

Функции Pred, Succ в Pascal.

В данном уроке мы рассмотрим функции, применяемые к типу CHAR. Функция Pred возвращает в качестве значения предшествующий символ, а функция Succ возвращает последующий символ.

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

Вложенный арифметический цикл.

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

Инициализация одномерного массива.

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

Процедура Bar3D используется в Паскаль для рисования прямоугольных параллелепипедов.

 Рисование прямоугольных параллелепипедов с помощью процедуры Bar3d.




Program Graphika12;
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;
setcolor (5);
setlinestyle(2,0,3);
setfillstyle (6,7);
bar3d (100,100,300,500,50,topon);
readln;
closegraph;
end.




В строке №19 устанавливаем цвет для линий, из которых будет состоять параллелепипед.

В строке №20 устанавливаем тип и толщину линий, из которых будет состоять параллелепипед.

В строке №21 устанавливаем тип и цвет заполнения параллелепипеда. Причем процедура SetFillStyle действует только на переднюю стенку параллелепипеда.

В строке №22 записываем процедуру Bar3D. После записи этой процедуры в круглых скобках записываются параметры.

Grafika v Pascal, Procedura Bar3D.

Если посмотреть на рис., то точке «A» соответствуют первые 2 параметра процедуры Bar3d, определяющие верхний левый угол передней стенки параллелепипеда (в нашем примере 100,100). Точке «B» соответствуют 3-й и 4-й параметры процедуры Bar3d, определяющие правый нижний угол передней стенки параллелепипеда (в нашем примере 300,500). Расстояние «A – C» соответствует 5-му параметру в процедуре Bar3d, который определяет глубину параллелепипеда (в нашем примере 50). Шестой параметр может принимать только 2 значения: либо TopOn (как в нашем примере), либо TopOff. TopOn означает, что верхняя грань параллелепипеда вычерчивается. TopOff означает что верхняя грань параллелепипеда не вычерчивается (этот вариант используется, когда необходимо нарисовать параллелепипеды, поставленные друг на друга).

bar3d

bar3d.


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

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

Следующая статья : Процедуры Circle и Arc.


Комментарии  

 
0 # nurbeksoft 16.03.2013 13:41
ооо это уже интересно
Ответить
 

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

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

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