Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Побудова елементарних геометричних зображень в середовищі турбо-паскаль
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
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.
Результат виконання програми:
вів
Висновок:
В даній лабораторній роботі я навчився запускати графічний режим у середовищі мови «Турбо-Паскаль».
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора