Поиск
Версия для слабовидящих
Календарь
Февраль 2019
Пн Вт Ср Чт Пт Сб Вс
 123
45678910
11121314151617
18192021222324
25262728  
Случайное фото
rebus_9e захаркина-14 IMG_0219 IMG_0572 IMG10178 ris7 IMG_0049 IMG_0080 IMG_0088 IMG10209
Опросы

Как вам мой сайт

Просмотреть результаты

Загрузка ... Загрузка ...
Полезные ссылки

komobr

 

iuu2

 


Статистика посещений

04.02.2019

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

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

  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)