Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
ПОБУДОВА ЕЛЕМЕНТАРНИХ ГЕОМЕТРИЧНИХ ЗОБРАЖЕНЬ В СЕРЕДОВИЩІ ТУРБО-ПАСКАЛЬ
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра АТ
Інформація про роботу
Рік:
2005
Тип роботи:
Завдання
Предмет:
Комп'ютерна графіка
Група:
КС-23
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА
Кафедра АТ
ЗВІТ ДО ЛАБОРАТОРНОЇ РОБОТИ № 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.
Результат виконня рограми
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора