“Ипподром” ойынын программалау

Кiрiспе
1. Есеп қойылымы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .
2. Қолданылған әдiстер ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..
3. Есеп алгоритмi. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..
4. Бадағрламаның баяндалуы. ... ... ... ... ... ... ... ... ... ... ... ... ..
4.1Жалпы мағлұмат. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
4.2Функциялардың тағайындалуы. ... ... ... ... ... ... ... ... ...
4.3Логикалық құрылымның баяндалуы. ... ... ... ... ... ... ...
4.4Шақыру және жүктеу. ... ... ... ... ... ... ... ... ... ... ... ... ...
4.5Қажеттi техникалық жабдықтар. ... ... ... ... ... ... ... ... .
4.6Kiрiс мәлметтер енгiзу. ... ... ... ... ... ... ... ... ... ... ... ... ..
4.7Шығыс мәлметтер шығару. ... ... ... ... ... ... ... ... ... ... ...
5. Қорытынды. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
6. Қолданылған әдебиеттер. ... ... ... ... ... ... ... ... ... ... ... ... ... ..
Паскаль программалық тілi (белгiлi француз математигi және философы Блез Паскаль (1623-1662) атағына берiлген),1968-1971жж Швейцария жоғарғы политехникалық мектебiнiң ,информатика институтының директоры ,профессор Никлаус Вирт ойлап тапты. Кейннен тiлдiң талай нұсқалары жарыққа шығады. Солардың iшiнде1983 жылы Borland корпорациясының қызметкер Андерсон Хейлсбергтiң жасаған жаңа үлгiсi-Turbo Pascal программалаушылар арасында үлкен сұранысқа ие болды.
Turbo Pascal-жоғарғы деңгейлi программалау жүйесi.Оның логикалық құрылымы әр түрлi есептердi дәл шешуге ыңғайлы. Turbo Pascal жүйесiнде қарапайым есептердi шешудiң программасынан бастап, күрделi мәлiметтер қорын құруды сан қырлы жұмыстары жүргiзiледi.
Оның программисттер арасында жиi қолданылуы келесi себептерге сай:
• Тiлдiң ыңғайлылығына және үйренуге жеңіл болды.
• Бұл тiл структуралық программа құруға,ұйымдастыруға мүмкiндiк бердi.
• Бұл тiл программаның дұрыстығын автоматы түрде тексере алды.
• Паскальда структуралық қолдануда қарапайым түрлерi болды:циклдер,бұтақталулар және т.б.
Менiң Паскальда құрған ойыным, ол негiзiнен программаның графикалық қасиеттерiн қолдана отырып және оңай циклдердi пайдалана отырып, координаттар әдiсiмен экрандағы суреттердi жылжытамыз.Негiзiнен алғанда Паскальда программалау ыңғайлы және түсiнiктi сондықтан оны түсiну оңай. Бұл программа сырттан қиын болса да, ол қарапайым тәсiлдер арқылы құрылған.
Бұл программада Паскаль оқу курсының барлық тараулары қарастырылған және әрбiр оператордың, процедураның, функцияның қасиеттерiн үйретуге себеп болады. Бұл программада әрбiр оператордың, процедураның, функцияның қасиеттерi қандай бағытта қолдануға және оны күнделiктi ойнап жүрген компьютер ойындарынан байқауға, бiлуге мүмкiндiк бередi.Яғни ол бала озi ойнап отырған ойынының құрылған программасын елестете алады және программалаудың қыр-сырын бiле бастайды.Ал қосымша, бұл программаға жасалған блок-схемасы программаның орындалуын жүйелi түрде түсiне алады.
Сонымен бұл ойынның мақсаты 3 аттың бiреуiн таңдап оған ақша қойып ұтысқа ие болу.Аттардың қайсысы бiрiншi келетiнiн тек қана компьютер шешедi сондықтан бұл ойын әдiлеттi де қызықты болады деп ойлаймын.
1. Алексеев Е.Р., Чеснокова О.А., Павлыш В.Н., Славинская Л.В., ТУРБО ПАСКАЛЬ 7.0 численные методы, Москва 2004;
2. Попов В.Б. TUPBO PASCAL для школьников, Санкт-Петербург 2002;
3. С.A Немнюгин TUPBO PASCAL практикум-Санкт-Петербург “Питер”, 2001;
4. О.П Зеленяк . Практикум программирования на TUPBO PASCAL –М*Санкт-Петербург *Киев,2002;
5. А.И Гусев Учимся программировать:Pascal 7.0 Москва 2002;
6. Ж.Қ. Масанов, Б.А. Бельгибаев, А.С. Бижанов Қ.Қ. Мақұлов TUPBO PASCAL Алматы 2004;
7. Фаронов В.В. Турбо Паскаль 7.0 Начальный курс.-М.:Нолидж,1997;
8. Фаронов В.В. Турбо Паскаль 7.0 Практика программирования.-М.:Нолидж,1997;
9. А.У Муртазина Б.Б Тусупова Основы программирования на языках Паскаль и СИ Методические указания Часть 1 Алматы-2004;
10. Культин С.В Турбо Паскаль в задачах и примерах Алматы 2003;
        
        Қазақстан Республикасының Білім және Ғылым Министірлігі
Қ.И.Сатбаев атындағы Қазақ Ұлттық Техникалық Университеті
Техника және кибернетика кафедрасы
Курстық жұмыс
Орындаған:____________
Тексерген:____________
Группа:____________
Алматы 2004
Мазмұны
Кiрiспе
1. ... ... Есеп ... ... ... мағлұмат.
............................................................
4.2Функциялардың тағайындалуы.
....................................
4.3Логикалық құрылымның баяндалуы. ...........................
4.4Шақыру және жүктеу.
...................................................
4.5Қажеттi ... ... ... ... мәлметтер шығару.
...........................................
5. Қорытынды.
.......................................................................
.....
6. Қолданылған әдебиеттер.
......................................................
Кiрiспе
Паскаль программалық тілi (белгiлi ... ... және ... ... (1623-1662) атағына берiлген),1968-1971жж Швейцария жоғарғы
политехникалық мектебiнiң ,информатика институтының директоры ,профессор
Никлаус Вирт ... ... ... тiлдiң талай нұсқалары жарыққа шығады.
Солардың iшiнде1983 жылы Borland корпорациясының қызметкер Андерсон
Хейлсбергтiң жасаған жаңа үлгiсi-Turbo Pascal программалаушылар ... ... ие ... ... деңгейлi программалау жүйесi.Оның логикалық
құрылымы әр түрлi есептердi дәл шешуге ыңғайлы. Turbo Pascal жүйесiнде
қарапайым есептердi ... ... ... ... мәлiметтер қорын
құруды сан қырлы жұмыстары жүргiзiледi.
Оның программисттер арасында жиi қолданылуы келесi себептерге ... ... ... және үйренуге жеңіл болды.
• Бұл тiл структуралық программа құруға,ұйымдастыруға мүмкiндiк
бердi.
• Бұл тiл программаның дұрыстығын автоматы түрде тексере ... ... ... ... ... ... және т.б.
Менiң Паскальда құрған ойыным, ол ... ... ... қолдана отырып және оңай циклдердi пайдалана отырып,
координаттар әдiсiмен экрандағы суреттердi жылжытамыз.Негiзiнен алғанда
Паскальда ... ... және ... ... оны түсiну оңай.
Бұл программа сырттан қиын болса да, ол қарапайым тәсiлдер арқылы құрылған.
Бұл программада Паскаль оқу ... ... ... ... ... ... процедураның, функцияның қасиеттерiн үйретуге себеп
болады. Бұл программада әрбiр оператордың, процедураның, функцияның
қасиеттерi қандай бағытта қолдануға және оны күнделiктi ойнап жүрген
компьютер ойындарынан ... ... ... ... ол бала ... ... ... құрылған программасын елестете алады және
программалаудың қыр-сырын бiле бастайды.Ал қосымша, бұл программаға
жасалған блок-схемасы программаның орындалуын жүйелi түрде түсiне алады.
Сонымен бұл ойынның ... 3 ... ... ... оған ақша қойып
ұтысқа ие болу.Аттардың қайсысы бiрiншi келетiнiн тек қана компьютер шешедi
сондықтан бұл ойын әдiлеттi де ... ... деп ... iске ... ... ... ... қатысқан үш аттың бiреуiн таңдайды,
егер сол ат бiрiншi келсе ол ... ... ... әр ... ... датчигi арқылы құрылған программа бойынша таңдалады. Қ
2.Қолданылған әдiстер.
1. Iздеу алгоритмдерi
Iздеу алгоритмдерi мысалы ... ... ... бар
элементтердi табу үшiн қолданылады. Әдетте ... ... және ... ... есеп берiлгендерiмен ажыратады. Төменде келтiрiлген
барлық алгоритмдерде N бүтiн санды А массивiнде Х-қа тең ... ... деп ... ... ... ... екi еселi шарты бар циклмен (while немесе repeat ... ... ... шарт индекстiң массивке тиiстiлiгiн тексередi,
мысалы, (i=A[left] then left:=left+1;
{х қосылуға орын босата отырып, массивтi 1 орынға оңға жылжытамыз}
for i:=k downto left do ... i:=1 to n do ... '); ... ... Хоар ... ... жылдам сорттау деп те атайды. Әдiстi 1962 жылы Оксфорд
университетiнiң ... ... ... ... N бүтiн сандардан
құралған А массивiн өсу ... ... ... жұмысын
қарастырайық.
Қандай да бiр элементтiң мәнi (әдетте ортаңғы) Х ... ... ... ... ... ... жылжығанда Х-
тан үлкен не оған тең элемент iздеймiз. Ал оңнан-солға қарай жылжығанда Х-
тан үлкен не тең ... ... ... ... және қарама-қарсы iздеу жалғастырылады.
Содан кейiн массив екiге бөлiнедi. Бiрiншiсiнде ... кiшi не ... ал оң ... ... үлкен не тең элементтер орналасады. А
массивiн сорттаудағы алғашқы ... ... ... ... ... ... бөлуге болады.
Берiлген рекурсивтi алгоритмнiң бiр ... ... ... массив үзiндiсiндегi элементтер санына пропорционал. Ең жақсы
жағдайда бөлiктерге бөлу қақ ортасынан ... ... ... ... ... ... ... N*LogN (негiзi 2 болатын ... ... ... ... орташа сол мәндi.
Мысалы: N бүтiн сандардан құралған А массивiн ... ... ... ... ... Quick_Sort;
var A:array[1..100] of integer;
N,i : integer;
{Процедураға сортталатын үзiндiнiң оң және сол ... ... ... ... div 2];
i:=L; j:=R;
while iX2) THEN OUTTEXTXY(120,120,'VASHA 2.STRELKA VIIGRALA
,VASH VIIGRISH S*3 '); DELAY(60000);
IF (X1>X)AND(X1X) THEN OUTTEXTXY(120,120,'VASHA 3.GROZA VIIGRALA ,VASH
VIIGRISH S*3 '); ... ... sandar sani ... ... бұл ... ... шабысын корсетуге
қолданылды.Ол x координаттарына кездейсоқ (random) сандарын қосып отырып,
аттар суреттерiн бiресе салып, бiресе ошiрiп қайталап орнынан жылжытып
отырды.
3.Crt модулiнiң ... ... мен ... ... ... ... сол жақ
жоғарғы бұрышына орналастырады.
Delay-процедурасы берiлгендi экранда бiрнеше миллисекунд ұстап
тұрады.
Sound-процедурасы берiлген толқында динамиктi дыбыс шығаруға
жүктейдi.
Nosound-процедурасы динамиктi ... ... ... ... ... ... ... мен процедуралары.
Fillellipse-процедурасы iшi боялған эллипс салады.Оған центрiнiң
координаттарын берiп,x,y бойынша радиустарын беремiз.
Line-процедурасы кесiндi сызады.Бiрiншi нүкте мен ... ... ... осы екi ... қосатын кесiндi сызады.
Circle-процедурасы Шеңбер салады.Оған центрiнiң координаттарын
берiп,радиусын бередi.
Бұл ... graph ... атты ... ... фон ... бередi.
SetColor-процедурасы нүктелердiң,кесiндi түсiн анықтайды.
OutTextXY-процедурасы ,берiлген координаттардан бастап мәтiндi
орналастырады.Мұны программада тексттердi орналастыруға қолдандым.
GetMaxX-функциясы X ... ... ... ... ... тазартып,фон түсiмен бояйды.Мұны мен
аттар шабысы кезiнде,аттар суретiн ошiру үшiн қолдандым.
CloseGraph-процедурасы графикалық режимнiң ... ... ... ... ... ... және жүктеу
Turbo Pascal программасын жүктеу үшін turbo.exe ... turbo ... ... ... Турбо Паскальды шақыру келесi түрде:
[Path] TURBO [Options] [FileName]
Мұндағы:
Path – turbo.exe файлы орналасқан каталогқа жол;
Options -опциялар тізбегі;
FileName-PAS-файлдың аты.
Программалар дискілерде программалық файл ... ... ... ... Turbo Pascal ... қосу үшін сол файлдың
атын командалық жолда корсетсе ... ... ... ... ... AMD Duron 900 MHz, 128 Mb RAM ... және WINDOWS
2000 Professional операциялық системасы қолданылды.
4.6 Кіріс мәліметтер ... ... іске ... ... оған ... бір мәліметтер
енгізу керек.Ол үшін таңдаған аттың номерін енгізу керек.Ал аттардың номерi
мен аттары сәйкес дисплей бетiнде тұрады.Одан ... ... ... ... ... Шығыс мәліметтер шығару.
Негізгі программа орындалғаннан кейін ол мәліметтер шығарады.Ол келес
мәліметтер:
Егер таңдаған атың жеңіске жететін ... онда сені ... ұтып ... корсетеді(бастапқы ставкаңыз үш есе артады),ал егер екінші келсе
онда соны ... ... ... ... ставкаңыз үш есе кемиді)
немесе соңғы келсе онда сол туралы айтып ұтысты корсетеді(ұтысыңыз ... ойын ... егер ... үшін Enter ... ... кейн Ctrl+F9 ... басу ... қарағанда Турбо Паскаль тiлi өзiнiң құрылуына қарай өте
қарапайым және де түсiнуге жеңiл келед.Cондықтан ... ... ... ... ойындар құру өте қызқыты. Адамның қызығушылығы нәтижесiнде ол
программалауды терең түсiне бастайды.Турбо Паскаль тiлiн программалаудың
негiзi деуге болады.
Мен осы ойынды ... graph жне crt ... ... мен функцияларының қасиеттерiн тереңдеп түсiндiм.
Бұл Паскальды үйренуде қосымша мағлұматтар және қосымша тәжiрибе бердi.Және
жалпы алғанда менiң Паскальды үйренуiм ... ... ... ... мен ... ары қарай үйренуге дайынмын деп
есептеймiн.
6. Қолданылан әдебиеттер.
1. Алексеев Е.Р., Чеснокова О.А., Павлыш В.Н., Славинская Л.В., ТУРБО
ПАСКАЛЬ 7.0 ... ... ... ... ... В.Б. TUPBO PASCAL для ... Санкт-Петербург 2002;
3. С.A Немнюгин TUPBO PASCAL практикум-Санкт-Петербург “Питер”, 2001;
4. О.П Зеленяк . Практикум программирования на TUPBO PASCAL –М*Санкт-
Петербург ... А.И ... ... ... 7.0 Москва 2002;
6. Ж.Қ. Масанов, Б.А. Бельгибаев, А.С. ... Қ.Қ. ... TUPBO ... ... ... В.В. Турбо Паскаль 7.0 Начальный курс.-М.:Нолидж,1997;
8. Фаронов В.В. Турбо Паскаль 7.0 Практика программирования.-
М.:Нолидж,1997;
9. А.У Муртазина Б.Б Тусупова Основы ... на ... ... СИ Методические указания Часть 1 Алматы-2004;
10. Культин С.В Турбо ... в ... и ... ... ... program kkt;
2. uses crt,graph;
3. var driver,mode,x,y,x1,y1,x2,y2,S,N,R:INTEGER;
4. BEGIN
5. DRIVER:=DETECT;
6. INITGRAPH(DRIVER,MODE,'C:\BP\BJI');
7. SETBKCOLOR(5);
8. SETCOLOR(10);
9. LINE(0,70,GETMAXX,70);
10. OUTTEXTXY(200,10,'Dobro pojalovat na IPPODROM');
11. OUTTEXTXY(10,30,'Segodnia uchastvuiut koni pod ... ... ... ... OUTTEXTXY(200,80,'Vibirite svoego konia');
16. OUTTEXTXY(10,90,'Vash kon pod nomerom');
17. readln(n);
18. if N>=4 THEN ... VIBRAL NE TOT ... ... STAVKA V DOLLARAH S=');
20. READLN(S);
21. CLRSCR;
22. X:=30;
23. Y:=120;
24. X1:=30;
25. Y1:=160;
26. X2:=30;
27. Y2:=200;
28. R:=10;
29. REPEAT
30. SETCOLOR(9);
31. LINE(25,Y-20,25,220);
32. LINE(600,Y-20,600,220);
33. LINE(0,Y+20,GETMAXX,Y+20);
34. ... ... ... OUTTEXTXY(20,Y1,'2');
38. OUTTEXTXY(20,Y2,'3');
39. FILLELLIPSE(X+2*R,Y,2*R,R);
40. LINE(X,Y,X-5,Y+10);
41. LINE(X+2*R,Y+R,X+2*R-5,Y+20);
42. LINE(X+2*R,Y+R,X+2*R+5,Y+20);
43. LINE(X+5*R,Y+R,X+5*R-5,Y+20);
44. LINE(X+5*R,Y+R,X+5*R+5,Y+20);
45. LINE(X+6*R,Y,X+6*R+10,Y-10);
46. CIRCLE(X+6*R+10,Y-10,5);
47. FILLELLIPSE(X1+2*R,Y1,2*R,R);
48. ... ... ... ... ... ... ... FILLELLIPSE(X2+2*R,Y2,2*R,R);
56. LINE(X2,Y2,X2-5,Y2+10);
57. LINE(X2+2*R,Y2+R,X2+2*R-5,Y2+20);
58. LINE(X2+2*R,Y2+R,X2+2*R+5,Y2+20);
59. LINE(X2+5*R,Y2+R,X2+5*R-5,Y2+20);
60. LINE(X2+5*R,Y2+R,X2+5*R+5,Y2+20);
61. LINE(X2+6*R,Y2,X2+6*R+10,Y2-10);
62. CIRCLE(X2+6*R+10,Y2-10,5);
63. SOUND(300);
64. DELAY(1000);
65. NOSOUND;
66. CLEARDEVICE;
67. X:=X+RANDOM(10);
68. X1:=X1+RANDOM(10);
69. X2:=X2+RANDOM(10);
70. UNTIL ... ... IF ... ... ... IF N=1 ... ... IF (X>X1)AND(X>X2) THEN OUTTEXTXY(120,120,'VASHA 1.MOLNIA VIIGRALA
,VASH VIIGRISH S*3 '); ... IF ... THEN ... ... ... VIIGRISH S*3 '); DELAY(60000);
83. IF (X1>X)AND(X1X) THEN ... 3.GROZA ... VIIGRISH S*3 '); ... ...

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 16 бет
Бұл жұмыстың бағасы: 700 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
"балалар психологиясы"6 бет
"резерфорд тәжірибелері. ритцтің комбинациялық принципі. бор-зоммерфольдтің квантталу ережелері. "12 бет
«қазақтың спорт комметаторлары»17 бет
Абай жолы романындағы Абай бейнесі8 бет
Абай өлеңдеріндегі кірме сөздердің қолданылу ерекшеліктері мен мағыналары8 бет
Абайдың «Желсіз түнде жарық ай» өлеңінің аудармасы жайлы4 бет
Абайдың «желсіз түнде жарық ай» өлеңінің аудармасы жайында3 бет
Антик философиясы жайлы39 бет
Баймырзаұлы Балуан Шолақ 7 бет
Бала емізулі әйелдер мен жүкті әйелдердің тамақтануы8 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь