Похожие работы на «Моделирование игровых программ»

Моделирование игровых программ
Программирование и комп-ры, Моделирование игровых программ, Курсовая ... end; end; 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, ...
... pole,H+1,W+1); for i:=1 to H do for j:=1 to W do stp[i,j]:=h*(i-1)+j; stp[H,W]:=0 end; procedure Move(cx, cy:integer); var r:integer; begin if not ...


Метод Гурвица [нестрогое соответствие]
Программирование и комп-ры, Метод Гурвица, Курсовая ... caption:='A'; tabliza.cells[1,0]:='a_малая';tabliza.cells[2,0]:='a_большая'; end; end; { Вывод наибольший, наименьший, расчётный выигрыш матрицы V_А} ...
... cells[2,0]:='b_большая'; for j:=1 to n do begin tabliza.cells[1,j]:=intToStr(b_m[j]); tabliza.cells[2,j]:=intToStr(b_b[j]); end; for i:=1 to n do for ...


Разработка тестового приложения Компоненты меню Delphi [нестрогое соответствие]
Программирование и комп-ры, Разработка тестового приложения Компоненты меню Delphi , Работа Курсовая ... массивов i:=1; repeat readln(f,buf); if buf[1] <> '.' then begin mes[i]:=buf; readln(f,level[i]); i:=i+1; end; until buf[1]='.'; Продолжение ...
... closefile(f); Button1.tag:=2; Button1.caption:='Выход'; Button1.Enabled:=true; Itog(summa,Form1); end; end; 2: begin // завершение работы Form1.Close; ...


Разработка интерактивной среды обучения работе [нестрогое соответствие]
Программирование и комп-ры, Разработка интерактивной среды обучения работе, Курсовая ... 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( ...


Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов [нестрогое соответствие]
Кибернетика, Сравнительный анализ нейросетевых реализаций алгоритмов распознавания образов, Диплом ... for i := 1 to OutputLayerUnits do begin for j := 1 to InputLayerUnits do begin w[i,j]:=w[i,j]+eta*error[i]*v[m,j]; end; end; end; end;//if until stop; ...
... 1 to numberneurons do begin w[i,j]:=w[i,j]+(2*v[i]-1)*(2*v[j]-1); w[j,i]:=w[i,j]; end; end; if (indexBtnNextClick+1)=numberpatterns then begin BtnNext ...


Программа Клон [нестрогое соответствие]
Программирование и комп-ры, Программа Клон, Курсовая ... Возвращение рисунка для синих фишек if (a[i,j]=0) then if button=mbLeft then begin if (abs(i-vi)<3) and (abs(j-vj)<3) then begin if (abs(i-vi)=2) or ...
... true; for i:=0 to 9 do for j:=0 to 9 do begin b[i,j].Left:=i*(image1.Width); b[i,j].top:=j*(image1.Height); b[i,j].Bottom:=b[i,j].Top+image1.Height; b ...


Нахождение кратчайшего пути [нестрогое соответствие]
Программирование и комп-ры, Нахождение кратчайшего пути, Курсовая ... FormMouseDown( X, Y: Integer); procedure Select(FirstPoint,LastPoint:integer); procedure DrawCoordGrid(x,y,x1,y1:integer); procedure DrawLine(x1,y1: ...
... stream.ReadInteger; finally stream.Free; st.Free; end; end; procedure TData.Remove(Num:integer); var i,j:integer; begin for i:=Num to Dimension-1 do ...


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... real; { Угол, под которым выделять линии } xStart, xEnd, yStart, yEnd: word; BegSelect: boolean; procedure DefGradient(var Gx, Gy: real; x,y: word) ...
... число не белых пикселов } if Image.Canvas.Pixels[x,y] <> clWhite then Inc(Count); end; { for x } end; { for y } x1 := x1+dx; { Следующий квадрат по ...


Исследование и моделирование с помощью компьютера электрических полей [нестрогое соответствие]
Физика, Исследование и моделирование с помощью компьютера электрических полей, Реферат ... Y:Real;K:Integer;Stop:Real); Procedure ElRefresh; Procedure Prepare; Procedure Stop; Procedure Redactor; Procedure PaintLines; Function CheckEkviBegin ...
... 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:=(Qrc[I,2]-Y)/25*StrToFloat(Form2. ...


Автоматизация расчета начислений заработной платы в строительном управлении N 151 [нестрогое соответствие]
Программирование и комп-ры, Автоматизация расчета начислений заработной платы в строительном управлении N 151 , Рефераты ... Выходные} if a[i,j,6]=0 then begin a[i,j,4]:=round(1.5*t[i,j,1]*t[i,j,4]/kol_d); balls[i,j]:=balls[i,j]+t[i,j,1]*t[i,j,4]/kol_d;end else begin balls[i ...
... 4]:=round(1.5*t[i,j,1]*t[i,j,5]);end; {Сверхурочные} if a[i,j,6]<>0 then begin balls[i,j]:=balls[i,j]+t[i,j,1]*(t[i,j,6]+t[i,j,7]); a[i,j,5]:=round(t[ ...