alex1991
Новичок
|
   
Здравствуйте! Ребят не могли бы вы помочь разобраться с программой на интерпол-й многочлен лагранжа.
unit ULab1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TeEngine, TeeFunci, Series, ExtCtrls, TeeProcs, Chart,
Spin;
type
TType=real;
TMainForm = class(TForm)
Chart: TChart;
Series1: TLineSeries;
TeeFunction1: TAddTeeFunction;
Series2: TLineSeries;
TeeFunction2: TAddTeeFunction;
Label3: TLabel;
Label4: TLabel;
SN: TSpinEdit;
Label2: TLabel;
SA: TSpinEdit;
SB: TSpinEdit;
Label5: TLabel;
Label6: TLabel;
SM: TSpinEdit;
bGO: TButton;
procedure SAKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure bGOClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
var XY: Array [0..101, 1..2] of TType;
function f ( x: real ): TType;
begin
Result := 1 / (1+x*x*x+(1/4)*x*x*x*x*x*x)
end;
function p ( x: TType ): TType;
var k, i, N: integer;
r, s: TType;
begin
Result := 0;
N := MainForm.SN.Value;
for k:=0 to N do
begin
r := 1; s := 1;
for i:= 0 to N do
if i <> k then
begin
r := r * ( x - XY [i, 1]);
s := s * ( XY [k, 1] - XY [i, 1]);
end;
Result := Result + XY[k, 2]*r/s
end
end;
procedure TMainForm.SAKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then BGo.Click;
end;
procedure TMainForm.bGOClick(Sender: TObject);
var A, B, M, N, i, j : integer;
h, g, d: TType;
begin
A := SA.Value;
B := SB.Value;
N := SN.Value;
M := SM.Value;
h := (B - A) / N;
FillChar( XY, SizeOf (XY), 0); {инийил масс чис}
for i := 0 to N do
begin
XY [i, 1] := A + h * i;
XY [i, 2] := f ( XY [i ,1] )
end;
// h := p (XY[0, 1]); {ugrf}
Chart.Series[0].Clear;
Chart.Series[1].Clear;
d := h / M;
for i:=0 to N-1 do
begin
g := XY [i, 1];
Chart.Series[0].AddXY( g, XY [i, 2] );
Chart.Series[1].AddXY( g, XY [i, 2] );
for j:=1 to M-1 do
begin
g := g + d;
Chart.Series[0].AddXY( g, f (g) );
Chart.Series[1].AddXY( g, p (g) )
end
end;
Chart.Series[0].AddXY( XY [N, 1], XY [N, 2] );
Chart.Series[1].AddXY( XY [N, 1], XY [N, 2] );
end;
end.
|
Всего сообщений: 5 | Присоединился: сентябрь 2010 | Отправлено: 8 окт. 2010 13:25 | IP
|
|
z0x0c0v0b0n0m0
Новичок
|
Агентство "Интернет-клиент", оказывает web - услуги по эффективному ссылочному продвижению Вашего сайта. Вкратце расскажем, что такое ссылки. Очень важно подбирать текст ссылки, иначе поисковики, не оценят ее должными образом, даже при высоком качестве сайта донора.Ведь если бы это была ссылка на скачивание какого - либо файла, то конечно, текст ссылки не важен. Но в случае раскрутки сайта, необходимы ссылки http на конкретные страницы, а не на файлы. И поэтому текст ссылок важен.Более подробно на нашем сайте.<a href="http://internet-client.ru/" > web услуги </a> [url=http://internet-client.ru ] web услуги
|
Всего сообщений: 2 | Присоединился: ноябрь 2010 | Отправлено: 8 нояб. 2010 10:46 | IP
|
|
z0x0c0v0b0n0m0
Новичок
|
заказывайте разработку по у нас
|
Всего сообщений: 2 | Присоединился: ноябрь 2010 | Отправлено: 8 нояб. 2010 10:48 | IP
|
|
alex1991
Новичок
|
как скажете0)))
|
Всего сообщений: 5 | Присоединился: сентябрь 2010 | Отправлено: 8 нояб. 2010 16:18 | IP
|
|
paradise 
Долгожитель
|
 
размещайте сообщения в соответствующей теме Задачи на Delphi
|
Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 18 дек. 2010 0:43 | IP
|
|
|
Форум
ПРОГРАММА НА ДЕЛФЯХ
