Похожие работы на «Создание игры »

Создание игры
Программирование и комп-ры, Создание игры , Работа Курсовая ... gotoxy(26,b); write(' '); if b<=10 then b:=20; gotoxy(26,b-1); write('>>>'); gotoxy(25,b-1); sound(4000); delay(1000); nosound; end; if a=chr(13) then ...
... delay(1000); nosound; goto 1; end; if b=18 then begin {Заключение} sound(3000); delay(1000); nosound; clrscr; gotoxy(30,b); write('Мне понравилась моя ...


Математическое моделирование биполярных транзисторов типа p-n-p
Радиоэлектроника, Математическое моделирование биполярных транзисторов типа p-n-p , Работа Курсовая ... extended; begin if b<0 then begin if (-1*b * ln(a)) < 1.1356523e4 then begin st:=1/ (exp((-1*b) * ln(a))); end else st:= 1; end else begin if (b * ln( ...
... 39,row+15); write(MJC); gotoxy(col+3,row+16); write('[VJC] '); gotoxy(col+39,row+16); write(VJC); gotoxy(col+3,row+17); write('[MJE] '); gotoxy(col+39 ...


Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x
Программирование и комп-ры, Обучающая программа Графика программированию в графическом режиме на языке turbo-pascal 7.x , Диплом и связанное с ним ... ball5[nomer5]; K[nomer5]:=K[nomer5]+1; end; end; 6:begin NOMER6:=NOMER6+1; If NOMER6<3 then begin RAZDEL60; ball6[nomer6]:=rez6; Itog[nomer6]:=Itog[ ...
... 4); Sound(699); Delay(200); NoSound; SetBKColor(3); Sound(699); Delay(200); NoSound; SetBKColor(4); Sound(699); Delay(200); NoSound; Delay(600) ...


Обработка экономической информации средствами языка Pascal [нестрогое соответствие]
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... w-10,4);write('продукции на '); gotoxy(w-10,5);write('начало года'); gotoxy(w+9,3);write('Приход'); gotoxy(w+8,4);write('продукции'); gotoxy(w+11,5) ...
... textmode(Co80); l:=4; goto menu2; end; end; end else {-редактирование- -} if l=5 then begin view(27); textcolor(15); writeln('Продолжить? (y/n)'); c: ...


Создание текстового редактора в Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Создание текстового редактора в Turbo Pascal , Работа Курсовая ... c5); for w:=2 to 79 do begin gotoxy(w,h); write(c2); end; gotoxy(w,h); write(c6); for h:=24 downto 1 do begin gotoxy(w,h); write(c4); end; gotoxy(w,h) ...
... c10); for h:=2 to 24 do begin gotoxy(w,h); write(chr(179)); end; gotoxy(w,20); write(c8); gotoxy(59,25); write(c9); gotoxy(62,4); writeln('F1-Помошь' ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Зоология, Программа эмуляции развития популяций животных, ... ЧЕРНЫЙ'; 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: ...
... COLO:='СВЕТЛО-ГОЛУБОЙ'; IF COL=12 THEN COLO:='СВЕТЛО-КРАСНЫЙ'; IF COL=13 THEN COLO:='СВЕТЛО-ФИОЛЕТОВЫЙ'; IF COL=14 THEN COLO:='ЖЕЛТЫЙ'; -27- IF COL=15 ...


Программа эмуляции развития популяций животных [нестрогое соответствие]
Программирование и комп-ры, Программа эмуляции развития популяций животных, Реферат ... x>=242)and(x<=272) then col:='Сентябрь'; if (x>=273)and(x<=303) then col:='Октябрь'; if (x>=304)and(x<=335) then col:='Ноябрь'; if (x>=336)and(x<=365) ...
... 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: ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... procedure writedat(b:dat); begin write(b.time div 60,':',b.time mod 60,' ',b.day,'.',b.month,'.',b.year,' ',Rweek[b.dweek]); end; procedure newdat(a: ...
... b.month,b.year) do begin delay:=delay-1-DayInMonth(b.month,b.year)+b.day; b.day:=1; b.month:=(b.month mod 12)+1; if b.month=1 then inc(b.year); end; b ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... и цикл с параметром от 0 до 2} Read(c,b); Write(b); End; Readln(c); Writeln; while not EOLN(c) do Begin {вывод редактируемого вопроса на экран} Read(c ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...


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