Похожие работы на «Экспертная система»

Экспертная система
Программирование и комп-ры, Экспертная система, Курсовая ... str); Form1.Label1.Caption := str; readln(Namebzd, str); i := strtoint (str); for n:= 1 to 4 do // активизируется нужное количество кнопок с ответами
... begin Form1.Button3.Visible := true; Form1.Button3.Caption := str; end; 4: begin Form1.Button4.Visible := true; Form1.Button4.Caption := str; end; end ...


Разработка тестового приложения Компоненты меню Delphi [нестрогое соответствие]
Программирование и комп-ры, Разработка тестового приложения Компоненты меню Delphi , Работа Курсовая ... answer[i].left-5; answer[i].Visible:=false; selector[i].Visible:=false; end; frm.Label5.width:=frm.ClientWidth-frm.Label5.left-5; frm.Image1.Visible: ...
... Form1); end; end; 2: begin // завершение работы Form1.Close; end; end; end; // щёлчок на кнопке выбора ответа Procedure TForm1.SelectorClick(Sender:


Разработка программы- тренажера Управление электросетями [нестрогое соответствие]
Программирование и комп-ры, Разработка программы- тренажера Управление электросетями , Работа Выпускная ... if F[i]=false then begin with AOwner.Canvas do begin Pen.Color:=clWhite; MoveTo(9,6); LineTo(9,11); Pen.Width:=2; Pen.Color:=clBlack; Rectangle(1,1,17 ...
... Label1.Caption:=''; Prot.Append(Zap.FComment); end else begin Form1.Label1.Caption:=' Ошибка'; Prot.Append('Ошибка, '+Zap.FComment); Error:=Error+1; ...


Разработка программы психотестирования [нестрогое соответствие]
Программирование и комп-ры, Разработка программы психотестирования, Курсовая ... assignfile(f,copy(testfilename,1,length(testfilename)-3)+'rts'); reset(f); while not eof(f) do begin read(f,r); if testcount in [r.min..r.max] then ...
... read(f,test[testnum]); inc(testnum) end; statictext1.Caption:='Всего вопросов '+inttostr(testnum); closefile(f); spinedit1.value:=1; spinedit1change( ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... 0; assignfile(f,'ld.cfg'); reset(f); while not eof(f) do begin inc(n); read(f,lesson); names[n]:=lesson.filename; lblessons.Items.Add('Урок '+inttostr ...
... first:=false; fontemp:=frmlesson.canvas.font; drawpage end else begin nopaint:=true; drawpage; nopaint:=false end end; procedure TfrmLesson.FormShow( ...


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... integer; FirstPoint: integer; FirstPointActive: boolean; LastPoint: integer; AutoLength: boolean; Mashtab: integer; procedure MakeLine(X, Y: Integer) ...
... Matrix,Dimension+1,Dimension+1); if LengthActive then SetLength(MatrixLength,Dimension+1,Dimension+1); end; procedure TData.Rebro(First,Second:integer ...


Утилита диагностики компьютера [нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом ... FClockPriority:=Value; case FClockPriority of cpIdle: begin FDesiredProcessPriority:=IDLE_PRIORITY_CLASS; FDesiredThreadPriority :=THREAD_PRIORITY_ ...
... testing small block of // code when it must be put in the processor cache begin FDeltaValue:=0; if FCounterSupported and assigned(FPrecizeProc) then ...


Автоматизированная система распределения мест и оценок качества олимпиадных заданий [нестрогое соответствие]
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним ... Olymp'; TableType := ttParadox; TableName := Edit1.Text; if not Form1.Table1.Exists then begin with FieldDefs do begin Clear; with AddFieldDef do ...
... DataType := ftFloat; Required := True; end; with AddFieldDef do begin Name := 'MARK3'; DataType := ftFloat; Required := True; end; with AddFieldDef do ...


Программа Клон [нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая ... и | | | |адрес ячейки в массиве | | | |сопоставлен ячейке на поле. | | | |procedure | | | |TForm1.Button2Click(Sender: | | | |TObject) - при нажатии ...
... image2.Canvas.StretchDraw(b[i,j],image4.picture.bitmap); V2i:=i; v2j:=j; end else begin image2.Canvas.StretchDraw(b[v2i,v2j],image3.picture.bitmap) ...


Моделирование игровых программ [нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая ... function Finish: boolean; var row,col: integer; i: integer; begin row:=1; col:=1; Finish:= True; for i:=1 to 15 do begin if pole[row,col] <> i then ...
... Pole[cy,cx]:=0; ex:=cx; ey:=cy; Form1.ShowPole; if Finish then begin pole[H,W]:=H*W; Form1.ShowPole; r:=MessageDlg('Цель достигнута!'+ #13+ 'Еще раз? ...