> X: = X1 + (X2 - X1) div 2;
Y: = Y1 + (Y2 - Y1) div 2;: = 0; i <= 359 do begin.Pixels [Trunc (X + xR * Sin (i)), Trunc (Y + yR * Cos (i))]: = clLime;: = i + 0.1;; TMainForm.ButtonClearClick (Sender: TObject); PaintBox.Canvas do begin.Color: = clBlack; (PaintBox.ClientRect); TMainForm.PaintBoxPaint ( Sender: TObject);. Click; TMainForm.PaintBoxMouseDown (Sender: TObject;: TMouseButton; Shift: TShiftState; X, Y: Integer);: = X;: = Y; TMainForm.PaintBoxMouseUp (Sender: TObject; Button: TMouseButton; : TShiftState; X, Y: Integer); ElementsGroup.ItemIndex of
: Line (SX, SY, X, Y, PaintBox.Canvas);
: Circle (SX, SY, X, Y, PaintBox.Canvas);
: Ellipse (SX, SY, X, Y, PaintBox.Canvas);
end;
end.
Висновок: У ході проробленої контрольної роботи були розроблені алгоритми. Була написана програма, яка зображує на поверхні форми графічні примітиви: лінії, кола, еліпси.