Инструментальные средства автоматизации процесса реализации инновационных проектов
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
®.Р. "Идентификация систем": Учебное пособие. - Оренбург: ОГУ, 2003. - 202 с. 2003г.
) Системы автоматизированного проектирования: Учеб. пособие для втузов: В 9 кн./ И.П.Норенков. Кн.1. Принципы построения и структура.- М.: Высшая школа, 1986.- 127 с.
) Горбатов В.А. Основы дискретной математики: Учеб. пособие для студентов вузов - М.: Высшая школа, 1986.- 311 с.
) Корячко В.П. и др. Теоретические основы САПР: Учебник для вузов/В.П.Корячко,В.М.Курейчик,И.П.Норенков.-М.: Энергоатомиздат, 1987.- 400 с.
) Delphi 7 [Текст] / В.Э. Гофман, А. Д. Хомоненко. - СПб.: БХВ-Петербург, 2002. - 1152 с.
Приложение А
Листинг программы
program Project1;
uses,in Unit1.pas {Form1},in Unit2.pas {Form2},in Unit3.pas {Form3},in Unit4.pas {Form4},in Unit5.pas {Form5};
{$R *.res}.Initialize;.CreateForm(TForm1, Form1);.CreateForm(TForm2, Form2);.CreateForm(TForm3, Form3);.CreateForm(TForm4, Form4);.CreateForm(TForm5, Form5);.Run;.Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls, ShellAPI;= class(TForm): TMemo;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TOpenDialog;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;N5Click(Sender: TObject);N4Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);N10Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;:string;:textfile;Unit2, Unit3, Unit4, Unit5;
0thenresult:=trueresult:=false;;:=1;notisCifr(s[i])do(i);:=;isCifr(s[i])or(s[i]=.)do:=s1+s[i];(i);;:=copy(s,i,length(s)-i+1);:=mystrtofloat(s1);:=false;i:=1tolength(s)doisCifr(s[i])thenest:=true;notestthens:=;;TForm1.N5Click(Sender:TObject);.Terminate;;TForm1.N4Click(Sender:TObject);:string;,j:integer;OpenDialog1.Executethen:=OpenDialog1.FileName;fn do
do(j);.Series3.AddXY(j,getword(s));;(fl,s);:=0;s do(j);
do(j);.Series3.AddXY(j,getword(s));;(fl,s);:=0;s do(j);.Series4.AddXY(j,getword(s));;(fl);;;TForm1.N6Click(Sender: TObject);.ShowModal;;TForm1.N7Click(Sender: TObject);.ShowModal;;TForm1.N8Click(Sender: TObject);.ShowModal;;TForm1.N9Click(Sender: TObject);.ShowModal;;TForm1.N10Click(Sender: TObject);(handle,open,help.doc,nil,nil,SW_SHOW);;.Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, TeEngine, Series, ExtCtrls, TeeProcs, Chart, ComCtrls;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TChart;
Series1: TLineSeries;: TChart;: TLineSeries;: TChart;: TLineSeries;: TChart;: TLineSeries;: TChart;: TLineSeries;
{ Private declarations }
{ Public declarations };: TForm2;
{$R *.dfm}.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, TeEngine, Series, ExtCtrls, TeeProcs, Chart, ComCtrls;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TChart;: TLineSeries;: TChart;: TLineSeries;: TChart;: TLineSeries;: TChart;: TLineSeries;
{ Private declarations }
{ Public declarations };: TForm3;
{$R *.dfm}.Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, TeEngine, Series, ExtCtrls, TeeProcs, Chart, ComCtrls;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TChart;: TLineSeries;: TChart;
Series2: TLineSeries;: TChart;: TLineSeries;: TChart;: TLineSeries;
{ Private declarations }
{ Public declarations };: TForm4;
{$R *.dfm}.Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, TeeProcs, TeEngine, Chart, ComCtrls, Series;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TChart;: TLineSeries;: TChart;: TLineSeries;: TChart;: TLineSeries;: TChart;: TLineSeries;
{ Private declarations }
{ Public declarations };: TForm5;
{$R *.dfm}.