Похожие работы на «Программ-игра «Морской бой», с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры »

Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры
Программирование и комп-ры, Программ-игра "Морской бой", с использованием анимированных графических объектов и возможностью управлять их движением с ... ... if cr_ind<400 then begin | |Sheep(crx,cr_type,false); | |if promah then promah:=false; | |end else begin | |if cr_ind mod cr_type*5=0 then begin | |if ...
... crx; | |end; | |end else begin | |if crx=150 then begin | |inc(cr_ind2); | |if cr_ind2<3 then Sheep(crx,cr_type,true) | |else begin | |Sheep(crx,cr


Создание игры [нестрогое соответствие]
Программирование и комп-ры, Создание игры , Работа Курсовая ... игры} for n:=1 to 1770 do begin putimage(round(n/3),60,p3^,copyput); if n>1760 then begin putimage(round(n/3),60,pp^,copyput); sound(300);delay(100) ...
... x:=x-3; if x<10 then begin putimage(x,y,pp^,copyput); x:=580; end; putimage(x,y,p^,copyput); end; if a=chr(32) then begin for m:=y-2 downto 56 do ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... c); moveto(4*city[q^.bcity].x,380-3*city[q^.bcity].y); repeat i:=(i mod 4)+1; if i=1 then y:=y^.next; lineto(4*city[y^.way[i].city].x,380-3*city
... M] else if (y mod 4)<>0 then DayInMonth:=28 else if (y mod 100)<>0 then DayInMonth:=29 else if (y mod 400)<>0 then DayInMonth:=28 else DayInMonth:=29 ...


Разработка игровой программы [нестрогое соответствие]
Программирование и комп-ры, Разработка игровой программы, Курсовая ... Event.ScanCode of {проверка скан-кода клавиатуры} 57: {если пробел} begin If GetState(sfCursorVis) Then {если курсор виден} TScroller.HideCursor {то
... Повоорт дула вправо} if ord(a)=27 then menu:=true; {Выход в меню} if fi3*pi/2 then fi:=3*pi/2; if a=' ' then begin {Выстрел} if (not(fire.v)) and (not ...


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


Взаимодействие основных частей ЭВМ при выполнении программы [нестрогое соответствие]
Программирование и комп-ры, Взаимодействие основных частей ЭВМ при выполнении программы, Курсовая ... True | |end; | |if ExtentedKey then | |case CH of | |Back: begin | |Dec(N); | |SelectPage(N); | |if N < 1 then N := 1 | |end; | |Next: begin | |Inc(N) ...
... S: string); | |var | |I: Word; | |C: Char; | |begin | |MoveTo(X, Y); | |I := 0; | |repeat | |Inc(I); | |OutText(S[I]); | |Delay(Time_4); | |until (I ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... 1); Goto New; End Else Begin inc(i); Blank; If not notTerminal(term) Then Begin Error(4); Goto New; End Else Begin{есть нетерминал} Blank; If not (s[i ...
... i); Goto More; End; Blank; If s[i]='|' Then Begin inc(i); Goto More; End; If i<=Len Then{не дошли до конца правила} Begin i:=i-Length(term); While s[i ...


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


Обработка экономической информации средствами языка 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 ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... Function Tposition.Gety:integer; Begin Gety:=y End; Constructor Tosob.Init(x0,y0,age0:integer;col:word); Begin Tposition.Init(x0,y0); AGE:=AGE0; color ...
... 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: ...