Построение таблицы значении функций

Лабораторная  работа №1.

 

Построение таблицы значении функций.

 

 

Постановка задачи:

Требуется для заданной функции 3*ln(x)-2 построить таблицу значений функции y при изменении аргумента х в диапазоне от a до b с заданным шагом h.

 

 

Алгоритм.

1. Ввод исходных данных: вид и параметры функции, границы отрезка [a,b], шаг его разбиения h.
2. Задание начального значения аргумента х = а.
3. Вычисление значения функции y в точке х и вывод на экран дисплея.
4. Увеличение значения аргумента х= х+h
5. Проверка условия x ≤ b. Если оно выполняется, то происходит переход к п. 3 алгоритма, в противном случае- останов.

 

Текст программы:

 

unit tabulfun;

   {табулирование функции}

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids,Buttons,ExtCtrls;

 

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    Button2: TButton;

    tabL: TStringGrid;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  

    procedure Button3Click(Sender: TObject);

    {procedure Button3Click(Sender: TObject); }

 

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  a,b,h,x:real; m:integer;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=StrToFloat(edit1.Text);

b:=StrToFloat(edit2.Text);

h:=StrToFloat(edit3.Text);

 

end;

 

procedure TForm1.Button2Click(Sender: TObject);

function f(x:real):real;

{определение  функции}

 

begin

f:=3*ln(x)-2

end;

  var i:integer;

  begin

  {вычисление  значений функции и построение  таблицы}

  m:=round((b-a)/h)+2; {определение количества отрезков}

  tabL.RowCount:=m;{задание  числа строк в таблице}

  tabL.Cells[0,0]:=' x';

  tabL.Cells[1,0]:=' f(x)';

  x:=a;

  for i:=1 to m do

  begin

  tabL.Cells[0,i]:=FloatToStr(x);

   tabL.Cells[1,i]:=FloatToStr(f(x));

   x:=x+h;

   end;

   end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

close

end;

 

end.

 

 

 

 

 

 

 

Реализация  алгоритма:

После  запуска Delphi и открытия формы разместим в нем следующие объекты вкладки Стандарт панели визуальных компонентов:

1. поля редактирования Edit для ввода исходных данных: значений левой а и правой b границ интервала, шага h изменения аргумента функции
2. метки Label для вывода заголовков и пояснений
3. кнопки Button для управления работой программы;
4. таблицу( объект StringGrid вкладки Additional панели визуальных компонентов)для размещения и вывода результата.

 Общий вид окна формы с  выбранными компонентами представлен на рисунке:

 

 

 

 

 

После задания  исходных данных, программа вывела в таблице значения

 

 

 

 

 

 

 

 

Вывод:

Самый простой  способ выявить характер функции- это  построить таблицу значений данной функции, что мы и сделали. С помощью  разработанной программы построена таблица значений функции y=3ln(x)-2. Как видно из таблицы, заданная функция монотонно возрастает на интервале [a,b], где a=5, b=15