Поиск
Версия для слабовидящих
Календарь
Февраль 2019
Пн Вт Ср Чт Пт Сб Вс
 123
45678910
11121314151617
18192021222324
25262728  
Случайное фото
rebus_5e IMG_0415 gr_ek_3 Наградной лист 4. Добровольский П М IMG_0840 IMG_0871 IMG_2765 3 ris1 IMG_4157
Опросы

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

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

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

komobr

 

iuu2

 


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

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

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

  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)

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