13.11.2016, 15:57
|
Прохожий
|
|
Регистрация: 13.11.2016
Сообщения: 9
Версия Delphi: Delphi 2010
Репутация: 10
|
|
подключить модуль
Вечер добрый ребят, помогите пожалуйста подключить модуль функции чтобы работали функции S(x), Y(x) сижу мучаюсь не знаю как подключить и как прописать одно в другое...
Код программы:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Button1: TButton;
RadioGroup1: TRadioGroup;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
xn = 0.1;
xk = 0.5;
h = 0.1;
e = 0.0001;
var
x, y, t, s: real;
n: Integer;
begin
Memo1.Clear;
Memo1.Lines.Add('Результаты ст. гр. 5В011100 Гулов Е.В.');
Memo1.Lines.Add('xn=0.1');
Memo1.Lines.Add('xk=0.5');
Memo1.Lines.Add('h=0.1');
Memo1.Lines.Add('e=0.0001');
x := xn;
while x <= xk do
begin
n := 0;
t := x;
s := t;
while Abs(t) / (2 * n + 1) > e do
begin
n := n + 1;
t := -t * x * x;
s := s + t / (2 * n + 1);
end;
y := arctan(x);
Memo1.Lines.Add('При х=' + formatfloat('0.0', x) + ' сумма=' + formatfloat
('0.0000', s) + ' y=' + formatfloat('0.0000', y) + ' N=' + inttostr
(n + 1));
x := x + h;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
RadioGroup1.ItemIndex:=0;
end;
end.
код модуля
Код:
unit Unit2;
interface
uses StdCtrls, SysUtils;
Type
fun = function(x : extended):extended; // Объявление типа функция
{Расчет таблицы функции f (табуляция функции)}
procedure Tabl(f:fun;xn,xk:extended; m: word; Memo1 : TMemo);
implementation
procedure Tabl;
var x,y,h: extended;
i : integer;
begin
x:=xn; h:=(xn-xk)/m;
for i:=1 to m+1 do begin
y:=f(x);
Mem1.Lines.Add(' x='+FloatToStrf(x,fffixed,8,3)+
' y='+FloatToStrf(y,fffixed,8,3));
x:=x+h;
end;
end;
end.
работа.rar
|