Похожие работы на «Разработка игровой программы»

Разработка игровой программы
Программирование и комп-ры, Разработка игровой программы, Курсовая ... fire.v:=true; fire.r:=35; fire.si:=sin(fi)*1.1; fire.co:=cos(fi); ok:=true; fire.xs:=-10; fire.ys:=-10; end; s:=s+1; end; end; if (kv=0) and (not(fire ...
... 4,fire.ys-4,fire.xs+4,fire.ys+4); xv:=round(fire.si*fire.r+320); yv:=round(fire.co*fire.r+406); fire.r:=fire.r+5; fire.xs:=xv;fire.ys:=yv; if (fire.xs ...


Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры [нестрогое соответствие]
Программирование и комп-ры, Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с ... ... crx,cr_type,false); | |if promah then promah:=false; | |end else begin | |if cr_ind mod cr_type*5=0 then begin | |if promah then begin | |if flang=0 ...
... tarx:=tarx+5; | |b:=true; | |end; | |end; | |#32: begin {пробел "Выстрел"} | |if not fire then begin | |x:=800; | |fire:=true; | |fx:=tarx; | |fy:=380 ...


Исследование эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна [нестрогое соответствие]
Технология, Исследование эффекта автодинного детектирования в многоконтурном генераторе на диоде Ганна, ... iii1; fcount:=fcount+1; fsign:=-1; end; end else begin if y[8]-old_cur >= 0 then begin if fcount = 0 then fpoint:=iii1; fcount:=fcount+1; fsign:=1; ...
... i]:=sign[i+1]; end; sign[500]:=y[8]; end; end; if(iii1>249) then begin { control circle } if (mark=1) then begin mark:=0; setcolor(14); circle(xg+phas ...


Разработка игровой программы [нестрогое соответствие]
Программирование и комп-ры, Разработка игровой программы, Курсовая ... end; $2C: begin CK:=True; Down1:=True; end; {вниз первая дощечка} : begin CK:=True; Down1:=False; end; $25: begin CK:=True; Up2:=True; end; {вверх ...
... R1:=430;{не пропускать ниже положенной} {координаты} SetColor(1); Line(50, oR1-48, 50, oR1+48); oR1:=R1; end; SetColor(11); Line(50, R1-48, 50, R1+48) ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... S:=S*10+c else if (mode mod 2)=1 then begin Add(mode,S,a); Inc(mode) end; if (mode=2) then for j:=1 to 12 do if (mthe[j,1]=upcase(st[i])) and (mthe[j, ...
... Stime:=a else DTErr:=true; end; Function DayInMonth(m:byte; y:integer):byte; const DayInM:array[1..12] of byte=(31,29,31,30,31,30,31,31,30,31,30,31) ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... textmode(Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n)'); c: ...
... menu; goto menu2; end; {-выход- -} if l=7 then exitt else begin error; goto menu2; end; {=END_Proga=} END. | Writed by Sergei Kovbasyuk | | | |(c)2000 ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x:=hr[i].getx; y:=hr[i].gety; At:=hr[I].DAIAGE; CTp:=hr[I].DAIZWET; if (z mod 365)=0 then BEGIN at:=at+1; {Happy New Year!} hr[I].INIT(X,Y,At,CTp) ...
... IF COL=3 THEN COLO:='ГОЛУБОЙ'; IF COL=4 THEN COLO:='КРАСНЫЙ'; IF COL=5 THEN COLO:='ФИОЛЕТОВЫЙ'; IF COL=6 THEN COLO:='КОРИЧНЕВЫЙ'; IF COL=7 THEN COLO: ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... ЧЕРНЫЙ'; IF COL=1 THEN COLO:='СИНИЙ'; IF COL=2 THEN COLO:='ЗЕЛЕНЫЙ'; IF COL=3 THEN COLO:='ГОЛУБОЙ'; IF COL=4 THEN COLO:='КРАСНЫЙ'; IF COL=5 THEN COLO: ...
... COLWORD:=COLO; END; {*} procedure fon; begin textbackground(x); end; {*} procedure txt; begin textcolor(col); end; {*} procedure ramka; {вывести рамку ...


Расчет сетевой модели методом Форда (с программой) [нестрогое соответствие]
Программирование и комп-ры, Расчет сетевой модели методом Форда (с программой), Курсовая ... cursor-1)*25,menu[menulevel,cursor]); pressed:=readkey; if pressed=#0 then begin pressed:=readkey; move:=false; if (pressed=#80) and (cursor=nline) ...
... cursor=1) and (menulevel=3) then keyboard_input; if (cursor=1) and (menulevel=4) then begin closegraph; halt; end; if (cursor=2) and (menulevel=1) and ...


Взаимодействие основных частей ЭВМ при выполнении программы [нестрогое соответствие]
Программирование и комп-ры, Взаимодействие основных частей ЭВМ при выполнении программы, Курсовая ... Animation(52, 160, -94, 2, '+', False) | |end; {Move_4_3} | ... | |procedure Move_4_4; | ... | |begin | |SetColor(Green); | |Animation(52, 66, 115, 1, ...
Char; | |N: Byte; | |begin | |ClearDevice; | |MainWin; | |N := 0; | ... | ArrowsAndEsc := [Back, Next, F1, Esc]; | |repeat | |ExtentedKey := False; ...