Похожие работы на «Разработка программы психотестирования»

Разработка программы психотестирования
Программирование и комп-ры, Разработка программы психотестирования, Курсовая ... ttest; begin if opendialog1.execute then begin assignfile(f,opendialog1.Filename); reset(f); testnum:=1; while not eof(f) do begin read(f,test[testnum ...
... var f:file of tresult; begin if opendialog1.execute then begin assignfile(f,opendialog1.filename); reset(f); varnum:=1; while not eof(f) do begin read ...


Утилита диагностики компьютера [нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом ... HIGH_PRIORITY_CLASS; FDesiredThreadPriority :=THREAD_PRIORITY_HIGHEST; end; cpRealTime:begin FDesiredProcessPriority:=REALTIME_PRIORITY_CLASS; ...
... TProcessorClockCounter.TestPrecizeProc; // This procedure is intended for testing small block of // code when it must be put in the processor cache ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... real; { Угол, под которым выделять линии } xStart, xEnd, yStart, yEnd: word; BegSelect: boolean; procedure DefGradient(var Gx, Gy: real; x,y: word) ...
... try } if Result = mrOK then SetRect; end; { Определение градиентов Gx и Gy в точке [x,y] } procedure TMainForm.DefGradient(var Gx, Gy: real; x,y: word ...


Разработка тестового приложения Компоненты меню Delphi [нестрогое соответствие]
Программирование и комп-ры, Разработка тестового приложения Компоненты меню Delphi , Работа Курсовая ... ResetForm(Form1); if ParamCount = 0 then begin Продолжение приложения 1 Label5.font.color:=clRed; Label5.Font.Size:=12; Label5.caption:='Не обнаружено ...
... Button1.Enabled:=true; Itog(summa,Form1); end; end; 2: begin // завершение работы Form1.Close; end; end; end; // щёлчок на кнопке выбора ответа ...


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... i :=1 to Dim do if HasPoint(i,X,Y) then begin Result:=i; Exit; end; end; procedure TDrawingObject.SetUnActive(Num:integer); begin Arr[Num].Color:=Red; ...
... Matrix,Dimension+1,Dimension+1); if LengthActive then SetLength(MatrixLength,Dimension+1,Dimension+1); end; procedure TData.Rebro(First,Second:integer ...


База данных Бюро знакомств [нестрогое соответствие]
Программирование и комп-ры, База данных Бюро знакомств, Курсовая ... Writeln(ff,'Приглашение в кафе "Ночной Тарзан"');//Добавляем строку в файл Writeln(ff,'На вечер знакомства с '+table1.fieldbyname('Family').asstring+ ...
... Execute then memo1.Lines.SaveToFile(SaveDialog1.FileName);//Открываем окно диалога сохранения файла и сохраняем текстовую область Memo1 в указанный ...


HTML и базы данных [нестрогое соответствие]
Программирование и комп-ры, HTML и базы данных , Работа Курсовая ... 0); if gn1>=0 then Delete(gn1); gn1 := StrToIntDef(Values['Gr1'],0); gn2 := StrToIntDef(Values['Gr2'],0); end; //with if gn1=0 then Response.Content ...
... OperKind>0) and (CellColumn=0) and (CellRow>0) then begin CellData := '' +CellData; end; if (OperKind>0) and (CellColumn=StoreQTP.Columns.Count-1) and ...


Разработка программы- тренажера Управление электросетями [нестрогое соответствие]
Программирование и комп-ры, Разработка программы- тренажера Управление электросетями , Работа Выпускная ... Rectangle(1,1,17,17); MoveTo(6,17); LineTo(15,1); end; F[i]:=true; end else begin with AOwner.Canvas do begin Pen.Color:=clWhite; MoveTo(6,17); LineTo
... with AOwner.Canvas do begin Pen.Color:=clWhite; MoveTo(9,6); LineTo(9,11); Pen.Width:=2; Pen.Color:=clBlack; Rectangle(1,1,17,17); MoveTo(6,8); LineTo ...


Автоматизированная система распределения мест и оценок качества олимпиадных заданий [нестрогое соответствие]
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним ... DataType := ftFloat; Required := True; end; with AddFieldDef do begin Name := 'MARK3'; DataType := ftFloat; Required := True; end; with AddFieldDef do ...
... with AddFieldDef do begin Name := 'PARAM1'; DataType := ftFloat; Required:=False; end; with AddFieldDef do begin Name := 'PARAM2'; DataType := ftFloat ...


Моделирование игровых программ [нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая TObject); procedure ShowPole; procedure Mixer; procedure NewGame; procedure Formmas; procedure N11Click(Sender:
... 1; Finish:= True; for i:=1 to 15 do begin if pole[row,col] <> i then begin Finish:=False; break; end; if col < 4 then inc(col) else begin col :=1; inc ...