Implementation
{$R *.dfm}
var
X:real;
Y:real;
N:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.Canvas do
begin
//график функции
X:=-3;
while X<6 Do
begin
X:=X+0.001;
Y := Cos(X);
// Pixels[Round(100*X)+200,200 - Round(20*Y)]:=clBlack;
Pixels[Round(50*X)+200,200 - Round(100*Y)]:=clBlack;
end;
MoveTo(0,200); LineTo(500,200); //Ось X
MoveTo(200,0); LineTo(200,500); //Ось Y
//Шкала оси X
N:=0;
while N<500 do
begin
N:=N+100;
MoveTo(N,200); LineTo(N,200);
TextOut(N-50,200,FloatToStr(Round(N-250)/50));
end;
//Шкала оси Y
N:=0;
while N<400 do
begin
N:=N+100;
MoveTo(200,400-N); LineTo(200,400-N);
TextOut(200,400-N,FloatToStr(Round((N-200)/100)));
end;
end;
end;
end.
Цветочек
Задание. Нарисовать цветочек на языке Delphi.
Тело программы.
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with Canvas do begin
Pen.Width:=2;
Form1.Canvas.Brush.Color := clYellow;
Form1.Canvas.Brush.Style := bsSolid;
Form1.Canvas.Ellipse(200, 200, 250, 250); // желтый кружочек
Form1.Canvas.Brush.Color := clWhite;
Form1.Canvas.Brush.Style := bsSolid;
Form1.Canvas.Ellipse(250, 250, 350, 200); // правый лепесток
Form1.Canvas.Brush.Color := clWhite;
Form1.Canvas.Brush.Style := bsSolid;
Form1.Canvas.Ellipse(200, 200, 250, 100); // верхний лепесток
Form1.Canvas.Brush.Color := clWhite;
Form1.Canvas.Brush.Style := bsSolid;
Form1.Canvas.Ellipse(100, 200, 200, 250); // левый лепесток
Form1.Canvas.Brush.Color := clWhite;
Form1.Canvas.Brush.Style := bsSolid;
Form1.Canvas.Ellipse(200, 250, 250, 350); // нижний лепесток
Pen.Width:=2;
MoveTo(242,240); LineTo(400,450);
Form1.Canvas.Arc(242,350,400,430,340,150,1450,900);
end;
end;
end.