МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ Національний університет «Львівська політехніка» Кафедра АСУ Звіт до лабораторної роботи №4 з курсу “Об'єктно орієнтоване програмування” Варіант 8 Бунь І.П. Тема Робота з графікою Мета роботи: вивчити можливості графічної підсистеми Delphi 5, її властивості та принципи побудови прикладних програм з використанням графіки. Порядок роботи: Створити проект для виконання індивідуального завдання. Оформити звіт для захисту лабораторної роботи за зразком назва роботи мета роботи порядок роботи короткі теоретичні відомості алгоритм розв’язку задачі тексти відповідних модулів проекту аналіз отриманих результатів та висновки Завдання Створити програму, яка будує криві за заданим параметричним представленням (варіанти 1, 3, 5, 7, 9, 11, 13, 15, 17) або по їх рівняннях у полярних координатах (варіанти 2, 4, 6, 8, 10, 12, 14, 16, 18). Параметричне представлення кривої
на площині з координатами
- це дві функції
,
, визначені на одній і тій самій числовій множині. Полярні координати
точки
на площині - це відстань
від фіксованої точки
(полюса) до точки
і кут
між
і полярною віссю (променем)
. 8. Спіраль Кейлі шостого порядку
,
. Тексти програм: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; ScrollBar1: TScrollBar; ScrollBar2: TScrollBar; ScrollBar3: TScrollBar; Label1: TLabel; StaticText1: TStaticText; procedure FormPaint(Sender: TObject); procedure ScrollBar1Change(Sender: TObject); procedure ScrollBar2Change(Sender: TObject); procedure ScrollBar3Change(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public procedure DrawFunc(Zoom,StartX,StartY:integer); { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.DrawFunc(Zoom,StartX,StartY:integer); procedure SetPoint(f:double;r:double;StX,StY:integer); var x,y:integer; begin x:=StX+round(R*cos(f)); y:=StY+round(R*sin(f)); Self.Canvas.Pixels[x,y]:=$ff; end; var fi,ro:double; a:double; begin a:=Zoom; fi:=0; while fi<(2.0*pi) do begin ro:=a/(cos(fi/3.0)*cos(fi/3.0)*cos(fi/3.0)); // ((1.0+cos((2*fi)/3.0))/2) SetPoint(Fi,Ro,StartX,StartY); fi:=fi+0.005; end; end; procedure TForm1.FormPaint(Sender: TObject); begin Canvas.FillRect(GetClientRect); DrawFunc(ScrollBar1.Position,ScrollBar3.Position,ScrollBar2.Position); end; procedure TForm1.ScrollBar1Change(Sender: TObject); begin Paint end; procedure TForm1.ScrollBar2Change(Sender: TObject); begin Paint end; procedure TForm1.ScrollBar3Change(Sender: TObject); begin Paint end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to 195 do begin StaticText1.Width:=i; end; end; end. Скріншоти роботи програми:

Висновок: На даній лабораторній роботі я практикувався у створенні ужитку з використанням GUI для зображення графіку заданої функції. Розглянув основні методи для роботи з графікою, а саме класу TCanvas.