Побудова елементарних геометричних зображень в середовищі турбо-паскаль. Звіт з Інші. Робота № 300281

Побудова елементарних геометричних зображень в середовищі турбо-паскаль

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

ВУЗ:

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

Інститут:

Не вказано

Факультет:

Не вказано

Кафедра:

Не вказано

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

Рік:

2009

Тип роботи:

Звіт

Предмет:

Інші

Група:

ІБ – 44

Завантажити

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

Міністерство освіти і науки України Національний університет «Львівська політехніка» Звіт про виконання лабораторної роботи №1 на тему: «Побудова елементарних геометричних зображень в середовищі турбо-паскаль» Варіант №2 Виконав: ст. гр. ІБ-44 Перевірив: Баран Р.Д. Львів-2009 Мета роботи: Навчитися ініціалізувати графічний режим та вивчити основні графічні оператори мови Турбо-Паскаль, набути практичних навиків в складанні програм для побудови геометричних зобра-жень та графіків функцій. Блок-схема алгоритму програми: Готовий результат вихідного коду програми: program graphLab1; uses crt, graph; var driver, mode, gd, gm:integer; startX, startY, p:integer; x, y, z:integer; d1, d2, hd1, hd2: integer; color: Word; const basePercentage = 0.8; begin {pnp} clrscr; write('Enter horizontal: '); readln(d1); d1:=Abs(d1); write('Enter vertical: '); readln(d2); d2:=Abs(d2); driver:=detect; gd:=0; initgraph(gd,gm,'c:\tp7\bgi'); startX:=GetMaxX div 2; startY:=GetMaxY div 2; {draw poly for diamond} hd1:= d1 div 2; {half horiz} hd2:=d2 div 2; {half vert} x:=startX + hd1; y:=startY + hd2; moveto(startX + hd1, startY); lineto(startX, startY-hd2); lineto(startX - hd1, startY); lineto(startX, startY+hd2); lineto(startX + hd1, startY); ellipse(startX, startY, 0, 360, hd1, hd2); readkey; closegraph; end. Результат виконання програми: вів Висновок: В даній лабораторній роботі я навчився запускати графічний режим у середовищі мови «Турбо-Паскаль».

Звіт Інші

01.01.1970 03:01-

Коментарі

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

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

Маєш корисні навчальні матеріали, які припадають пилом на твоєму комп'ютері? Розрахункові, лабораторні, практичні чи контрольні роботи — завантажуй їх прямо зараз і одразу отримуй бали на свій рахунок! Заархівуй всі файли в один .zip (до 100 МБ) або завантажуй кожен файл окремо. Внесок у спільноту – це легкий спосіб допомогти іншим та отримати додаткові можливості на сайті. Твої старі роботи можуть приносити тобі нові нагороди!

поділитись