Автор работы: Пользователь скрыл имя, 23 Мая 2013 в 18:15, курсовая работа
Основная задача (разработать программный продукт, вычисляющий значение функции по заданному значению аргумента) выполняется с помощью средств вычислительной математики. В основе решения задачи лежит вычисление значение функции с помощью интерполяционного полинома Лагранжа. Основные направления выполнения программы:
1.создать модули, предлагающие поэтапное выполнение поставленной задачи;
2.создать модули, выполняющие вычисление правильно, быстро и корректно;
3.разработать интерфейс программы, совместимый с Windows-интерфейсом
procedure BitBtn1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
b :integer;
implementation
uses Unit3,Unit4, Unit5, Unit6;
{$R *.dfm}
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);//можно вводить только цифры
begin
if not(key in ['0'..'9']) then Key:=#0;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);//при нажатии кнопки проверяется условие задачи
begin
b:=StrToInt(edit1.Text);
if (b<=3) or (b>30)
then ShowMessage('Не верно задано значение')
else
begin
Form3.StringGrid1.ColCount:=(
Form3.StringGrid1.RowCount:=3;
Form3.visible:=true;
Form2.visible:=false;
end;
Form3.StringGrid1.Cells[0,1]:=
Form3.StringGrid1.Cells[0,2]:=
end;
procedure TForm2.N1Click(Sender: TObject);//теоретическая часть
begin
Form5.visible:=true;
Form2.visible:=false;
end;
procedure TForm2.N2Click(Sender: TObject);//о программе
begin
Form6.visible:=true;
Form2.visible:=false;
end;
procedure TForm2.N3Click(Sender: TObject);//выход
begin
Close;
end;
end.
Unit3-Курсовой проект
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Menus, jpeg, ExtCtrls, Buttons;
type
TForm3 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Image1: TImage;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
i, j: Integer;
implementation
uses Unit2,Unit4, Unit5, Unit6;
{$R *.dfm}
procedure TForm3.StringGrid1KeyPress(
begin
if not (key in ['0'..'9', ',']) then key:=#0;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);//переход на предыдущую форму
begin
Form2.visible:=true;
Form3.visible:=false;
end;
procedure TForm3.BitBtn2Click(Sender:
TObject);//переход на
begin
Form4.visible:=true;
Form3.visible:=false;
end;
procedure TForm3.Label4Click(Sender: TObject);//значения по умолчанию
begin
StringGrid1.Cells[1,1]:='0,41'
StringGrid1.Cells[2,1]:='1,55'
StringGrid1.Cells[3,1]:='2,67'
StringGrid1.Cells[4,1]:='3,84'
StringGrid1.Cells[1,2]:='2,63'
StringGrid1.Cells[2,2]:='3,75'
StringGrid1.Cells[3,2]:='4,87'
StringGrid1.Cells[4,2]:='5,03'
end;
procedure TForm3.N1Click(Sender: TObject);//теоретическая часть
begin
Form5.visible:=true;
Form3.visible:=false;
end;
procedure TForm3.N2Click(Sender: TObject);//о программе
begin
Form6.visible:=true;
Form3.visible:=false;
end;
procedure TForm3.N3Click(Sender: TObject);//выход
begin
Close;
end;
end.
Unit4-Курсовой проект
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, ComCtrls, Buttons, jpeg, ExtCtrls;
type
TForm4 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
Label2: TLabel;
Label3: TLabel;
BitBtn2: TBitBtn;
Image1: TImage;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
Y, X: array [1..30] of real;
t: Real;
implementation
uses Unit3, Unit2, Unit5, Unit6;
{$R *.dfm}
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);//можно вводить только цифры
begin
if not (key in ['0'..'9', ',']) then key:=#0;
end;
procedure TForm4.BitBtn1Click(Sender:
TObject);//переход на
begin
Form3.visible:=true;
Form4.visible:=false;
end;
procedure TForm4.BitBtn2Click(Sender: TObject);//вычислить
var
L,P: real;
i,j,b: Integer;
begin
b:=StrToInt(Form2.Edit1.Text);
t:=StrToFloat(Form4.Edit1.
for i:=1 to b do
begin
X[i]:=StrToFloat(Form3.
Y[i]:=StrToFloat(Form3.
L:=0;
end;
for i:=1 to b do
begin
P:=Y[i];
for j:=1 to b do
if j<>i then
P:=P*((t-X[j])/(X[i]-X[j]));
L:=L+P;
end;
ShowMessage(FloatToStr(L));
end;
procedure TForm4.N1Click(Sender: TObject);//теоретическая часть
begin
Form5.visible:=true;
Form4.visible:=false;
end;
procedure TForm4.N2Click(Sender: TObject);//о программе
begin
Form6.visible:=true;
Form4.visible:=false;
end;
procedure TForm4.N3Click(Sender: TObject);//выход
begin
Close;
end;
end.
Unit5-Теоретическая часть
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons;
type
TForm5 = class(TForm)
BitBtn1: TBitBtn;
Image2: TImage;
Image1: TImage;
Image3: TImage;
Image4: TImage;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm5.BitBtn1Click(Sender: TObject); //выход
begin
Form2.visible:=true;
Form5.visible:=false;
end;
end.
Unit6-О программе
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm6 = class(TForm)
Memo1: TMemo;
Image1: TImage;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm6.BitBtn1Click(Sender: TObject);//выход
begin
Form2.visible:=true;
Form6.visible:=false;
End.