Версия для слабовидящих
Календарь
Февраль 2019
Пн Вт Ср Чт Пт Сб Вс
 123
45678910
11121314151617
18192021222324
25262728  
Полезные ссылки

komobr

 

iuu2

 


PostHeaderIcon Построение графика квадратичной функции

Построение графика квадратичной функции.

  1. Создайте форму и поместите на нее следующие объекты.

3.1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  1. Придайте им следующие значения:
Объект Свойство Значение
Form1 caption График квадратичной функции
Label1 caption График функции y=ax^2+bx+c
Label2 caption a=
Label3 caption b=
Label4 caption c=
Label5 caption Парабола
Button1 caption Построить график
Button2 caption Очистить
Edit1 text 0
Edit2 text 0
Edit3 text 0
Tchat    

3.Двойным кликом на окне Tchat вызвать его свойства и  в редакторе диаграмм добавить 3 графика    Chat1LineSAeries1:TLineSeries, Chat2LineSAeries1:TLineSeries, Chat3LineSAeries1:TLineSeries   

3

  Придать им свойства.

Объект Свойство Значение
Chat1LineSAeries1:TLineSeries Name fun
Chat2LineSAeries1:TLineSeries Name x1
Chat3LineSAeries1:TLineSeries Name y1

Создание программного кода

Двойным кликом на кнопке Button1 открыть окно программного кода и набрать код:

procedure TForm1.Button1Click(Sender: TObject);

const

 N = 100;

 MIN = -10;

 MAX = 10;

var a,b,c: real;

  var

  i: Integer;

  x: Double;

begin

 a:=strtofloat(edit1.text);

 b:=strtofloat(edit3.text);

 c:=strtofloat(edit4.text);

  for i:=0 to N-1 do begin

    x := MIN + (MAX – MIN) * i /(N – 1);

     x1.AddXY(x, 0);

     y1.AddXY(0,x);

    fun.AddXY(x, a*x*x+b*x+c);

end;

В код кнопки Button2 вставить код:

procedure TForm1.Button2Click(Sender: TObject);

begin

  edit1.clear;

  edit3.clear;

  edit4.Clear;

   fun.clear;

   x1.clear;

   y1.Clear;

end;

Скачать файлы проекта. (RaR)

Оставить комментарий