Автоматизированная система распределения мест и оценок качества олимпиадных заданий
Педагогика, Автоматизированная система распределения мест и оценок качества олимпиадных заданий , Диплом и связанное с ним
... Required := True; end; with AddFieldDef do begin Name := 'MARK3'; DataType := ftFloat; Required := True; end; with AddFieldDef do begin Name := 'MARK4 ...
do begin Clear; with AddIndexDef do begin Name := ''; Fields := 'COUNTER'; Options := [ixPrimary]; end; with AddIndexDef do begin Name := 'VAL1' ...
Утилита диагностики компьютера
[нестрогое соответствие]
Программирование и комп-ры, Утилита диагностики компьютера, Диплом
... 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 ...
Разработка программы психотестирования
[нестрогое соответствие]
Программирование и комп-ры, Разработка программы психотестирования, Курсовая
... 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( ...
Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута
[нестрогое соответствие]
Программирование и комп-ры, Разработка программного обеспечения для Отделения Реанимации и Интенсивной Терапии новорожденных МГБ N1 г. Сургута ...
... With DMAdmin do begin TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); if (TblDSTITLE.Value <> EditDS.Text) and (EditDS.Text <> '') then BtnSAVE. ...
... With DMAdmin do begin TblDS.Locate('TITLE', EditDS.Text, [loPartialKey]); if (TblDSTITLE.Value <> EditDS.Text) and (EditDS.Text <> '') then BtnSAVE. ...
Программная реализация модального управления для линейных стационарных систем
[нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая
... Order, Pred(NumReturn)); for Serie := 1 to Order do begin ChartFX.SerLeg[Pred(Serie)] := 'X ' + IntToStr(Serie); ChartFX.ThisSerie := Pred(Serie); for ...
... TMatrix.SetSingle; var i: Word; begin if FCols <> FRows then Raise EMatrixOperatingError.Create ('Единичная матрица должна быть '+ 'квадратной') else ...
Моделирование игровых программ
[нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая
... hc:=Pic.Height div H; wc:=Pic.Width div W; ClientWidth:= wc * W; ClientHeight:= hc * H; for i:=1 to H do for j:=1 to W do pole[i,j]:= stp[i,j]; Form1
... 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 ...
Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров
[нестрогое соответствие]
Программирование и комп-ры, Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров, Контрольная
... Bitmap.ScanLine[I + 1]; if J > 0 then begin Summ := Summ + NextLine^[J - 1]; end; Summ := Summ + NextLine^[J]; if J + 1 < Image1.Picture.Bitmap.Width ...
... текущему пикселю CurrentLine^[Hor] := PixelArray[((Value*Value) div 2) + 1]; end; end; Image1.Visible := False; Image1.Visible := True; N4.Enabled ...
Нахождение кратчайшего пути
[нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая
... Arr[i+1]; Dec(Dim); SetLength(Arr,Dim+1); DrawAll; end; procedure TDrawingObject.SetActive(Num:integer); begin Arr[Num].Color:=RedLight; DrawSelf(Num) ...
... Matrix,Dimension+1,Dimension+1); if LengthActive then SetLength(MatrixLength,Dimension+1,Dimension+1); end; procedure TData.Rebro(First,Second:integer ...
Моделирование процессов функционирования технологических жидкостей в системе их применения
[нестрогое соответствие]
Технология, Моделирование процессов функционирования технологических жидкостей в системе их применения , Диплом и связанное с ним
PSpeciesPropertys; var Changing: boolean): boolean; // Changing = true если параметры отличны от старых в mas // Управление окнами Ansys 5.5 ...
... PLVECT,V,,,,VECT,ELEM,ON,0') end; procedure TAbstractElement.ShowPressure; begin RunMacros('/POST1'); RunMacros('SET,LAST'); RunMacros('PLNSOL,PRES,,0 ...