4 Заключение

В современном мире, нельзя обойтись без электронной вычислительной техники, поэтому, изучение информатики является важной частью современного мира, ведь современный человек, не мыслит, себя без мобильного телефона, плеера, компьютера, что не так давно было лишь несбыточными мечтами, а сегодня, благодаря науке Информатике и Программированию мы получили всё то, что раньше казалось лишь фантазией.

В процессе выполнения курсовой работы была разработана программа по расчету коэффициентов полинома 1 и 2 степени. Было организовано построение графика полинома и математические вычисления при помощи табличного процессора Microsoft Excel. При написании программы на языке программирования Object Pascal в инструментальной среде Delphi использовались объектно-ориентированные компоненты. Курсовая работа выполнена в полном объеме и соответствует поставленной задаче.

5 Список используемых источников

1. Википедия: http://wikipedia.org/

2. Родионов К.А. - Лабораторный практикум. Алгоритмическое и объектно-ориентированное программирование на языке Pascal в инструментальной среде Delphi.: Уч.пос.- Коломна, МГОУ КИ(Ф),2007.-112 с: ил.

3. Фленов М.Е. Библия Delphi.-Спб.: БХВ-Петербург, 2004, 880 с.:ил.

Приложение 1-Код программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, StdCtrls, Mask, TeEngine, TeeFunci, Series, ExtCtrls,

TeeProcs, Chart,comobj;

type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

Button1: TButton;

OpenDialog1: TOpenDialog;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Chart1: TChart;

Series1: TLineSeries;

Button2: TButton;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

const n=1000;

var

Form1: TForm1;

Edit4:real;

Edit1:real;

masX:array [1..n] of real;

MasY:array [1..n] of real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var sNameFile:string;

f:textFile;

x,y:real; i:integer; A0,A1,A2:real;

begin

OpenDialog1.Execute();

sNameFile:=OpenDialog1.FileName;

AssignFile(f,sNameFile);

Reset(f);

i:=0;

Chart1.SeriesList[0].Clear;

while not eof(f) do begin

inc(i);

Readln(f,x,y);

StringGrid1.Cells [0,i]:=floattostr(x);

StringGrid1.Cells [1,i]:=floattostr(y);

MasX[i]:=x;

Masy[i]:=y;

Chart1.SeriesList[0].AddXY(x,y,' ',clRed);

end;

Closefile(f);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells [0,0]:='x';

stringgrid1.cells [1,0]:='y';

end;

procedure TForm1.Button2Click(Sender: TObject);

var

i,j:integer;

x,dx,y,dy:real;

exl: OleVariant;

WorkBook, Sheet: Variant;

fileName: String;

a1,a2,a0:real;

n:integer;

begin

if length(edit1.text)=0 then showmessage('vvedite stepen polenoma') else

try

//Получаем имя для будующего Excel-файла

//fileName:= ExtractFilePath(Application.EXEName)

fileName:= ExtractFilePath(Application.EXEName)+'S.xls';

//Создаем объект интерфейса для доступа к серверу COM

//Создаем OLE сервер MS Excel

exl := CreateOleObject('Excel.Application');

//Создаем книгу и обращаемся к первому листу

//WorkBook := exl.Application.WorkBooks.Add;

//Открываем книгу и активизирум раб.лист 1

WorkBook := exl.Application.WorkBooks.Open(fileName);

Sheet := WorkBook.WorkSheets[1];

for i:=1 to 200 do begin

Sheet.Cells(i,1):='';

Sheet.Cells(i,2):='';

end;

//запись X,Y

for i:=1 to 100 do begin

Sheet.Cells(i,1):=StringGrid1.Cells[0,i];

Sheet.Cells(i,2):=StringGrid1.Cells[1,i];

end;

//Визуализируем приложение

exl.Application.Visible:=false;

n:=strToint(Edit1.text);

if n=1 then begin

a0:=strtofloat(sheet.cells[3,5]);

a1:=strtofloat(sheet.cells[4,5]);

a2:=0;

end;

if n=2 then begin

a0:=strtofloat(sheet.cells[2,4]);

a1:=strtofloat(sheet.cells[3,4]);

a2:=strtofloat(sheet.cells[4,4]);

end;

edit2.text:=floattostr(a0);

edit3.text:=floattostr(a1);

edit4.text:=floattostr(a2);

//Сохраняем полученный файл

//exl.Application.ActiveWorkBook.Saveas(fileName);

finally

//Выгружаем сервер из памяти компьютера

exl.Application.Quit;

end;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

case key of

'0'..'9',#8:;

#13:Edit2.setfocus;

'.',',':

begin

if key = '.' then key :=',';

if pos(',',edit1.text) <> 0 then key:=chr(0);

end;

else key:=chr(0);

end;

end;

end.