Побудова графічних зображень в середовищі Turbo Pascal. Лабораторна робота з Інформаційні технології. Робота № 110107

Побудова графічних зображень в середовищі Turbo Pascal

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

ВУЗ:

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

Інститут:

Не вказано

Факультет:

Не вказано

Кафедра:

Не вказано

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

Рік:

2015

Тип роботи:

Лабораторна робота

Предмет:

Інформаційні технології

Група:

ПІ-12

Завантажити

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

Міністерство освіти і науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ ЗВІТ Лабораторна робота № 1 з курсу «Дискретна математика» Тема: "Побудова графічних зображень в середовищі Turbo Pascal” Завдання: Створити програму на мові Паскаль, яка малює вказану кількість прямокутників по центру та трикутників в лівій нижній частині екрану. Відлагодити, скомпілювати і зберегти програму. Оформити звіт про роботу. Текст програми 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.

Лабораторна робота Інформаційні технології

2015

Коментарі

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

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

поділитись