GotoXY в Pascal.

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

Использование Var, Integer, Readln.

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

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

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

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

Программирование циклов. Оператор безусловного перехода.

Цикл — это последовательность операторов, которая может выполняться более одного раза. В языке Паскаль разработано три механизма для конструирования циклов, использующих операторы FOR, WHILE, REPEAT.

...

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

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

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

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

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

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

   ГлавнаяПаскальГрафика в ПаскальВывод текста на экран в графическом режиме.