Лабораторна работа №10. Бібліотека Graph. Графічний режим. (мовою Паскаль Pascal)

Мета роботи: Придати практичні навички розробки програм роботи з бібліотекою Graph.

{выбираем случайный цвет из нашей гаммы}
repeat
c:=random(16);
until c in cv;
setcolor(c);
{закрашиваем грань}
setfillstyle(1,c);
fillpoly(5,p);
{обводим толстой черной линией}
setcolor(0);
setlinestyle(0,0,3);
drawpoly(5,p);
{левая}

Завдання

Намалювати куб. Передня ліва нижня вершина куба має координати (X,Y), довжина ребра A. Зафарбувати верхню грань, а в правої грані провести діагоналі.

1. Бородич Ю. С., Вальвачев А. Н., Кузмич А. И. Паскаль для персональных компьютеров. – М.: Наука, 1994 – 200 с.
2. Фаронов В. В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. –М.: «Нолидж», 1998. – 616 с.
3. Сухарев М. В. Основы Delphi. Профессиональный подход. – СПб.: Наука и техника, 2004. – 600 с.
4. Сайт “Pascaler” http://www.pascaler.ru/
5. Сайт “Программное обеспечение” http://software.lviv.ua/