Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        ПРОГРАММА НА ДЕЛФЯХ
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: paradise, KMA
  

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


Новичок

заказывайте разработку по у нас

-----
<a href="http://internet-client.ru/" > web услуги </a> web услуги

Всего сообщений: 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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Одна страница

Форум работает на скрипте © Ikonboard.com