Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Побудова графічних зображень в середовищі Turbo Pascal.
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)
Інформація про роботу
Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Дискретна математика
Група:
ПІ
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет «Львівська політехніка»
Інститут комп’ютерних наук та інформаційних технологій
Кафедра ПЗ
ЗВІТ
Лабораторна робота № 1
з курсу «Дискретна математика»
Тема: "Побудова графічних зображень в середовищі Turbo Pascal”
Виконав: ст. гр. ПІ
Львів-2007
Завдання:
Створити програму на мові Паскаль, яка малює вказану кількість прямокутників по центру та трикутників в лівій нижній частині екрану.
Відлагодити, скомпілювати і зберегти програму.
Оформити звіт про роботу.
Текст програми
program lab01;
uses crt, graph;
var x, y,x1,y1,n,i,x2,y2,x3,y3: integer;
driver, mode: integer;
color: word;
maxColor: string;
begin
writeln('Введіть кількість фігур');
readln(n);
driver:=detect;
initGraph(driver, mode, 'd:\programs\tp71\bgi');
if graphResult <> 0 then halt(1);
color:=0;
randomize;
for i:=1 to n do
begin
x:=getmaxX div 3;
y:=getmaxy div 3;
x1:= x-random(x);
y1:= y*2+random(y);
x2:=x-random(x);
y2:=y*2+random(y);
x3:=x-random(x);
y3:=y*2+random(y);
Rectangle(x,y,x+random(x),y+ random(y));
begin
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x1,y1);
end;
setcolor(random(getmaxcolor));
setfillstyle(random(12), Lightred);
end;
readln;
closegraph;
end.
Висновок:
На цій роботі я вдосконалив свої вміння будувати графічні зображення в середовищі Turbo Pascal.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора