Міністерство освіти і науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ ЗВІТ Лабораторна робота № 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.