![]() |
|
сделать стартовой | добавить в избранное |
![]() |
Разработка игровой программы |
МИНИСТЕРСТВО ОБРАЗОВАНИЯ РОСИЙСКОЙ ФЕДЕРАЦИИ Таганрогский государственный радиотехнический университет Кафедра вычислительной техники Дистанционное обучение 2000 – 2001 учебный год КУРСОВАЯ РАБОТА по курсу ТЕХНОЛОГИЯ ПРОГРАММИРОВАНИЯСтудента группы ВД – 49Каретина Флориана ВикторовичаЗадание выполнил подпись студента дата выполнения задания Задание проверил оценка подпись преподавателя дата проверки заданияРецензия преподавателя ОГЛАВЛЕНИЕ 1. Постановка задачи 3 стр. 2. Входные данные 3 стр. 3. Выходные данные 3 стр. 4. Текст программы 4 стр. 1. Постановка задачи.Необходимо разработать игровую программу «Арканоид». Дощечки для отбивания шарика надо разместить слева и справа. Правая дощечка должна управляться клавишами «A» и «Z» (вверх и вниз соответственно), а правая дощечка должна управляться клавишами «L» и «0 he {если координата по Х больше 0} Begi x:=x-1; {то уменьшить ее на 1} Se Cursor(x,y); {установить на новую координату курсор} E d e d; kbRigh : {стрелка вправо} begi x:=x 1; {увеличить координату по Х на единицу} Se Cursor(x,y); {установить на новую координату курсор} e d; kbUp: {стрелка вверх} begi if y>0 he {если координата по Y больше 0} Begi y:=y-1; {то уменьшить ее на 1} Se Cursor(x,y); {установить на новую координату курсор} E d e d; kbDow : {стрелка вниз} begi y:=y 1; {увеличить координату по Y на 1} Se Cursor(x,y); {установить на новую координату курсор} e d; e d; Case Eve .Sca Code of {проверка скан-кода клавиатуры} 57: {если пробел} begi If Ge S a e(sfCursorVis) he {если курсор виден} Scroller.HideCursor {то скрыть его} Else Scroller.ShowCursor; {иначе показать его} e d; e d; E d; e d; E d; Описание игровой программы «Стрельба по мишени».Игровая программа состоит из трех процедур (mi v — уменьшение кол-ва патронов, i ro — заставка, go — конец игры) и основного блока программы. Процедура mi v (уменьшение количества патронов). kv:=kv-1; {уменьшение значение переменной kv (в основной программе она фигурирует как количество патронов) } se fills yle(1,9); {установка стиля заполнения фона} bar((20-kv) 10 415,4,(20-kv) 10 425,12); {стирание одного патрона с экрана} Процедура i ro; {Заставка} Выводит заставку игры. se ex s yle(0,0,15); {установка стиля текста} se color(12); {установка цвета} ou ex xy(140,100,'ТИР'); {вывод текста} se ex s yle(0,0,2); se color(10); ou ex xy(130,290,'ESC - '); se color(14); ou ex xy(220,290,'Выход из программы'); se ex s yle(0,0,1); p:='НАЖМИТЕ ЛЮБУЮ КНОПКУ ДЛЯ НАЧАЛА ИГРЫ'; se ex s yle(0,0,1); se color(11); ou ex xy(320- ru c(le g h( p) 4),340, p); {вывод текста с расчетом по центру} a:=readkey; if ord(a)=27 he exi:= rue; {если нажата клавиша Esc – выйти из игры} se fills yle(1,0); bar(100,30,600,350); Процедура go – выводит заставку конца игры procedure go; {Конец игры} begi se ex s yle(0,0,5); {установка стиля вывода текста} se color(2); {установка цвета} ou ex xy(50,200,'ВСЕ,ДОИГРАЛИСЬ'); se ex s yle(0,0,2); readkey; UROV:=1;ME U:= rue;oko:=0; e d; Основное тело программы begi d:=vga;i i graph(d,r,''); {инициализация графики} se graphmode(2); {установка графического режима} ra domize; {вызов генератора случайных чисел} urov:=1;oko:=0; mus:= rue; sou:= rue;me u:= rue; {первоначальная установка переменных} repea {начало основного цикла программы} {Cоздание интерфейса} cleardevice; {очистака экрана} se fills yle(1,1); {установка стиля заполнения фона} bar(0,0,640,2); {рисование прямоугольников вокруг рабочей области} bar(0,0,2,480); bar(0,480,640,478); bar(640,480,638,0); se fills yle(1,9); bar(2,2,638,17); bar(2,2,5,478); bar(2,478,638,475); bar(638,2,635,478); se fills yle(1,3); bar(5,17,635,19); bar(5,17,7,475); bar(5,475,635,473); bar(635,17,633,475); se fills yle(9,14); se color(14); {установка цвета рисования} move o(7,460); {перемещение графического курсора в указанные координаты} for i:=1 o 62 do {рисование песка холмиками} li e o(i 10 7,460 ra dom(10)); li e o(633,460); li e(7,473,633,473); li e(7,473,7,460); li e(633,473,633,460); floodfill(9,469,14); {заполнение стилем области, расположенной либо внутри замкнутого контура, либо вне его} se li es yle(0,0,1); {установка стиля линий} se fills yle(8,6); {установка стиля заполнения фона} bar(260,408,380,470); se fills yle(1,1); se color(14); li e(260,408,260,470); li e(260,408,380,408); li e(380,408,380,470); fillellipse(320,408,23,15); {вычерчивание контура эллипса текущим цветом и заполнение ограниченной контуром области экрана текущим узором} se li es yle(0,3,3); se color(11); li e(320,391,320,376); fi:=pi; zm:=40; zs:=40; se ex s yle(0,0,2); cou:=0; kv:=20; ov:=1; ex:=0; se fills yle(1,15);se color(7); bar(250,6,310,12); se fills yle(1,0); bar(17,2,220,17); se color(12); ou ex xy(20,3,'Cчет:'); se color(11); se fills yle(1,11); for i:=1 o kv do fillellipse(i 10 420,8,3,3); {рисование патронов} if me u he i ro; {если me u= rue, то вызвать процедуру i ro (заставка игры)} me u:=false; if exi he go o 1; {если exi= rue (выход), то перейти на метку 1} repea if keypressed he a:=readkey; se ex s yle(0,0,1); ou ex xy(280,280,'Нажмите E ER'); se color(ra dom(16)); se ex s yle(0,0,2); s r(urov,em); ou ex xy(270,200,co ca ('УРОВЕНЬ ',em)); {вывод текста с помощью процедуры конкатенации} s r(urov 1000,em); ou ex xy(190,240,co ca ('Наберите ',em,' очков')); u il ord(a)=13; {выход из цикла по клавише E er} se fills yle(1,0); bar(180,200,500,300); ge ime(q1,mi ,sec,q2); {получение системного времени} mk:=mi 1; {увеличение минут на 1} sk:=sec; if mk>=60 he begi {если количество минут больше 60,} hk:=q1 1; {то количество часов увеличить на 1} mk:=0; {минуты обнулить} e d; repea ge ime(q1,mi ,sec,q2); {получение системного времени} se fills yle(1,1); {установка стиля заполнения} se color(4); {установка цвета рисования} if mk=mi he rk:=60-abs(sk-sec) else rk:=abs(sk-sec); bar(250,6,250 abs(rk),12); if o (bm) he begi ge ime(q1,mi ,sec,q2); {получение системного времени} po:=ra dom(3); if sec po>=59 he begi pm:=mi 1; ps:=0; e d else begi pm:=mi ; ps:=sec po; e d; e d; x p:=rou d(si (fi) 24 320); y p:=rou d(cos(fi) 15 406); xkp:=rou d(si (fi) 38 320); ykp:=rou d(cos(fi) 30 406); se li es yle(0,3,3); se color(11); li e(x p,y p,xkp,ykp); ok:=false; if keypressed he begi a:=readkey; if a=chr(77) he begi fi:=fi-0.0
5; ok:= rue; e d; {Поворот дула влево} if a=chr(75) he begi fi:=fi 0.05; ok:= rue; e d; {Повоорт дула вправо} if ord(a)=27 he me u:= rue; {Выход в меню} if fi if fi>3 pi/2 he fi:=3 pi/2; if a=' ' he begi {Выстрел} if ( o (fire.v)) a d ( o (ok)) he begi mi v; for d:=1 o 100 do begi if sou he sou d(ra dom(200) 100);delay(1); e d; osou d; fire.v:= rue; fire.r:=35; fire.si:=si (fi) 1.1; fire.co:=cos(fi); ok:= rue; fire.xs:=-10; fire.ys:=-10; e d; s:=s 1; e d; e d; if (kv=0) a d ( o (fire.v)) he ex:=ex 1; if fire.v he begi {Полет снаряда} se fills yle(1,0); se color(0); bar(fire.xs-4,fire.ys-4,fire.xs 4,fire.ys 4); xv:=rou d(fire.si fire.r 320); yv:=rou d(fire.co fire.r 406); fire.r:=fire.r 5; fire.xs:=xv;fire.ys:=yv; if (fire.xs=622) or (fire.ys= ps) a d o (m ) he begi bm:= rue;m := rue; xm:=ra dom(560) 30; ym:=ra dom(320) 30; vm:=ra dom(2) 3; if vm sec>=59 he begi zm:=mi 1; zs:=abs(vm sec-60); e d else begi zm:=mi ; zs:=vm sec; e d; repea ch:=ra dom(5) 1; mi:=20 ch 5; {Размер мишени} u il ch= zm) a d (sec>= zs) he begi bm:=false;m :=false; se fills yle(1,0); bar(xm,ym,xm mi,ym mi);xm:=-1300;ym:=-1300; e d; if ok he begi se color(0); li e(x p,y p,xkp,ykp); e d; u il (ord(a)=27) or (ex=1) or ((mk=mi ) a d (sec>=sk)); oko:=oko cou; s r(oko,em); bm:=false;m :=false;fire.v:=false; if cou
Партнерская помощь в форме: ??активизации международного информационного обмена (в частности, о фирмах, практикующих использование взяток); ??заключения соглашения о совместных оперативных мероприятиях и взаимной помощи, связанных с выдачей уголовно преследуемых лиц, опросом свидетелей, доступом к банковским счетам и т. д.; ??обучения кадров, занятых борьбой с коррупцией; ??организации совместной аналитической работы; ??помощи в разработке антикоррупционных программ; ??помощи в разработке и реализации пропагандистских мер; ??скоординированных и масштабных совместных усилий по противодействию деятельности международных коррупционных сетей. ЗАКЛЮЧЕНИЕ Здоровые силы России не одиноки в своей борьбе с коррупцией. Еще в середине 90-х годов мировое сообщество осознало, что в условиях формирования глобального финансового рынка криминальные деньги могут стать фактором дестабилизации не только развивающихся, но уже и развитых экономик. Это связано с изменением мотиваций под действием коррупции, которая превращает значимые элементы государства в принципиально антигосударственные силы, ориентирующиеся зачастую на зарубежные интересы
1. Разработка игровой программы "Морской бой"
3. Компьютер (Интенет, Windows, пакет программ Micrsoft Office)
4. Использование компьютера в реализации школьных программ
5. Работа с текстом, таблицами и графиками в программе Power Point
9. Особенности разработки образовательных программ для руководителей высшего звена
10. Разработка демонстрационных программ для применения в процессе преподавания физики
11. Вводный инструктаж сотрудников Новосибирского фонда ОМС при работе на персональном компьютере
12. Правила охраны труда при работе на персональном компьютере
13. Разработка модулей программы /Укр./
14. Правила работы учащихся с компьютером
15. Разработка компьютерной программы на языке Паскаль для проведения простого теплофизического расчета
16. Разработка обучающей программы, поддерживающей изучение темы "Структуры данных"
17. Составление формул и работа с ячейками
18. Разработка маркетинговой программы деятельности предприятия
19. Разработка антикризисной программы на предприятии
20. Разработка инновационных программ лояльности клиентов
21. Этапы разработки экскурсионной программы
25. Работа с программой EUREKA
27. Составление производственной программы
28. Создание первого в континентальной Европе компьютера с хранимой в памяти программой
30. Игровая программа TETRIS на языке Паскаль
32. Отчет по работе с программами SysInfo, PrintFX,Font Edit,Snipper
33. Игровые программы и технологии физического воспитания детей 5-7 лет
34. Анализ программ игрового вещания канала МУЗ-ТВ
36. Изучение работы в Интернете с помощью программы Internet Explorer
37. Использование программы Outlook Express для работы с электронной почтой
41. Создание программы для работы со сканером
42. Составление и описание программы по заданным параметрам
43. Составление программы на алгоритмическом языке, выполняющей указанные преобразования с матрицами
44. Финансовый анализ эффективности работы предприятия в программе Project Expert
46. Профилактические и реабилитационные программы работы с подростками и молодежью
47. Программа имитационного моделирования работы банка
48. Содержание договора о передаче прав на программу для ЭВМ
49. Аграрный вопрос в программах политических партий начала 20 века
50. Рецензия на программу "Тема" - "журналистская этика"
51. Кирилло-Мефодьевское братство: программа его деятельности
52. "Северное" и "Южное" общества декабристов, их программы. Восстание декабристов
53. Компьютерные вирусы и антивирусные программы
57. Разработка программы на языке LISP для построения кривых Серпинского i-го порядка
58. Комплекс программ построения справочников по формальным языкам
60. Защита программ от компьютерных вирусов
61. Программа сложной структуры с использованием меню
62. Программа сложной структуры с использованием меню
63. Разработка программы на Ассемблере
64. Разработка лабораторного практикума "Создание тестирующей программы"
65. Обучающая программа "Графика" программированию в графическом режиме на языке turbo-pascal 7.x
69. Программа управления самолётом в режиме автопилота
73. Прикладная программа Excel
74. Компьютерной программе Visio v.4.0
76. "Семейный бюджет" (расчет с помощью программы Microsoft Excel 97)
77. Настройка программы Microsoft Excel
79. Изучение программ MS Office
81. Компьютерные Вирусы. Программа-полифаг Aidstest
82. Создание баннеров с помощью программы Adobe PhotoShop 7.0
85. Программа социологического исследования /выбор формы обучения/ (Контрольная)
89. Компьютерная программа для расчета режимов резания деревообрабатывающего продольнофрезерного станка
92. Усилитель для воспроизведения монофонических музыкальных программ
94. Программа социологического исследования
95. Обзор регионального рынка бухгалтерских программ
96. Анализ рынка бухгалтерских и аналитических программ
98. Программа экологического менеджмента на московской обойной фабрике
99. Использование компьютерных программ для анализа финансового состояния организации