ПОБУДОВА ЕЛЕМЕНТАРНИХ ГЕОМЕТРИЧНИХ ЗОБРАЖЕНЬ В СЕРЕДОВИЩІ ТУРБО-ПАСКАЛЬ. Звіт до лабораторної роботи з Комп'ютерна графіка. Робота № 522928

ПОБУДОВА ЕЛЕМЕНТАРНИХ ГЕОМЕТРИЧНИХ ЗОБРАЖЕНЬ В СЕРЕДОВИЩІ ТУРБО-ПАСКАЛЬ

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

ІКТА

Факультет:

КН

Кафедра:

Кафедра АТ

Інформація про роботу

Рік:

2013

Тип роботи:

Звіт до лабораторної роботи

Предмет:

Комп'ютерна графіка

Завантажити

Частина тексту файла (без зображень, графіків і формул):

МІНІСТЕРСТВО ОСВІТИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА Кафедра АТ ЗВІТ ДО ЛАБОРАТОРНОЇ РОБОТИ № 1 з курсу “Комп’ютерна графіка” на тему: “ПОБУДОВА ЕЛЕМЕНТАРНИХ ГЕОМЕТРИЧНИХ ЗОБРАЖЕНЬ В СЕРЕДОВИЩІ ТУРБО-ПАСКАЛЬ” ЗАВДАННЯ 10 Побудувати коло, вписане в квадрат. Радіус кола дорівнює 80. Блок-схема алгоритму Список ідентифікаторів констант, змінних, процедур і функцій INITGRAPH ( <драйвер>, <режим>, <шлях> ) – Процедура, яка встановлює графічний режим роботи адаптера GRAPHRESULT – Функція, яка повертає значення типу integer, в якому закодований результат останнього звертання до графічних процедур CLOSEGRAPH – Процедура, яка завершує роботу адаптера в графічному режимі і повертає текстовий режим. RACTANGLE (X1,Y1,X2,Y2) – Процедура,яка креслить прямокутник з вказаними координатами кутів; CIRCLE (X,Y,<радіус>) - Процедурака креслить коло, де X, Y - вирази типу integer, які визначають координати центру Gd – - змінна типу integer, яка визначає тип графічного драйвера Gm - - змінна типу integer, яка визначає тип графічного драйвера Текст програми Program Lab1; Uses graph,crt; Var Gd,Gm:integer; Begin Gd:=detect; Initgraph(Gd,Gm<”G:\Menchuk”); If GraphResult<>0 thenHat(1); circle(100,100,80); rectangle(20,20,180,180); repeat until keypressed; closegraph; end. Результат виконня рограми

Звіт до лабораторної роботи Комп'ютерна графіка

31.03.2013 16:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

поділитись