Похожие работы на «Программатор ПЗУ (программный интерфейс)»

Программатор ПЗУ (программный интерфейс)
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... And(Key<>chr(27)) Then If (Key<>chr(08)) Then Begin If y<>9 Then Begin zs[y]:=Key; Wrt(key+'-'); inc(y); End; End Else If y<>1 Then Begin dec(y); Loc( ...
... Key<>chr(27)) Then If (Key<>chr(08)) Then Begin If y<>9 Then Begin zs[y]:=Key; Wrt(key+'-'); inc(y); End; End Else If y<>1 Then Begin dec(y); Loc(25+y ...


Нахождение кратчайшего пути
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... X, Y: Integer); begin if Button=mbLeft then begin MyIO.FormMouseDown( X, Y); if (MyIO.State=msMove)then if MyIO.FirstPointActive then Cursor ...
... Exit; end; if not flag then begin if FSnapToGrid then IONewPoint(StepRound(x,GrigStep),StepRound(y,GrigStep)) else IONewPoint(x,y);end; end; procedure ...


Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления
Технология, Разработка системы управления асинхронным двигателем с детальной разработкой программ при различных законах управления, ... U1a,U1b); PsisRAngle:=AbsoluteAngle(x[1],x[2])-UssAbsoluteAngle; if PsisRAngle<0 then PsisRAngle:=360+PsisRAngle; PsirRAngle:=AbsoluteAngle(x[3],x[4] ...
... if AComponent=0 then begin if BComponent>0 then IntAngle:=90 else IntAngle:=-90; end else if BComponent=0 then begin if AComponent>0 then IntAngle:=0 ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... delay(1000); writeln('Reload-'); write('Exit-'); c:=readkey; if c=#27 then begin menu; goto menu2; end else begin textmode(Co80); l:=4; goto menu2; ...
... menu; goto menu2; end; {-выход- -} if l=7 then exitt else begin error; goto menu2; end; {=END_Proga=} END. | Writed by Sergei Kovbasyuk | | | |(c)2000 ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... var Gx, Gy: real; x,y: word); var a, b, c, d, e, g, h, i: byte; begin with Image.Canvas do begin if Pixels[x-1,y-1] = clBlack then a := 0 else a
... Pixels[x+1,y-1] = clBlack then c := 0 else c := 1; if Pixels[x-1,y] = clBlack then d := 0 else d := 1; if Pixels[x+1,y] = clBlack then e := 0 else e ...


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


Разработка программы- тренажера Управление электросетями [нестрогое соответствие]
Программирование и комп-ры, Разработка программы- тренажера Управление электросетями , Работа Выпускная ... 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
... MVState(AOwner:TImage;i:integer); begin if F[i]=false then begin with AOwner.Canvas do begin Pen.Color:=clWhite; MoveTo(9,6); LineTo(9,11); Pen.Width: ...


Арканоид на Паскале [нестрогое соответствие]
Программирование и комп-ры, Арканоид на Паскале, Курсовая ... y-20,0,false); end; end; procedure search_y; begin case y of 22..42: begin y:=42; stroika; end; 43..63: begin y:=63; stroika; end; 64..84: begin y:=84 ...
... y:=189; stroika; end; 190..210:begin y:=210; stroika; end; 211..231:begin y:=231; stroika; end; 232..252:begin y:=252; stroika; end; 263..273:begin y: ...


Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов [нестрогое соответствие]
Кибернетика, Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов, Диплом ... Color:=clWindowText; end else begin if (Output[2]>Output[1]) then begin LabelEven.Font.Color:=clRed; LabelOdd.Font.Color:=clWindowText; end; end; end; ...
... indexBtnNextClick,1]:=0.1;//-1; target[indexBtnNextClick,2]:=0.9;//1; end; // * if (indexBtnNextClick+1)=numberpatterns then begin BtnNext.Caption: ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... X+1,Y)=0 then Exit; If Potenc(X-1,Y)=0 then Exit; If O=1 then begin Ekv[X+1,Y+1]:=True; Ekv[X-1,Y+1]:=True; end; If O=2 then begin Ekv[X-1,Y-1]:=True; ...
... 1]:=True; end; If O=4 then begin Ekv[X+1,Y-1]:=True; Ekv[X+1,Y+1]:=True; end; If O=1 then begin En[EnNow].X:=X+1; En[EnNow].Y:=Y+1; En[EnNow+1].X:=X-1 ...