Интерполяционный полином Лагранжа

классических программных средств примерами низкоуровневой инкапсуляции

являются записи и массивы. Механизмом инкапсуляции среднего уровня являются

подпрограммы. В объектно-ориентированных системах инкапсулируются

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

состояниями. Для метрик учет инкапсуляции приводит к смещению фокуса

измерений с одного модуля на группу свойств и обрабатывающих модулей

(операций). Кроме того, инкапсуляция переводит измерения на более высокий

уровень абстракции. Напротив, классические метрики ориентированы на низкий

уровень – количество булевых условий (цикломатическая сложность) и

количество строк программы.

Информационная закрытость делает невидимыми операционные детали

программного компонента. Другим компонентам доступна только необходимая

информация. Качественные объектно-ориентированные системы поддерживают

высокий уровень информационной закрытости. Таким образом, метрики,

измеряющие степень достигнутой закрытости, тем самым отображают качество

объектно-ориентированного проекта.

Наследование – механизм, обеспечивающий тиражирование обязанностей

одного класса в другие классы. Наследование распространяется через все

уровни иерархии классов. Стандартные программные средства не поддерживают

эту характеристику. Поскольку наследование – основная характеристика

объектно-ориентированных систем, на ней фокусируются многие объектно-

ориентированные метрики (количество детей – потомков класса, количество

родителей, высота класса в иерархии наследования).

Абстракция – это механизм, который позволяет проектировщику выделять

главное в программном компоненте (как свойства, так и операции) без учета

второстепенных деталей. По мере перемещения на более высокие уровни

абстракции мы игнорируем все большее количество деталей, обеспечивая все

общее представление понятия или элемента. По мере перемещения на более

низкие уровни абстракции мы вводим все большее количество деталей,

обеспечивая более точное представление понятия или элемента. Класс – это

абстракция, которая может быть представлена на различных уровнях

детализации и различными способами. Поэтому объектно-ориентированные

метрики должны представлять абстракции в терминах измерений класса.

Классической мерой сложности внутренних связей модуля является

связность, а классической мерой сложности внешних связей – сцепление.

Связность модуля – мера зависимости его частей, это внутренняя

характеристика модуля. Чем выше связность модуля, тем лучше результат

проектирования. Для измерения связности используют понятие силы связности

(СС). Существует 7 типов связности:

1. Связность по совпадению (СС=0). В модуле отсутствуют явно выраженные

внутренние связи.

2. Логическая связность (СС=1). Части модуля объединены по принципу

функционального подобия. Например, модуль состоит из разных

подпрограмм обработки ошибок. При использовании такого модуля клиент

выбирает только одну из подпрограмм. Недостатками является сложное

сопряжение и большая вероятность внесения ошибок при изменении

сопряжения ради одной функции.

3. Временная связность (СС=3). Части модуля не связаны, но необходимы в

один и тот же период работы системы. Недостаток: сильная взаимная

связь с другими модулями, отсюда – сильная чувствительность к

внесению изменений.

4. Процедурная связность (СС=5). Части модуля связаны порядком

выполняемых ими действий, реализующих некоторый сценарий поведения.

5. Коммуникативная связность (СС=7). Части модуля связаны по данным

(работают с одной и той же структурой данных).

6. Информационная (последовательная) связность (СС=9). Выходные данные

одной части используются как входные данные в другой части модуля.

7. Функциональная связность (СС=10). Части модуля вместе реализуют одну

функцию.

Этот метод функционален по своей природе, поэтому наибольшей связностью

здесь объявлена функциональная связность. Вместе с тем одним из

принципиальных преимуществ объектно-ориентированного подхода является

естественная связность объектов. Максимально связанным является объект, в

котором представляется единая сущность и в который включены все операции

над этой сущностью. Следовательно, восьмой тип можно определить так:

8. Объектная связность. Каждая операция обеспечивает функциональность,

которая предусматривает, что все свойства объекта будут

модифицироваться, отображаться и использоваться как базис для

предоставления услуг.

Высокая связность – желательная характеристика, так как она означает,

что объект представляет единую часть в проблемной области, существует в

едином пространстве. При изменении системы все действия над частью

инкапсулируются в едином компоненте. Поэтому для производства изменения нет

нужды модифицировать много компонентов. Если функциональность в объектно-

ориентированной системе обеспечивается наследованием от суперклассов, то

связность объекта, который наследует свойства и операции, уменьшается. В

этом случае нельзя рассматривать объект как отдельный модуль – должны

учитываться все его суперклассы. Системные средства просмотра содействуют

такому учету. Однако понимание элемента, который наследует свойства от

нескольких суперклассов, резко усложняется.

В классическом методе Л. Констентайна и Э. Йордана определены шесть

типов сцепления, которые ориентированы на процедурное проектирование.

Принципиальное преимущество объектно-ориентированного проектирования в том,

что природа объектов приводит к созданию слабо сцепленных систем.

Фундаментальное свойство объектно-ориентированного проектирования

заключается в скрытости содержания объекта. Как правило, содержание объекта

невидимо внешним элементам. Степень автономности объекта достаточно высока.

Любой объект может быть замещен другим объектом с таким же интерфейсом. Тем

не менее наследование в объектно-ориентированных системах приводит к другой

форме сцепления. Объекты, которые наследуют свойства и операции, сцеплены с

их суперклассами. Изменения в суперклассах должны проводиться осторожно,

так как эти изменения распространяются во все классы, которые наследуют их

характеристики.

Таким образом, сами по себе объектно-ориентированные механизмы не

гарантируют минимального сцепления. Конечно, классы – мощное средство

абстракции данных. Их введение уменьшило поток данных между модулями и,

следовательно, снизило общее сцепление внутри системы. Однако количество

типов зависимостей между модулями выросло. Появились отношения

наследования, делегирования, реализации и т.д. Более разнообразным стал

состав модулей в системе (классы, объекты, свободные функции и процедуры,

пакеты). Отсюда вывод: необходимость измерения и регулирования сцепления в

объектно-ориентированных системах обострилась.

Сцепление – мера зависимости модулей по данным, внешняя характеристика

модуля, которую желательно уменьшать. Количественно сцепление измеряется

степенью сцепления (СЦ). Выделяют 6 типов сцепления:

1. Сцепление по данным (СЦ=1). Модуль А вызывает модуль В. Все входные

и выходные параметры вызываемого модуля – простые элементы данных.

2. Сцепление по образцу (СЦ=3). В качестве параметров используются

структуры данных.

3. Сцепление по управлению (СЦ=4). Модуль А явно управляет

функционированием модуля В (с помощью флагов или переключателей),

посылая ему управляющие данные.

4. Сцепление по внешним ссылкам (СЦ=5). Модули А и В ссылаются на один

и тот же глобальный элемент данных.

5. Сцепление по общей области (СЦ=7). Модули разделяют одну и ту же

глобальную структуру данных.

6. Сцепление по содержанию (СЦ=9). Один модуль прямо ссылается на

содержание другого модуля (не через точку входа). Например, коды их

программ перемежаются друг с другом.

Глава 2

1. Интегрированная среда разработки Delphi

Курсовой проект был разработан в интегрированной среде разработки

Delphi 7, далее последует описание данного программного изделия.

Прикладные программы, или приложения, Delphi создаются в

интегрированной среде разработки. Пользовательский интерфейс этой среды

служит для организации взаимодействия с программистом и включает в себя ряд

окон, содержащих различные элементы управления. С помощью средств

интегрированной среды разработчику удобно проектировать интерфейсную часть

приложения, а также писать программный код и связывать его с элементами

управления. В интегрированной среде разработки проходят все этапы создания

приложения, включая отладку. Интегрированная среда разработки Delphi 7

представляет собой многооконную систему.

Язык Delphi реализует концепцию объектно-ориентированного

программирования. Это означает, что функциональность приложения

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

самостоятельным объектом. У объекта есть свойства (т.е. характеристики, или

атрибуты), методы, определяющие его поведение, и события, на которые он

реагирует. Одним из наиболее важных понятий объектно-ориентированного

программирования является класс. Класс представляет собой дальнейшее

развитие концепции типа и объединяет в себе задание не только структуры и

размера переменных, но и выполняемых над ним операций. Объекты в программе

всегда являются экземплярами того или иного класса.

Все вычисления курсовой программы построены на знании интерполяционного

полинома Лагранжа (интерполяционный многочлен в форме Лагранжа). Именно с

его помощью вычисляется значение функции при нескольких заданных

пользователем значениях аргумента и некоторым другим входным данным.

Интерполяционным многочленом называется многочлен [pic] степени не выше n,

который в узлах [pic]принимает значения [pic].

Условия применения полинома:

Функция [pic] непрерывна на интервале [pic] и задана некоторыми своими

значениями [pic] для соответствующих значений аргумента [pic]. Полином

используется, когда необходимо найти значение этой функции в точке [pic].

Теорема:

Пусть заданы узлы [pic], среди которых нет совпадающих и значения [pic]

некоторой функции f(x) в этих узлах. Существует один и только один

многочлен [pic] степени не выше n, принимающий в узлах [pic] значения

[pic]. Введем вспомогательные многочлены

[pic].

Это многочлен степени n, для которого выполняется равенство [pic].

Многочлен [pic] называется полиномом Лагранжа.

При применении программы, названной «Интерполирование», пользователь

в первом окне вводит количество аргументов, столько узлов [pic] будет в

дальнейшем использоваться программой. Во втором окне пользователь вводит

значения аргументов и функций для построения полинома Лагранжа. В третьем

окне задается значение аргумента, функцию которого необходимо найти. При

нажатии кнопки «Вычислить», приводится в действие алгоритм программы,

происходит вычисление и выдается результат и одновременно с этим процессом

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

насколько полученный в ходе вычислений результат расходится с правильным,

используя погрешность.

2. Характеристики модулей программного средства

1. Связность внутри модулей

Модули 1, 2 и 4 имеют внутреннюю связность временную (части модуля не

связаны, но необходимы в один и тот же период работы системы). Третий

модуль имеет тип связности – информативный последовательный, который

говорит о том, что выходные данные одной части модуля используются как

входные данные другой части модуля. Эта связи присутствует, потому что

function Ln (k: Integer): Real; function Pol ( ): Real; и function Delta (

): Real; являются входными данными для Procedure TForm3/Button1Click

(Sender: Tobject).

2. Сцепление модулей между собой

Модуль 1 сцеплен с модулем 2 по данным (тип сцепления первый, СЦ=1), то

есть модуль 1 вызывает модуль 2, входные и выходные параметры – простые

элементы данных.

Модуль 3 с модулем 2 сцеплен по содержанию, то есть модуль 3 прямо

ссылается на содержание модуля 2. Модуль 3 с первым модулем не сцеплены,

так как, хотя они оба сцеплены со вторым модулем, но каждый из них имеет

разный тип сцепления, не имеющих ничего общего.

Четвертый модуль, являющийся сведениями о программе связан с модулями

1, 2 и 3 по данным, все три модуля вызывают четвертый.

Заключение

Во время выполнения курсовой работы был разработан программное

средство, вычисляющее значение функции по заданному значению аргумента,

выполняющегося с помощью средств вычислительной математики. В основе

решения задачи, как было описано во второй части курсовой работы лежит

вычисление интерполяционным полиномом Лагранжа. Было создано четыре модуля,

три из которых являются активными, четвертый («О программе») может быть

вызван с любого из трех главных модулей. Три основных модуля предлагают

поэтапное выполнение задачи; в первом модуле вводятся начальные данные, во

втором заполняется таблица со значениями функций и аргументов (это

промежуточные точки, на основании которых и строится полином Лагранжа).

Третий модуль является основным, использующим данные из второго и третьего

модуля для вычислительного процесса. Интерфейс программы совместим с

Windows-интерфейсом благодаря тому, что программа, в которой

разрабатывалась курсовая работа, – Delphi7 – предоставляет такую

возможность и поддерживает именно Windows-интерфейс. Все пункты курсового

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

поставленную перед ним задачу.

Приложение 1. Исходный код программного средства:

unit Unit1;

interface

uses

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

Forms,

Dialogs, StdCtrls, Menus;

type

TForm1 = class(TForm)

Memo1: TMemo;

Edit1: TEdit;

Button1: TButton;

Memo2: TMemo;

Label1: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

N2: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

A, k :integer;

implementation

uses Unit2, unit6, Unit3;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

k:=StrToInt(edit1.Text);

if (k30)

then ShowMessage('Не верно задано значение')

else

begin

k:=StrToInt(edit1.Text);

Form2.StringGrid1.ColCount:=(k+1);

Form2.visible:=true;

Form1.visible:=false;

end;

Form2.StringGrid1.Cells[0,0]:='X';

Form2.StringGrid1.Cells[0,1]:='Y';

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['0'..'9']) then key:=#0;

end;

end.

_

unit Unit2;

interface

uses

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

Forms,

Dialogs, StdCtrls, Grids, Menus;

type

TForm2 = class(TForm)

Label3: TLabel;

Button1: TButton;

Label5: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

N2: TMenuItem;

StringGrid1: TStringGrid;

Label1: TLabel;

Button2: TButton;

procedure Button1OnClick(Sender: TObject);

procedure Button2OnClick(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

I, J: Integer;

implementation

uses Unit1, Unit6, Unit3;

{$R *.dfm}

procedure TForm2.N4Click(Sender: TObject);

begin

close;

Form1.Close;

end;

procedure TForm2.Button1OnClick(Sender: TObject);

begin

Form3.visible:=true;

Form2.visible:=false;

end;

procedure TForm2.Button2OnClick(Sender: TObject);

begin

Form1.visible:=true;

Form2.visible:=false;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key in ['0'..'9', '.']) then key:=#0;

end;

end.

unit unit3;

interface

uses

Windows, Math, Messages, SysUtils, Variants,

Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, ComCtrls;

type

TForm3 = class(TForm)

Label2: TLabel;

Edit1: TEdit;

Memo1: TMemo;

Edit3: TEdit;

Label1: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

N7: TMenuItem;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit2: TEdit;

procedure Edit1KeyPress(Sender: TObject; var Key: Char );

procedure N4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations tion }

public

{ Public declarations }

end;

var

Form3: TForm3;

i, j, A, k: Integer;

Y, X: array [1..30] of Extended;

t, P, Dl: Real;

implementation

uses Unit1, Unit2, Unit6;

{$R *.dfm}

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char); //

Integer

begin

if not(key in ['0'..'9']) then Key:=#0;

end;

procedure TForm3.N4Click(Sender: TObject);

begin

Close;

end;

procedure TForm3.N7Click(Sender: TObject);

begin

AboutBox.ShowModal;

end;

function Ln(k: integer): Real;

var Proizved1, Proizved2: Real;

begin

t:=StrToFloat(Form3.Edit1.Text);

i:=1;

Proizved1:=1;

Proizved2:=1;

repeat

if k<>i then begin

Proizved1:=Proizved1*(t-x[i]);

Proizved2:=Proizved2*(x[k]-x[i]);

end;

i:=i+1;

until i>A;

Ln:=Proizved1/Proizved2;

end;

function Pol( ): Real;

var

Sum: Real;

i: Integer;

begin

i:=1;

Sum:=0;

repeat

Sum:=Ln(i)*Y[i]+Sum;

i:=i+1;

until i>A;

Pol:=Sum;

end;

function Delta( ): Real;

var

Sum: Real;

i: Integer;

begin

i:=1;

Sum:=0;

repeat

Sum:=ABS(Ln(i))*0.0002+Sum;

i:=i+1;

until i>A;

Delta:=Sum;

end;

procedure TForm3.Button1Click(Sender: TObject);

var

i: Integer;

S: real;

begin

A:=StrToInt(Form1.Edit1.Text);

S:=0;

for i:=1 to A do begin

X[i]:=StrToFloat(Form2.StringGrid1.Cells[i,0]);

Y[i]:=StrToFloat(Form2.StringGrid1.Cells[i,1]);

end;

P:=Pol();

Dl:=Delta();

for i:=1 to A do S:=S+Ln(i);

ShowMessage(FloatToStr(S));

Form3.Edit3.Text:=FloatToStr(P);

Form3.Edit2.Text:=FloatToStr(Dl);

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form3.visible:=false;

Form2.visible:=true;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Close;

Form2.Close;

Form1.Close;

end;

end.

unit Unit6; //AboutBox

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

Image1: TImage;

BitBtn1: TBitBtn;

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

end.

Приложение 2. Блок-схема программного средства:

Приложение 3. Блок-схема алгоритма вычисления (третий модуль)

Приложение 4. Тесты – наборы проверочных данных – для проверки правильности

работы программы.

Первый проверочный набор.

В первом открывшемся окне, в пустое поле вводим цифру 6.

Во втором открывшемся окне, представленную таблицу заполняем согласно

представленным ниже данным.

|X |1 |2 |3 |4 |5 |6 |

|Y |7 |8 |9 |7 |8 |9 |

В третьем окне вводим: Х=13, и должны получить результат Y= –10 442.

Эти результаты получились из приведенных ниже расчетов:

[pic]

[pic]

[pic]

[pic]

[pic]

[pic]

[pic]

[pic][pic]

Результатом должно стать число – 10 442.

Второй проверочный набор.

Второй проверочный набор является более простым вариантом, не требующим

математического подтверждения. Он представляет собой аргументы и их

квадраты.

В первом окне вводим число 4.

Во втором вводим в строчку Х числа 1, 2, 4, 5, а в строчку Y числа 1,

4, 16, 25, являющиеся квадратами этих аргументов. Этот набор данных

представлен в таблице ниже:

|X |1 |2 |4 |5 |

|Y |1 |4 |16 |25 |

Тогда в третьем окошке вводим любое число, квадрат которого Вам

известен, например, число 3, и в окошке «Результаты» должны получить число

9, в окошке «Погрешность вычисления» получаем погрешность, которая

появляется при вычислении функции данным методом (интерполяционным

полиномом Лагранжа). Можно взять и любое другое число.

Список использованных источников

1. Фокс Дж. Программное обеспечение и его разработка. М.:Мир, 1985. -

368 с.

2. Лисков Б., Гатэг Дж. Использование абстракций и спецификаций при

разработке программ: Пер. с англ. - М.: Мир, 1999. - 424 с.

2. Иванов А.Г., Карпова А.В., Семик В.П., Филинов Ю.Е. Объектно-

ориентированная среда программирования. Системы и средства информатики.

Вып.2. М.: Наука, 1991.

3. Программирование. Специальный выпуск по объектно-ориентированному

программированию. № 6, 1990.

4. Объектно-ориентированный подход технологии программирования/ Иванов

А.Г., Пятницкий А.А, Филинов Ю.Е. – СПб.: Питер, 2003. – 443 с.: ил.

5. Макаров А.А. Лукашин Ю.П. Объектно-ориентированный подход в

программировании. – М.: Финансы и статистика, 2000. – 356 с.

-----------------------

Left = 308

Top = 244

Width = 447

Height = 272

Caption = 'Интерполирование'

Color = clBtnFace

Menu = MainMenu1

Position = poScreenCenter

Visible = True

PixelsPerInch = 96

TextHeight = 13

Form 1

N2Click

N4Click

Button1Click

Edit1KeyPress

Left = 16

Top = 152

Width = 299

Height = 13

Cursor = crArrow

Caption = 'Нажмите кнопку для пеpехода на следующий шаг'

Label 1

Left = 16

Top = 8

Width = 425

Height = 81

Cursor = crArrow

BorderStyle = bsNone

Lines.Strings = ('Данная программа предназначена для расчета значения

функций, заданных таблично. По введенному значению аргумента выводится

значение функции. По точкам, которые Вы введете, будет построен

интерполяционный полином и с его помощью найдено значение функции’)

ParentColor = True

ParentFont = False

ReadOnly = True

TabOrder = 1

Memo 1

Tag = 2

Left = 16

Top = 120

Width = 65

Height = 21

TabOrder = 2

Edit 1

OnKeyPress = Edit1KeyPress

Left = 16

Top = 88

Width = 409

Height = 33

Cursor = crArrow

BorderStyle = bsNone

DragCursor = crDefault

Lines.Strings = ('Введите количество точек, из которых будет состоять

полином: (не меньше 4 и не больше 30')

ParentColor = True

ParentFont = False

ReadOnly = True

TabOrder = 0

Memo 2

N1

Caption = 'Файл'

N4

Caption = 'Выход'

MainMenu 1

BiDiMode = bdRightToLeft

ParentBiDiMode = False

Left = 400

Top = 184

OnClick = N4Click

N2

Caption = ‘О программе’

OnClick = N2Click

AboutBox

Button 1

Left = 16

Top = 177

Width = 105

Height = 33

Caption = 'ДАЛЕЕ'

TabOrder = 3

OnClick = Button1Click

Form 2

Left = 308

Top = 244

Width = 447

Height = 272

Caption = 'Интерполирование'

Color = clBtnFace

Menu = MainMenu1

Position = poScreenCenter

Visible = True

PixelsPerInch = 96

TextHeight = 13

Form 2

N2Click

N4Click

Button1Click

Button2Click

StringGrid1KeyPress

Label 3

Left = 16

Top = 8

Width = 169

Height = 13

Caption = 'В ячейки введите значения:'

ParentFont = False

Label 5

Left = 16

Top = 136

Width = 299

Height = 13

Caption = 'Нажмите кнопку для перехода на следующий шаг' ParentFont =

False

Label 1

Left = 16

Top = 152

Width = 228

Height = 13

Caption = 'или для возврата на предыдущий шаг'

ParentFont = False

Button 1

Left = 152

Top = 177

Width = 105

Height = 32

Caption = 'ДАЛЕЕ'

ParentFont = False

TabOrder = 0

OnClick = Button1OnClick

Form 3

N1

Caption = 'Файл'

N4

Caption = 'Выход'

MainMenu 1

BiDiMode = bdRightToLeft

ParentBiDiMode = False

Left = 400

Top = 184

OnClick = N4Click

N2

Caption = ‘О программе’

OnClick = N2Click

AboutBox

Button 2

Left = 16

Top = 177

Width = 105

Height = 32

Caption = 'НАЗАД'

ParentFont = False

TabOrder = 2

OnClick = Button2OnClick

Form 1

StringGrid

1???????????????????????????????????????????????????????????????????????????

??????????????

Tag = 5

Left = 16

Top = 40

Width = 393

Height = 81

Color = clCaptionText

DefaultColWidth = 55

RowCount = 2

FixedRows = 0

Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine,

goRangeSelect, goEditing, goTabs]

ParentFont = False

ScrollBars = ssHorizontal

TabOrder = 1

OnKeyPress = StringGrid1KeyPress

Left = 308

Top = 244

Width = 447

Height = 272

Caption = 'Интерполирование'

Color = clBtnFace

Menu = MainMenu1

Position = poScreenCenter

Visible = True

PixelsPerInch = 96

TextHeight = 13

Form 3

N7Click

N4Click

Button1Click

Button2Click

Button3Click

Edit1KeyPress

Label 2

Left = 16

Top = 82

Width = 141

Height = 13

Caption = 'Полученный результат:'

ParentFont = False

Label 1

Left = 200

Top = 26

Width = 17

Height = 13

Caption = 'X='

ParentFont = False

Label 3

Left = 200

Top = 84

Width = 16

Height = 13

Caption = 'Y='

ParentFont = False

Label 4

Left = 16

Top = 128

Width = 159

Height = 13

Caption = 'Погрешность вычисления:'

ParentFont = False

Label 5

Left = 184

Top = 128

Width = 38

Height = 13

Caption = 'Delta='

ParentFont = False

Edit 1

Tag = 5

Left = 224

Top = 24

Width = 121

Height = 21

TabOrder = 0

OnKeyPress = Edit1KeyPress

Memo 1

Left = 16

Top = 8

Width = 169

Height = 41

BorderStyle = bsNone

Color = clBtnFace

Lines.Strings = ('Введите значение аргумента, функцию которого необходимо

найти:')

ParentFont = False

ReadOnly = True

TabOrder = 1

Edit 3

Left = 224

Top = 80

Width = 121

Height = 21

ParentColor = True

ReadOnly = True

TabOrder = 2

Edit 2

Left = 224

Top = 126

Width = 121

Height = 21

Color = clBtnFace

ParentFont = False

ReadOnly = True

TabOrder = 6

Button 1

Left = 360

Top = 22

Width = 73

Height = 25

Caption = 'Вычислить'

ParentFont = False

TabOrder = 3

OnClick = Button1Click

procedure TForm3.Button1Click(Sender: TObject);

Button 2

Left = 16

Top = 176

Width = 105

Height = 33

Caption = 'НАЗАД'

ParentFont = False

TabOrder = 4

OnClick = Button2Click

Form 2

Button 3

Left = 152

Top = 177

Width = 105

Height = 32

Caption = 'ВЫХОД'

ParentFont = False

TabOrder = 5

OnClick = Button3Click

Close

N1

Caption = 'Файл'

N4

Caption = 'Выход'

MainMenu 1

BiDiMode = bdRightToLeft

ParentBiDiMode = False

Left = 400

Top = 184

OnClick = N4Click

N2

Caption = ‘О программе’

OnClick = N2Click

AboutBox

Function Ln (k: Integer): Real;

Proizved1, Proizved2: Real;

i:=1;

Proizved1:=1;

Proizved2:=1;

If k<>1

да

Proizved1:=Proizved1*(t - x[I]);

Proizved2:=Proizved2*(x[k] – x[i]);

нет

End;

Function Pol ( ): Real;

If i>A

да

Ln:=Proizved1/Proizved2;

Sum: Real;

i: Integer;

i:=1;

Sum:=0;

If i

да

да

Sum:=Ln(i)*Y[i]+Sum;

i:=i+1;

If i>A

нет

да

Pol:=Sum;

End;

Function Delta ( ): Real;

Sum: Real;

i: Integer;

i:=1;

Sum:=0;

If i < A

Sum:=ABS (Ln (i) )*0.0002 + Sum;

i:=i+1;

If i > A

да

нет

Delta:=Sum;

End;

X[i]:=StrToFloat(Form2.StringGrid1.Cells[i,0];

Y[i]:=StrToFloat(Form2.StringGrid1.Cells[i,1];

Procedure Button1Click (Sender: TObject);

i: Integer;

S: Real;

A:=StrToInt(Form1.Edit1.Text);

S:=0;

P:=Pol ( );

Dl:=Delta ( );

For i:=1 to A

For I:=1 to A

S:=S+Ln (i);

ShowMessage ( FloatToStr (S) );

Form3.Edit3.Text:=FloatToStr (P);

Form3.Edit2.Text:=FloatToStr (Dl);

End;

Страницы: 1, 2