ToInt (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. Тести - набори перевірочних даних - для перевірки правильності роботи програми. p> Перший перевірочний набір.
У першому вікні,, в порожнє поле вводимо цифру 6.
У другому вікні,, представлену таблицю заповнюємо згідно з поданими нижче даними.
X
1
2
3
4
5
6
Y
7
8
9
7
8
9
У третьому вікні вводимо: Х = 13, і повинні отримати результат Y = -10442.
Ці результати вийшли з наведених нижче розрахунків:
В В В В В В В В
Результатом має стати число - 10 442.
Другий перевірочний набір.
Другий пере...
