Утилита диагностики компьютера
Программирование и комп-ры, Утилита диагностики компьютера, Диплом
... dword; Numthreads:dword; NumVMS:dword; end; type TFATInfo = record BreadsSec:dword; BwritesSec:dword; Dirtydata:dword; ReadsSec:dword; WritesSec:dword ...
... nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; nop; ...
Разработка программы- тренажера Управление электросетями
[нестрогое соответствие]
Программирование и комп-ры, Разработка программы- тренажера Управление электросетями , Работа Выпускная
... 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 ...
... Count:=Count+1; Form1.ResultBtn.Visible:=True; end; {Считывание информации дла решения задач} procedure Read; var Fil:textfile; s:string; j:integer; ...
Программная реализация модального управления для линейных стационарных систем
[нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая
... Order, Pred(NumReturn)); for Serie := 1 to Order do begin ChartFX.SerLeg[Pred(Serie)] := 'X ' + IntToStr(Serie); ChartFX.ThisSerie := Pred(Serie); for ...
... then Raise EMatrixOperatingError.Create ('Единичная матрица должна быть '+ 'квадратной') else begin SetNull; for i := 1 to FCols do SetCell (i, i, 1) ...
Разработка интерактивной среды обучения работе
[нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая
... first:=false; fontemp:=frmlesson.canvas.font; drawpage end else begin nopaint:=true; drawpage; nopaint:=false end end; procedure TfrmLesson.FormShow( ...
... f,lessonname); reset(f); while not eof(f) do begin readln(f,s); if s='/:question' then inc(nq) end; closefile(f); reset(f); readln(f,name); frmlesson. ...
Исследование и моделирование с помощью компьютера электрических полей
[нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат
... Circle(X,Y,R:Real;W:Byte); Procedure RefreshStatus(X,Y:Byte); Procedure ElTrack(X,Y:Real;B,K:Integer); Procedure ElTrackForMoving(X,Y:Real;K:Integer; ...
... X,Y:Integer):Real; Var I:Integer; Dx,Dy,Tmp,Dist:Real; Begin Tmp:=0; For I:=1 to Nc do begin Dx:=(Qrc[I,1]-X)/25*StrToFloat(Form2.Edit2.Text); Dy: ...
Разработка программы психотестирования
[нестрогое соответствие]
Программирование и комп-ры, Разработка программы психотестирования, Курсовая
... 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( ...
Моделирование игровых программ
[нестрогое соответствие]
Программирование и комп-ры, Моделирование игровых программ, Курсовая
TObject); procedure ShowPole; procedure Mixer; procedure NewGame; procedure Formmas; procedure N11Click(Sender:
... 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 ...
Файловая оболочка (Delphi 30 )
[нестрогое соответствие]
Программирование и комп-ры, Файловая оболочка (Delphi 30 ), Курсовая
... Free Spase','Error',MB_APPLMODAL+MB_OK); end else begin end; end; end; Procedure DelOneFile(dFile:string;Flag:boolean); //Удаление одного файла Var F: ...
... and(R=True) then begin break; end else begin r:=false; break; end; end; end; end; if MaskN[Length(MaskN)]='*' then begin j:=0; for i:=0 to EndFor do ...
Экспертная система
[нестрогое соответствие]
Программирование и комп-ры, Экспертная система, Курсовая
... Namebzd, str); case n of 1: begin Form1.Button1.Visible := true; Form1.Button1.Caption := str; end; 2: begin Form1.Button2.Visible := true; Form1. ...
... Visible := false; 3: Form1.Button3.Visible := false; 4: Form1.Button4.Visible := false; end; end; closefile (Namebzd); end; procedure TForm1.ExitClick ...
Нахождение кратчайшего пути
[нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая
... 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 ...