Интеллектуальная обучающая система в рамках дисциплин естественнонаучного цикла

Дипломная Купить готовую Узнать стоимостьмоей работы

Интеллектуальная обучающая система в рамках дисциплин естественнонаучного цикла (реферат, курсовая, диплом, контрольная)

Содержание

Введение
1. Теоретические аспекты использования интеллектуальных систем в учебном процессе
- 1. 1. Общие представления об интеллектуальных системах
- 1. 2. Модель использования интеллектуальных систем в учебном процессе
2. Проектная часть
- 2. 1. Информационная модель
- 2. 2. Обоснование выбора средств разработки и СУБД
- 2. 3. Математическая модель интеллектуальной системы
3. Программное обеспечение интеллектуальной системы
4. Оценка экономической эффективности внедрения системы
Заключение
Список использованных источников
Приложение 6

— М.: ИКЦ «Мар

Т"; Ростов н/Д: издательский центр «Мар

Т", 2004. — 352 с. Марселлус Д. Н. Программирование экспертных систем на Турбо Прологе. — М.: Финансы и статистика, 1994. 523с. Нейлор, К. Как построить свою экспертную систему. — М.: Энергоатомиздат, 2011.

Нильсон Н. Д. Искусственный интеллект. Методы поиска решений. — М.: Мир, 1973. 232с. Нильсон, Н. Искусственный интеллект. Методы поиска решений. — М.: Мир, 1973.

Поспелов Г. С. Искусственный интеллект — основа новой информационной технологии. — М.: Наука, 2009.

Сафонов В. О. Экспертные системы — интеллектуальные помощники специалистов. — С.-Пб.: Санкт-Петербургская организация общества «Знания» России, 1992. 234с. Сафонов, В. О. Экспертные системыинтеллектуальные помощники специалистов. — С.-Пб: Санкт-Петербургская организация общества «Знания» России, 2002.

Таунсенд К., Фохт Д. Проектирование и программная реализация экспертных систем на персональных ЭВМ. — М.: Финансы и статистика, 1990.

Убейко, В. Н. Экспертные системы. — М.: МАИ, 1999.

Уотермен Д. Руководство по экспертным системам. — М.: Мир, 1980.

236с.Уотермен, Д. Руководство по экспертным системам. — М.: Мир, 1990.Ф.Хейес-Рот; Д. Уотерман; Д. Ленат. Построение экспертных систем. М.:Мир, 1987, 325с. Элти Д., Кумбс М.

Экспертные системы: концепции и примеры. — М.: Финансы и статистика, 1987. 402с. Ясницкий, Л. Н. Введение в искусственный интеллект.

— М.: Академия, 2005.

Леденева Т.М., Подвольный С. Л. Системы искусственного интеллекта и принятия решений: учебное пособие; Уфа: УГАТУ, 2005. — 246 с. Арсеньев С. Н., Шелобов С. И., Давыдова Т. Ю. Принятие решений. Интегрированные информационные системы. Учебное пособие для ВУЗов.

М.:Юнити-Дана, 2003.-270 с. Андрейчиков А. В., Андрейчикова О. Н. Интеллектуальные информационные системы. Уч.- М.: Финансы и статистика, 2012. 424 с. Абдикеев Н. М. Проектирование интеллектуальных систем в экономике. Учебник / М.: Экзамен, 2012 — 526с. Макаров И. М. Искусственный интеллект и интеллектуальные системы управления / И.

М. Макаров, В. М. Лохин, С. В. Манько; отделение информационных технологий и вычислительных систем РАН. — М.: Наука, 2006.

Пупков К. А., Коньков В. Г. Интеллектуальные системы. — Издательство МГТУ им. Н. Э. Баумана, 2003.

Приложение.

Программныйкодunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, StdCtrls, ExtCtrls;type TForm1 = class (TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; ADOQuery1code_v: TIntegerField; ADOQuery1vopr: TWideStringField; ADOQuery1reit: TBCDField; ADOQuery2: TADOQuery; ADOQuery2code_otv: TIntegerField; ADOQuery2code_v: TIntegerField; ADOQuery2nam: TWideStringField; ADOQuery2prav: TIntegerField; ADOQuery3: TADOQuery; ADOQuery3code_stud: TAutoIncField; ADOQuery3grp: TIntegerField; ADOQuery3fio: TWideStringField; ADOQuery3passw: TWideStringField; Label1: TLabel; N9: TMenuItem; N10: TMenuItem; Panel1: TPanel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; ADOQuery4: TADOQuery; ADOQuery4code_ts: TIntegerField; ADOQuery4code_stud: TIntegerField; ADOQuery4code_vop: TIntegerField; ADOQuery4res: TIntegerField; ADOQuery5: TADOQuery; ADOQuery5code: TAutoIncField; ADOQuery5fio: TWideStringField; ADOQuery5dolgn: TWideStringField; ADOQuery5passw: TWideStringField; N11: TMenuItem; N12: TMenuItem; ADOQuery6: TADOQuery; ADOQuery6fio: TWideStringField; ADOQuery6SumSumreit: TBCDField; ADOQuery6grp: TIntegerField; ADOQuery6Sumrt: TBCDField;procedure N4Click (Sender: TObject);procedure N6Click (Sender: TObject);procedure N7Click (Sender: TObject);procedureFormCreate (Sender: TObject);procedure N9Click (Sender: TObject);procedure N2Click (Sender: TObject);procedure N8Click (Sender: TObject);procedure N10Click (Sender: TObject);procedure N11Click (Sender: TObject);procedure N12Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form1: TForm1;implementationuses Unit2, Unit5, Unit7, Unit8, Unit9, Unit10, Unit11, comobj;{$R *.dfm}procedure TForm1. N4Click (Sender: TObject);beginclose;end;procedure TForm1. N6Click (Sender: TObject);beginwith form1. ADOQuery1 dobeginclose;sql.Clear;sql.Add ('select * from vopr');active:=true;end;form2.DBGrid1.Columns[0]. T itle. caption:='Код';form2.DBGrid1.Columns[1].Title.caption:='Вопрос';form2.DBGrid1.Columns[2].Title.caption:='Рейтинг'; form2. Show;end;procedure TForm1. N7Click (Sender: TObject);beginwith form1. ADOQuery3 dobeginclose;sql.Clear;sql.Add ('select * from stud');active:=true;end;form5.DBGrid1.Columns[0]. T itle. caption:='Код';form5.DBGrid1.Columns[1].Title.caption:='Группа';form5.DBGrid1.Columns[2].Title.caption:='ФИО'; form5. Show;end;procedure TForm1. FormCreate (Sender: TObject);begin n1. Enabled:=false; n3. Enabled:=false; n2. Enabled:=false; panel1. Visible:=false;end;procedure TForm1. N9Click (Sender: TObject);beginwith form1. ADOQuery3 dobeginclose;sql.Clear;sql.Add ('select * from stud');active:=true;end; form7. Show;end;procedure TForm1. N2Click (Sender: TObject);begin form8. Label2.Caption:='1'; form8. Label4.Caption:='0.5'; form8. RzBitBtn2.Enabled:=false; form8. Show;end;procedure TForm1. N8Click (Sender: TObject);beginwith form1. ADOQuery5 dobeginclose;sql.Clear;sql.Add ('select * from prep');active:=true;end;form9.dbgrid1.columns[0]. title. caption:='Код';form9.dbgrid1.columns[1].title.caption:='ФИО';form9.dbgrid1.columns[2].title.caption:='Должность'; form9. Show;end;procedure TForm1. N10Click (Sender: TObject);beginwith form1. ADOQuery5 dobeginclose;sql.Clear;sql.Add ('select * from prep');active:=true;end; form11. show;end;procedure TForm1. N11Click (Sender: TObject);varexcelApp:variant; i: integer;beginwith form1. ADOQuery1 dobeginclose;sql.Clear;sql.Add ('select * from vopr');open;end;ExcelApp :=CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:int_sysxltreit.xlt');ExcelApp.WorkSheets[1]. A.

ctivate;ExcelApp.Visible := False;for i:=1 to adoquery1. RecordCount dobeginexcelapp.cells[3+i, 1]: =i;excelapp.cells[3+i, 2]:=form1.adoquery1vopr.AsString;excelapp.cells[3+i, 3]:=form1.ADOQuery1reit.AsString ;excelapp.cells[3+i, 1]. borders. linestyle:=1;excelapp.cells[3+i, 2].borders.linestyle:=1;excelapp.cells[3+i, 3].borders.linestyle:=1; form1. ADOQuery1. Next;end;excelapp.visible:=true;excelapp:=unassigned;end;procedure TForm1. N12Click (Sender: TObject);varexcelApp:variant; i: integer;beginwith form1. ADOQuery6 dobeginclose;sql.Clear;sql.Add ('select * from zp4');open;end;ExcelApp :=CreateOleObject ('Excel.Application');ExcelApp.workbooks.open ('C:int_sysxltint_sys.xlt');ExcelApp.WorkSheets[1]. A ctivate;ExcelApp.Visible := False;for i:=1 to adoquery6. RecordCount dobeginexcelapp.cells[3+i, 1]: =i;excelapp.cells[3+i, 2]:=form1.adoquery6fio.AsString;excelapp.cells[3+i, 3]:=form1.ADOQuery6grp.AsString ;excelapp.cells[3+i, 1].

borders.linestyle:=1;excelapp.cells[3+i, 2].borders.linestyle:=1;excelapp.cells[3+i, 3].borders.linestyle:=1;excelapp.cells[3+i, 4]:=int (100*form1.ADOQuery6Sumrt.AsCurrency/form1.ADOQuery6SumSumreit.AsCurrency) ;excelapp.cells[3+i, 4]. borders. linestyle:=1; form1. ADOQuery6. Next;end;excelapp.visible:=true;excelapp:=unassigned;end;end.unit Unit10;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls, Mask, DBCtrls;type TForm10 = class (TForm) Label1: TLabel; DBEdit1: TDBEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn;procedure RzBitBtn1Click (Sender: TObject);procedure RzBitBtn2Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form10: TForm10;implementationuses Unit9, Unit1;{$R *.dfm}procedure TForm10. RzBitBtn1Click (Sender: TObject);begin form1. adoquery5. post;end;procedure TForm10. RzBitBtn2Click (Sender: TObject);beginclose;end;end.unit Unit11;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls, DBCtrls, DB;type TForm11 = class (TForm) Label1: TLabel; DataSource1: TDataSource; DBLookupComboBox1: TDBLookupComboBox; Label2: TLabel; Edit1: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn;procedure RzBitBtn2Click (Sender: TObject);procedure RzBitBtn1Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form11: TForm11;implementationuses Unit1;{$R *.dfm}procedure TForm11. RzBitBtn2Click (Sender: TObject);beginClose;end;procedure TForm11. RzBitBtn1Click (Sender: TObject);beginif trim (edit1.Text)=trim (form1.ADOQuery5passw.AsString) thenbegin form1. N1.Enabled:=true; form1. N3.Enabled:=true; form1. N5.Enabled:=false; form11. close;endelseshowmessage ('Неверныйпароль');end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBCtrls, StdCtrls, ExtCtrls, RzButton;type TForm2 = class (TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn;procedure RzBitBtn3Click (Sender: TObject);procedure RzBitBtn1Click (Sender: TObject);procedure RzBitBtn2Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form2: TForm2;implementationuses Unit1, Unit3, Unit4;{$R *.dfm}procedure TForm2. RzBitBtn3Click (Sender: TObject);beginclose;end;procedure TForm2. RzBitBtn1Click (Sender: TObject);begin form3. Edit1.clear; form3. Show;end;procedure TForm2. RzBitBtn2Click (Sender: TObject);beginwith form1. ADOQuery2 dobeginclose;sql.Clear;sql.Add ('select * from v_otv where code_v='+form1.ADOQuery1code_v.AsString);active:=true;end;form4.DBGrid1.Columns[0]. Title. caption:='Ответ';form4.DBGrid1.Columns[1].Title.caption:='Правильность'; form4. Show;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls, DB, ADODB;type TForm3 = class (TForm) Label1: TLabel; Edit1: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; ADOQuery1: TADOQuery; ADOQuery1Expr1000: TIntegerField;procedure RzBitBtn2Click (Sender: TObject);procedure RzBitBtn1Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form3: TForm3;implementationuses Unit1;{$R *.dfm}procedure TForm3. RzBitBtn2Click (Sender: TObject);beginclose;end;procedure TForm3. RzBitBtn1Click (Sender: TObject);beginwith adoquery1 dobeginclose;sql.Clear;sql.Add ('select max (code_v) from vopr');open;end;form1.ADOQuery1.AppendRecord ([form3.ADOQuery1Expr1000.AsInteger+1,edit1.Text, 0.5]); edit1. clear;showmessage ('Добавлено');end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, RzButton, StdCtrls, ADODB;type TForm4 = class (TForm) DataSource1: TDataSource; ADOQuery1: TADOQuery; Label1: TLabel; Edit1: TEdit; CheckBox1: TCheckBox; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; ADOQuery2: TADOQuery; ADOQuery2Expr1000: TFloatField; ADOQuery1Expr1000: TIntegerField; DBGrid1: TDBGrid;procedure RzBitBtn2Click (Sender: TObject);procedure RzBitBtn1Click (Sender: TObject);procedure RzBitBtn3Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form4: TForm4;implementationuses Unit1;{$R *.dfm}procedure TForm4. RzBitBtn2Click (Sender: TObject);beginclose;end;procedure TForm4. RzBitBtn1Click (Sender: TObject);varprav:integer;beginwith adoquery1 dobeginclose;sql.Clear;sql.Add ('select max (code_otv) from v_otv');open;end;with form4. ADOQuery2 dobeginclose;sql.Clear;sql.Add ('select sum (prav) from v_otv where code_v='+form1.ADOQuery1code_v.AsString);open;end;if checkbox1. Checked=true then prav:=1 else prav:=0;if (prav=1) and (form4.ADOQuery2Expr1000.AsInteger=1) then showmessage ('Правильныйответдолженбытьодин') elsebegin form1. ADOQuery2. Open;form1.ADOQuery2.AppendRecord ([form4.adoquery1expr1000.AsInteger+1,form1.ADOQuery1code_v.AsInteger, edit1. Text, prav]); edit1. clear;with form1. ADOQuery2 dobeginclose;sql.Clear;sql.Add ('select * from v_otv where code_v='+form1.ADOQuery1code_v.AsString);active:=true;end;showmessage ('Записано');end;end;procedure TForm4. RzBitBtn3Click (Sender: TObject);varcode:integer;begincode:=form1.ADOQuery2code_otv.AsInteger;with form1. ADOQuery2 dobeginclose;sql.Clear;sql.Add ('delete from v_otv where code_otv='+inttostr (code));execsql;close;sql.Clear;sql.Add ('select * from v_otv where code_v='+form1.ADOQuery1code_v.AsString);active:=true;end;showmessage ('Удалено');end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ExtCtrls, DBCtrls, Grids, DBGrids, RzButton, StdCtrls, Mask;type TForm5 = class (TForm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; DataSource1: TDataSource; Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn;procedure RzBitBtn2Click (Sender: TObject);procedure RzBitBtn1Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form5: TForm5;implementationuses Unit1, Unit6;{$R *.dfm}procedure TForm5. RzBitBtn2Click (Sender: TObject);beginclose;end;procedure TForm5. RzBitBtn1Click (Sender: TObject);begin form6. Caption:='Установкапароля '+trim (form1.ADOQuery3fio.AsString); form6. edit1.Clear; form6. Show;end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm6 = class (TForm) Label1: TLabel; Edit1: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn;procedure RzBitBtn2Click (Sender: TObject);procedure RzBitBtn1Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form6: TForm6;implementationuses Unit1;{$R *.dfm}procedure TForm6. RzBitBtn2Click (Sender: TObject);beginclose;end;procedure TForm6. RzBitBtn1Click (Sender: TObject);varcode:integer;begincode:=form1.ADOQuery3code_stud.AsInteger;with form1. ADOQuery3 dobeginclose;sql.Clear;sql.add ('update stud set passw='+form1.Label1.Caption+trim (edit1.Text)+form1.Label1.Caption+' where code_stud='+inttostr (code));execsql;close;sql.Clear;sql.Add ('select * from stud');active:=true;end;form1.ADOQuery3.Locate ('code_stud', code,[]); edit1. clear;Showmessage ('Парольустановлен');end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls, DBCtrls, DB;type TForm7 = class (TForm) DataSource1: TDataSource; DBLookupComboBox1: TDBLookupComboBox; Label1: TLabel; Label2: TLabel; Edit1: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn;procedure RzBitBtn2Click (Sender: TObject);procedure RzBitBtn1Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form7: TForm7;implementationuses Unit1;{$R *.dfm}procedure TForm7. RzBitBtn2Click (Sender: TObject);beginclose;end;procedure TForm7. RzBitBtn1Click (Sender: TObject);beginif trim (edit1.Text)=trim (form1.ADOQuery3passw.AsString) thenbegin form1. N2.Enabled:=true; form1. N5.Enabled:=false; form1. Panel1.Visible:=true; form1. Label3.Caption:=trim (form1.ADOQuery3fio.AsString); form1. Label5.Caption:=trim (form1.ADOQuery3code_stud.AsString); form7. close;endelseshowmessage ('Неверенпароль');end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RzButton, DBCtrls, DB, ADODB;type TForm8 = class (TForm) RzBitBtn1: TRzBitBtn; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; ADOQuery1: TADOQuery; ADOQuery1code_v: TIntegerField; ADOQuery1vopr: TWideStringField; ADOQuery1reit: TBCDField; ADOQuery1tmp: TIntegerField; ADOQuery1rzn: TFloatField; DataSource1: TDataSource; DBText1: TDBText; Label6: TLabel; DBText2: TDBText; Label7: TLabel; DBText3: TDBText; ADOQuery2: TADOQuery; ADOQuery2Expr1000: TFloatField; Label8: TLabel; DBLookupListBox1: TDBLookupListBox; DataSource2: TDataSource; RzBitBtn2: TRzBitBtn; ADOQuery3: TADOQuery; ADOQuery3Expr1000: TIntegerField; RzBitBtn3: TRzBitBtn; RzBitBtn4: TRzBitBtn;procedure RzBitBtn1Click (Sender: TObject);procedure RzBitBtn2Click (Sender: TObject);procedure RzBitBtn4Click (Sender: TObject);procedure RzBitBtn3Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form8: TForm8;implementationuses Unit1, comobj;{$R *.dfm}procedure TForm8. RzBitBtn1Click (Sender: TObject);beginwith form1. ADOQuery1 dobeginclose;sql.Clear;sql.Add ('update vopr set tmp=0');execsql;close;sql.Clear;sql.Add ('select * from vopr');open;end; form8. RzBitBtn2.Enabled:=true;with adoquery2 dobeginclose;sql.Clear;sql.add ('select min (rzn) from (SELECT vopr. code_v, vopr. vopr, vopr. reit, vopr. tmp, Abs ([reit]-'+label4.Caption+') AS rzn FROM vopr where tmp=0)');open;end;with adoquery1 dobeginclose;sql.Clear;sql.Add ('SELECT vopr. code_v, vopr. vopr, vopr. reit, vopr. tmp, Abs ([reit]-'+label4.Caption+') AS rzn FROM vopr where (tmp=0) and (Abs ([reit]-'+label4.Caption+')='+form8.ADOQuery2Expr1000.AsString+')');open;end;with form1. ADOQuery2 dobeginclose;sql.Clear;sql.Add ('select * from v_otv where code_v='+form8.ADOQuery1code_v.AsString);active:=true;end;end;procedure TForm8. RzBitBtn2Click (Sender: TObject);varreit:currency; code: integer;beginifstrtoint (label2.Caption)=10 thenbegin form8. RzBitBtn2.Enabled:=false;showmessage ('Тестированиезавершено');endelsebeginwith form8. ADOQuery3 dobeginclose;sql.Clear;sql.Add ('select max (code_ts) from gur_tst');open;end; form8. RzBitBtn1.Enabled:=false;if form8. ADOQuery3.RecordCount=0 then code:=0 else code:=form8.adoquery3expr1000.AsInteger;with form1. ADOQuery4 dobeginclose;sql.Clear;sql.Add ('select * from gur_tst');open;end;form1.ADOQuery4.AppendRecord ([code+1,form1.Label5.Caption, form1. ADOQuery2code_v.AsInteger, form1. ADOQuery2prav.AsInteger]);with form1. ADOQuery4 dobeginclose;sql.Clear;sql.Add ('select * from gur_tst where code_vop='+form1.ADOQuery2code_v.AsString);open;end;reit:= (form8.ADOQuery1reit.AsCurrency*form1.ADOQuery4.RecordCount+1-form1.adoquery2prav.AsInteger)/(form1.ADOQuery4.RecordCount+1);with form1. ADOQuery1 dobeginclose;sql.Clear;sql.add ('update vopr set tmp=1 where (code_v='+form8.ADOQuery1code_v.AsString+') ');execsql;close;sql.Clear;sql.add ('update vopr set reit='+currtostr (reit)+' where (code_v='+form8.ADOQuery1code_v.AsString+') ');execsql;close;sql.Clear;sql.Add ('select * from vopr');open;end; label4. Caption:=currtostr (((strtocurr (label4.Caption)*strtoint (label2.Caption)+form1.ADOQuery2prav.AsCurrency))/(strtoint (label2.Caption)+1)); label2. Caption:=inttostr (strtoint (label2.Caption)+1);with adoquery2 dobeginclose;sql.Clear;sql.add ('select min (rzn) from (SELECT vopr. code_v, vopr. vopr, vopr. reit, vopr. tmp, Abs ([reit]-'+label4.Caption+') AS rzn FROM vopr where tmp=0)');open;end;with adoquery1 dobeginclose;sql.Clear;sql.Add ('SELECT vopr. code_v, vopr. vopr, vopr. reit, vopr. tmp, Abs ([reit]-'+label4.Caption+') AS rzn FROM vopr where (tmp=0) and (Abs ([reit]-'+label4.Caption+')='+form8.ADOQuery2Expr1000.AsString+')');open;end;with form1. ADOQuery2 dobeginclose;sql.Clear;sql.Add ('select * from v_otv where code_v='+form8.ADOQuery1code_v.AsString);active:=true;end;end;end;procedure TForm8. RzBitBtn4Click (Sender: TObject);beginclose;end;procedure TForm8. RzBitBtn3Click (Sender: TObject);varworduk:variant;beginif fileexists ('c:int_sysshab'+form1.ADOQuery2code_v.AsString+'.doc') = true thenbeginworduk:=createoleobject ('word.application');worduk.documents.open ('c:int_sysshab'+form1.ADOQuery2code_v.AsString+'.doc');worduk.visible:=true;worduk:=unassigned;endelseshowmessage ('Не загружен файл справки для этого теста');end;end.unit Unit9;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, RzButton, StdCtrls, Mask, DBCtrls, ExtCtrls;type TForm9 = class (TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Label1: TLabel; Label2: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn;procedure RzBitBtn2Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form9: TForm9;implementationuses Unit1;{$R *.dfm}procedure TForm9. RzBitBtn2Click (Sender: TObject);beginclose;end;end.

Показать весь текст

Список литературы

Братко И.Н. Программирование на языке Пролог для искусственного интеллекта. — М.: Мир, 1990.
Вендров А.М. Практикум по проектированию программного обеспечения экономических информационных систем: учеб. пособие / А. М. Вендров. — М.: Финансы и статистика, 2002. — 192 с.
Воронин, А.Г., Лапин, В.Л., Широков, А. Н. Основы управления муниципальным хозяйством / А. Г. Воронин, В. Л. Лапин, А. Н. Широков. — М.: Дело, 1988.
Гаскаров, Д.Б. Интеллектуальные информационные системы. — М.: Высшая школа, 2003.
Долин, Г. Что такое Экспертные системы. — М.: Компьютер Пресс, 1998.
Дорохова, В.Р. Курс лекций по дисциплине «Проектирование информационных систем» / В. Р. Дорохова; Алт. гос. техн. ун-т им. И. И. Ползунова. — Барнаул: кафедра ИСЭ, АлтГТУ, 2010. — 161 с.
Ефимов Е.Н., Патрушина С. М., Панферова Л. Ф., Хашиева Л. И. Информационные системы в экономике. — М.: ИКЦ «МарТ». 2008, 326с.
Ефимов, Е.Н., Патрушина, С.М., Панферова, Л.Ф., Хашиева, Л. И. Информационные системы в экономике / Е. Н. Ефимов, С. М. Патрушина, Л. Ф. Панферова, Л. И. Хашиева. — М.: ИКЦ «МарТ»; Ростов н/Д: издательский центр «МарТ», 2004. — 352 с.
Марселлус Д.Н. Программирование экспертных систем на Турбо Прологе. — М.: Финансы и статистика, 1994. 523с.
Нейлор, К. Как построить свою экспертную систему. — М.: Энергоатомиздат, 2011.
Нильсон Н.Д. Искусственный интеллект. Методы поиска решений. — М.: Мир, 1973. 232с.
Нильсон, Н. Искусственный интеллект. Методы поиска решений. — М.: Мир, 1973.
Поспелов Г. С. Искусственный интеллект — основа новой информационной технологии. — М.: Наука, 2009.
Сафонов В.О. Экспертные системы — интеллектуальные помощники специалистов. — С.-Пб.: Санкт-Петербургская организация общества «Знания» России, 1992. 234с.
Сафонов, В.О. Экспертные системы — интеллектуальные помощники специалистов. — С.-Пб: Санкт-Петербургская организация общества «Знания» России, 2002.
Таунсенд К., Фохт Д. Проектирование и программная реализация экспертных систем на персональных ЭВМ. — М.: Финансы и статистика, 1990.
Убейко, В.Н. Экспертные системы. — М.: МАИ, 1999.
Уотермен Д. Руководство по экспертным системам. — М.: Мир, 1980. 236с.
Уотермен, Д. Руководство по экспертным системам. — М.: Мир, 1990.
Ф.Хейес-Рот; Д. Уотерман; Д. Ленат. Построение экспертных систем. М.:Мир, 1987, 325с.
Элти Д., Кумбс М. Экспертные системы: концепции и примеры. — М.: Финансы и статистика, 1987. 402с.
Ясницкий, Л.Н. Введение в искусственный интеллект. — М.: Академия, 2005.
Леденева Т.М., Подвольный С. Л. Системы искусственного интеллекта и принятия решений: учебное пособие; Уфа: УГАТУ, 2005. — 246 с.
Арсеньев С. Н., Шелобов С. И., Давыдова Т. Ю. Принятие решений. Интегрированные информационные системы. Учебное пособие для ВУЗов. М.:Юнити-Дана, 2003.-270 с.
Андрейчиков А.В., Андрейчикова О. Н. Интеллектуальные информационные системы. Уч.- М.: Финансы и статистика, 2012.- 424 с.
Абдикеев Н.М. Проектирование интеллектуальных систем в экономике. Учебник / М.: Экзамен, 2012 — 526с.
Макаров И. М. Искусственный интеллект и интеллектуальные системы управления / И. М. Макаров, В. М. Лохин, С. В. Манько; отделение информационных технологий и вычислительных систем РАН. — М.: Наука, 2006.
Пупков К. А., Коньков В. Г. Интеллектуальные системы. — Издательство МГТУ им. Н. Э. Баумана, 2003

Заполнить форму текущей работой

Купить готовую работу