Проект «График функции»
Постановка задачи. Создать проект «График функции» построения графиков функций x2 и x3 и вертикальных линий координатной сетки.
Схема выполнения
Разместить на форме графическое поле Image1, в котором будет производиться построение графика.
Разместить на форме кнопку и создать событийную процедуру построения графика, в которой будет:
Var
X:real;
Y:real;
N:integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
//Построениеграфиков
with Image1.Canvas do
begin
X:=-2.5;
while X<2.5 Do
Begin
X:=X+0.001;
Y := X*X;
Pixels[Round(100*X)+250,200 - Round(100*Y)]:=clBlack;
Y := X*X*X;
Pixels[Round(100*X)+250,200 - Round(100*Y)]:=clBlack;
end;
//ось X
MoveTo(0,200); LineTo(500,200);
//ось Y
MoveTo(250,0); LineTo(250,500);
//шкалаоси X
N:=0;
while N<500 do
begin
N:=N+50;
MoveTo(N,0); LineTo(N,400);
TextOut(N,200,FloatToStr((N-250)/100));
end;
//шкала оси Y
N:=0;
while N<400 do
begin
N:=N+100;
MoveTo(245,400-N); LineTo(255,400-N);
TextOut(245,400-N,FloatToStr(Round((N-200)/100)));
end;
end;
end;
Запустить проект и щелкнуть по кнопке Графики.
Сохранить проект.
Достарыңызбен бөлісу: |
