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

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

Процедуры STR и VAL.

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

...

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

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

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

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

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

Вложенные итерационные циклы.

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

Процедура 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
ооо это уже интересно
Ответить
 

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

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

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