ідні дані іншій частині модуля. Ця зв'язку присутній, тому що
function Ln ( k: Integer): Real; function Pol (): Real; і
function Delta (): Real; є вхідними даними для
Procedure TForm3/ Button1 Click ( Sender: Tobject) . br/>
2.2. Зчеплення модулів між собою
Модуль 1 зчеплений з модулем 2 за даними (Тип зчеплення перший, СЦ = 1), тобто модуль 1 викликає модуль 2, вхідні та вихідні параметри - прості елементи даних. p> Модуль 3 з модулем 2 зчеплений по змістом, тобто модуль 3 прямо посилається на утримання модуля 2. Модуль 3 з першим модулем не зчеплені, оскільки, хоча вони обидва зчеплені з другим модулем, але кожен з них має різний тип зчеплення, які не мають нічого спільного. p> Четвертий модуль, який є відомостями про програму пов'язаний з модулями 1, 2 і 3 за даними, всі три модулі викликають четвертий. br/>
Висновок
Під час виконання курсової роботи був розроблений програмний засіб, вичислювальне значення функції за заданим значенню аргументу, що виконується за допомогою засобів обчислювальної математики. В основі рішення задачі, як було описано в другій частині курсової роботи лежить обчислення інтерполяційним поліномом Лагранжа. Було створено чотири модулі, три з яких є активними, четвертий (В«Про програмуВ») може бути викликаний з будь-якого з трьох головних модулів. Три основних модуля пропонують поетапне виконання завдання; в першому модулі вводяться початкові дані, у другому заповнюється таблиця зі значеннями функцій і аргументів (це проміжні точки, на підставі яких і будується поліном Лагранжа). Третій модуль є основним, що використовують дані з другого і третього модуля для обчислювального процесу. Інтерфейс програми сумісний з 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
...