28-сурет
Ішкі бағдарлама листингі:
unit Unitl;
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject); begin
with Canvas do begin
// жалауша
Canvas.Pen.Width := 1; Canvas.Pen.Color := clBlack; Canvas.Brush.Color := clCream; Rectangle(30,30,150,115);
// сақиналар
Pen.Width := 2;
Brush.Style := bsClear; // шеңбердің ішкі аймағын боямау
Pen.Color := clBlue; Ellipse(40,40,80,80); Pen.Color := clBlack; Ellipse(70,40,110,80); Pen.Color := clRed; Ellipse(100,40,140,80); Pen.Color := clYellow; Ellipse(55,65,95,105); Pen.Color := clGreen; Ellipse(85,65,125,105); end; end;
end.
№18. Функция графигін салу
Жұмыстың мақсаты – түрлі функциялар графигін салатын бағдарлама құру. Төменде үлгі үшін сызықтық және квадраттық фукциялардың графиктерін (0-7) аралығында салу қарастырылды. Бағдарламада кезкелген графикті (0-15) аралығында құруға болады.
Достарыңызбен бөлісу: |
