Похожие работы на «Арканоид на Паскале»

Арканоид на Паскале
Программирование и комп-ры, Арканоид на Паскале, Курсовая ... var x,x1_dv,x2_dv:t_kubik;var y:t_kubik); procedure dviguna_mouse(const koeff:byte;var x,x1_dv,x2_dv:t_kubik;var y:t_kubik); procedure zar_nar(var x,y ...
... 1; x1_dv:=x2_dv-koeff*shir; bar3d(x1_dv,y1_dv,x2_dv,y2_dv,0,false); end else begin setcolor(0); setfillstyle(0,0); bar3d(x1_dv,y1_dv,x2_dv,y2_dv,0, ...


Взаимодействие основных частей ЭВМ при выполнении программы [нестрогое соответствие]
Программирование и комп-ры, Взаимодействие основных частей ЭВМ при выполнении программы, Курсовая ... Animation(52, 160, -94, 2, '+', False) | |end; {Move_4_3} | ... | |procedure Move_4_4; | ... | |begin | |SetColor(Green); | |Animation(52, 66, 115, 1, ...
... if D < 0 then | |begin | |DX := -1; | |DY := -1; | |end; | |case XY of | |1: DY := 0; | |2: DX := 0; | |end; | |D := Abs(D); | |for I := 1 to D do ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... свой радиус. for i:=399 downto 0 do begin setcolor(i); сircle(322,250,i); delay(10); end; {-end_krugi-} Закрытие граф. режима closegraph; Завершение ...
... 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; ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... key:=true; end; end else begin end; end; end; {*} procedure hnew; begin I:=0; REPEAT I:=I+1; begin x:=hr[i].getx; y:=hr[i].gety; At:=hr[I].DAIAGE; CTp ...
... J:=RANDOM(hP); x:=x+j; end; for y:=m+1 to m+1+x do begin hr[y].init((random(630)+5),(random(462)+18),0,ch); hr[y].show; end; m:=m+1+x; if (m>1000) or ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... Function Tposition.Getx:integer; Begin GetX:=x End; Function Tposition.Gety:integer; Begin Gety:=y End; Constructor Tosob.Init(x0,y0,age0:integer;col: ...
... Mycrt; interface uses tpcrt,dos; procedure fon(x:byte); procedure txt(col:byte); procedure ramka(x1,y1,x2,y2:integer); procedure colorwind(v1,v2,v3,v4 ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... i, j, x, y, dx, dy, Range, x1, y1: word; Count: word; begin x := xStart; y := yStart; dx := Round((xEnd-xStart+1) div 3); dy := Round((yEnd-yStart+1) ...
... x-xStart+1) div 2; y := yStart + 1 + (y-yStart+1) div 2; end; 4: begin x := xStart + dx + (x-xStart+1) div 2; y := yStart + 1 + (y-yStart+1) div 2; ...


Кодирующее устройство для кода Файера [нестрогое соответствие]
Коммуникации и связь, Кодирующее устройство для кода Файера, Курсовая ... Sum:=0 Else Sum:=1; End; {-} Procedure Dopoln(Var F : Mass1); {Умножение на старшую степень образующего многочлена} Var i : Byte; Begin for i:=_N+1 to ...
... For i:=1 to _N do Begin A[i,_N+1-i]:=1 End; End; {-} Procedure Obr_Matrix(Var A : Two_Matrix); {Получение образующей матрицы} Var i,j,t,Schot,l,m ...


Линейное программирование: решение задач графическим способом [нестрогое соответствие]
Программирование и комп-ры, Линейное программирование: решение задач графическим способом, Курсовая ... MinX+Round((_iN.b- (Round(MinY/MASHT)*_iN.y))/_iN.x*MASHT),MaxY); SetColor(15); LineTo(MinX+Round(_iN.b/_iN.x*MASHT),MinY); end; if _iN.b/_iN.x<0 then ...
... b*inMainF.x); if _d <> 0 then begin{исклюсаем бесчисленное мн-во решений} outX:=dx/_d; outY:=dy/_d; end; if (_d = 0) and ((dx = 0) xor (dy = 0)) then ...


Программатор ПЗУ (программный интерфейс) [нестрогое соответствие]
Программирование и комп-ры, Программатор ПЗУ (программный интерфейс), ... al,8 je @wa1 @wa2: in al,dx test al,8 jne @wa2 End; Procedure Color(c1,c2 : byte); Begin clr:=c1+16*c2; End; Procedure Loc(x,y: byte); Begin px:=x; py ...
... a:=205; screen[addr]:=a; inc(addr,2); End; End; Procedure MakeMans; Var x: word; Begin For x:=0 To 80*25-1 Do Begin screen[x+x] :=177; screen[x+x+1] ...


Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале) [нестрогое соответствие]
Кибернетика, Вычисление интеграла методом Ньютона-Котеса (теория и программа на Паскале), Курсовая ... n:integer;var a,b:real); procedure wwod2(ea:word;var ea1:word;var n:integer;var a,b:real;var st:string); procedure win3(ea:word;n:integer;a,b:real;int ...
... c>1 then c:=c-1; #72: c:=c+1; #71: c:=24; #79: n:=n+1; #83: r:=r+1; #82: v:=v+1; #73: begin c:=24; n:=0;r:=0;v:=0;x1:=-240;x2:=240; end; #59: hwg(ea) ...