Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Тип данных Char. Функции Ord, Chr.

Мы с Вами уже рассмотрели типы данных, которые позволяют хранить и обрабатывать целые числа (integer) и дробные числа (real). Теперь рассмотрим тип данных, позволяющий хранить и обрабатывать различные символы. Символы – это все буквы и значки, ...

Textcolor, Window, Textbackground в Pascal.

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

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

Сортировка одномерного массива. Метод пузырька.

Сортировка — перестановка местами объектов в определенном порядке. Известно несколько сотен алгоритмов сортировки и их модификаций.

Примеры линейных программ.

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

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

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

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

   ГлавнаяПаскальГрафика в ПаскальПроцедура SetUserCharSize.