Ойын құрастыру

0
3

Мазмұны

  1. Кiрiспе……………………………………………………………………………………………..3
  2. Есептiң математикалық қойылымы…………………………………………………..5
  3. Есептi шығарудың тәсiлдерiн баяндау………………………………..………….…6

3.1. Iздеу алгоритмдерi………………………………………………..………………6

3.1.1. Сызықты iздеу…………………………………………..………………6

3.1.2. Тосқауылы бар iздеу…………………………………………………6

3.1.3. Екiлiк (бинарлы) iздеу……………………………………………….8

3.2. Сорттау алгоритмдерi…………………………………………………………….9

3.2.1. Таңдау арқылы сорттау………………………………………………9

3.2.2. Айырбаспен сорттау (“көбiкше” тәсiлiмен)..…………….10

3.2.3. Шейкерлi сорттау…………………………………………………………11

3.2.4. Қосу арқылы сорттау…………………………………………………….11

3.2.5. Хоар сорттауы………………………………………………………………13

  1. Алгоритмнiң негiзгi ойын баяндау…………………………………………………………14
  2. Логикалық құрылымның баяндалуы (Паскаль тiлiндегi программа үшiн).16
  3. Блок-схема…………………………………………………………………………………………….20
  4. Қолданылған техникалық жабдықтар……………………………………………………..26
  5. Бағдарламаны шақыру және жүктеу……………………………………………………….26
  6. Есептi шығару алгоритмнiң программалық жазбасы (Паскаль тiлiнде)……27
  7. 10. Пайдаланылған әдебиеттер тiзiмi………………………………………………………….
  8. К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 пазлдар, кросвордтар, логикалық және т.б. жатады.

. Есептi шығарудың тәсiлдерiн баяндау

3.1. Iздеу алгоритмдерi

Iздеу алгоритмдерi мысалы массивте белгiлi қасиеттерi бар элементтердi табу үшiн қолданылады. Әдетте элементтiң алғашқы және соңғы кiрулерiн iздеудегi есеп берiлгендерiмен ажыратады. Төменде келтiрiлген барлық алгоритмдерде N бүтiн санды А массивiнде Х-қа тең элемент iздеу керек деп есептеледi.

3.1.1. Сызықты iздеу

Сызықты iздеу екi еселi шарты бар циклмен (while немесе repeatuntil) орындалады. Бiрiншi шарт индекстiң массивке тиiстiлiгiн тексередi, мысалы, (i<=N). Екiншi шарт – бұл iздеудiң шарты. Бiздiң жағдайда while циклiнде бұл iздеудi жалғастыру шарты: (A[i]<>X), ал repeatuntil циклiнде бұл iздеудi аяқтау шарты: (A[i]=X). Цикл денесiнде әдетте тек жалғыз оператор: массивтегi индекстiң өзгеруi ғана жазылады.

Циклдан шыққаннан кейiн қай шарт бойынша шыққанымызды тексеруiмiз керек. Әдетте if операторында циклдiң бiрiншi шартын қайталайды. Бұл шарт орындалуын while циклi жағдайында шарттың орындалуын, ал repeatuntil циклiмен оның бұзылуы кезiнде сәттi iздеу деп айтуға болады.

Мысалы: Сызықты iздеу.

program Poisk1;

var    A:array[1..100] of integer;

N, X, i:integer;

begin

read(N); {N<=100}

for i:=1 to N do

writeln(‘Массивтi енгiзiңiз’);

read(A[i]);

writeln(‘Iзделiнетiн санды енгiзiңiз’);

read(X);

i:=1; {i:=0;}

while (i<=N) and (A[i]<>X) do i:=i+1;

{repeat i:=i+1; until (i>N) or (A[i]=X);}

if i<=N then write(‘ A массивiне ‘, i,’ орында’, X ,’ санының бiрiншi кiруi ‘)

else write(‘тапқан жоқпыз’);

end.

Соңғы кiрудi iздеу кезiнде енгiзгеннен кейiн келесi операторлар жүру керек.

i:=N; {i:=N+1;}

while (i>=1) and (A[i]<>X) do  i:=i-1;

{repeat i:=i-1; until (i<1) or (A[i]=X);}

if i>=1 then write(‘ A массивiне ‘, i,’ орында’, X ,’ санының соңғы кiруi ‘)

else write(‘тапқан жоқпыз’);

3.1.2. Тосқауылы бар iздеу

      Тосқауылы бар iздеу әрбiр рет массив шекарасымен байланысқан циклдегi шартты iздей бермеу идеясынан тұрады. Бұны массивке тосқауыл орнату: iздеу шартын қанағаттандыратын кез-келген элемент орнату арқылы жүзеге асыруға болады. Бұл жағдайда индекстiң өзгеруiне шек қойылады.

Ендi тек iздеу шарты ғана қалып, табылған элементте немесе тосқауылда циклдан шығуға болады. Мұндай жағдайда циклдан шыққаннан кейiн бiз тосқауылды тапқан жоқ па екендiгi тексерiледi. Тосқауылы бар iздеудi есептеу қиындығы сызықтыға қарағанда төмен, бiрақ сондай тiзбектi өлшемiдi, N – массив элемент саны бар.

Тосқауылды орнатудың екi тәсiлi бар: қосымша элемент немесе массивтiң ең шеткi элементiнiң орнына.

Мысалы: Тосқауылы бар iздеу

program Poisk2a;

var    A:array[1..101] of integer;

N,X,i:integer;

begin

read(N); {N<=100}

for i:=1 to N do

writeln(‘Массивтi енгiзiңiз’);

read(A[i]);

writeln(‘Iзделiнетiн санды енгiзiңiз’);

read(X);

A[N+1]:=X; {қосымша элемент арқылы тосқауыл қою}

i:=1; {i:=0;}

while A[i]<>X do i:=i+1;

{repeat i:=i+1; until A[i]=X;}

if i<=N then write(‘ A массивiне ‘, i,’ орында’, X ,’ санының бiрiншi кiруi ‘)

else write(‘тапқан жоқпыз’);

end.

program Poisk2b;

var    A:array[1..100] of integer;

N,X,i,y:integer;

begin

read(N); {N<=100}

for i:=1 to N do read(A[i]);

read(X);

y:=A[N]; {соңғы элементтi сақтау}

A[N]:=X; {тосқауылды массивтiң соңғы орнына орнату}

i:=1; {i:=0;}

while A[i]<>X do i:=i+1;

{repeat i:=i+1; until A[i]=X;}

if (i<N) or (y=X) then

write(‘ A массивiне ‘, i,’ орында’, X ,’ санының бiрiншi кiруi ‘)

else write(‘тапқан жоқпыз’);

A[N]:=y; {массивтiң оңғы элементiн қалпына келтiру}

end.

3.1.3. Ек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 және соңғы к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ң есептеу қиындығы 2 негiзi бар N логарифмдi дәрежеге тең, мұндағы N – массив элементтерiнiң саны.

Мысалы: Х санының өсу ретiмен орналасқан массивке енуiн iздеу

program Poisk3a;

var    A:array[1..100] of integer;

N,X,left,right,i,c:integer;

Begin

Writeln(‘массивтiң өлшемiн енгiз’);

read(N); {N<=100}

writeln(‘өсу ретiмен массив енгiзiңiз’);

for i:=1 to N do read(A[i]);

writeln(‘өз элементiңдi енгiз’);

read(X);

left:=1; right:=N;

{iздеуге арналған сол және оң шекара фрагменттерi}

while left<right do

begin

c:=(left + right) div 2;

{кiшi жаққа қарай дөңгелектелiнген орта}

if X>A[c] then

{егер массив кему ретiмен енгiзiлсе, онда if X<A[c]}

left:=c+1

{left ауыстыра отырып ортасыз оң жағын аламыз}

else right:=c;

{right ауыстыра отырып ортасыз сол жағын аламыз }

end;

if X=A[left] then {мұндағы left = right, бiрақ әрқашан емес = c}

writeln(‘ A массивiне ‘, left,’ орында’, X ,’ санының соңғы кiруi ‘)

else writeln(‘тапқан жоқпыз’);

end.

3.2. Сорттау алгоритмдерi

Сорттаудың ең қарапайым есебi массив элементтерiнiң өсу не кему ретiмен орналастыру болып табылады. Басқа есеп болып, берiлген белгiлер бойынша массив элементтерiн реттеу. Әдетте мұндай белгi ретiнде аргументi массив элементтерi болып табылатын белгiлi функция мәнi болып табылады. Бұл функцияны реттеушi функция деп атау қабылданған.

Сорттаудың әр түрлi тәсiлдерi бар. Әрбiр тәсiлдi N бүтiн сандардан өспелi массивтi сорттау мысалында көрсетемiз.

3.2.1. Таңдау арқылы сорттау

Тәсiл идеясы массивтiң максималды элементiн тауып, оны соңғы элемент (N номерлi) орнымен ауыстырылады. Содан кейiн максималды элемент N-1 орынға дейiн iзделiп, сол N-1 орынға қойылады және т.с.с. Максимум емес, минимум элемент iзделiп, оны бiрiншi, екiншi және т.с.с. орынға қоюға болады. Сонымен қатар бұл әдiстiң модификацияланған түрi – бiр мезетте максимум және минимум элементтердi iздеу қолданылады. Бұл жағдайда сыртқы циклдың қадамдар саны N div 2.

Таңдау арқылы сорттаудың есептеу қиындығы — N*N шамасының өлшемi, әдетте оны O(N*N) деп жазады. Бұл салыстырулар саны бiрiншi максимумды iздегенде N-1-ге тең, содан кейiн N-2, N-3 және т.с.с. 1-ге дейiн, соымен N*(N-1)/2 болумен түсiндiрiледi.

Мысалы: А массивiнiң N бүтiн сандарының өсуi бойынша таңдау арқылы сорттау.

program Sort_Vybor1;

var    A:array[1..100] of integer;

N,i,m,k,x : integer;

begin

write(‘Массив элементтерiнiң саны’);

read(N);

for i:=1 to n do

writeln(‘Массивтi енгiзiңiз’);

read(A[i]);

for k:=n downto 2 do { k – max-ты iздеуге қажеттi элементтер саны }

begin

m:=1; { m — max орны}

for i:=2 to k do if A[i]>A[m] then m:=i;

{ m және k номерлi элементтердi орындарымен ауыстырамыз}

x:=A[m]; A[m]:=A[k]; A[k]:=x;

end;

for i:=1 to n do write(A[i],’ ‘); {реттелген массив}

end.

Мысалы: Жоғарыдағы есеп, бiрақ бiр мезеттегi max пен min таңдау арқылы.

program Sort_Vybor2;

var    A:array[1..100] of integer;

N,i,m,k,x,p : integer;

begin

write(‘Массив элементтерiнiң саны’);

read(N);

for i:=1 to n do

writeln(‘Массивтi енгiзiңiз’);

read(A[i]);

for k:=1 to n div 2 do { k — max және min жұбының орны }

begin

m:=k; { m — max орны }

p:=k; { p – min орны }

{max және min k-дан n-k+1 элементтер арасында iзделедi }

for i:=k+1 to n-k+1 do

if A[i]>A[m] then m:=i

else if A[i]<A[p] then p:=i;

{ p және k номерлi элементтердi орындарымен ауыстырамыз }

x:=A[p]; A[p]:=A[k]; A[k]:=x;

if m=k then m:=p;

{егер max k орында тұрса, ендi ол p орында тұр }

{ m және n-k+1 номерлi элементтердi орындарымен ауыстырамыз }

x:=A[m]; A[m]:=A[n-k+1]; A[n-k+1]:=x;

end;

for i:=1 to n do write(A[i],’ ‘); {реттелген массив}

end.

3.2.2. Айырбаспен сорттау (“көбiкше” тәсiлiмен)

Тәлiл идеясы рет бойынша массивтiң көршiлес жұптары тексерiлуiнде құрылған. Егер олар олар керектi реттiлiкте болмаса, онда көршiлес элементтер жұбын орындарымен ауыстырамыз. Мұндай бiр өтуден кейiн N номерi орынында максимал элемент орналасады (бiрiншi көбiкше “қалқып” шықты). Келесi өту N-1 элементке дейiн қарастыру керек және т.с.с. Барлығы N-1 өту қажет болады. Айырбаспен сорттаудың есептеу қиындығы O(N*N).

Мысалы: А массивiнiң N бүтiн сандарының өсуi бойынша айырбаспен сорттау. (Негiзгi вариант)

program Sort_Obmen1;

var    A:array[1..100] of integer;

N,i,k,x : integer;

begin

write(‘Массив элементтерiнiң саны’);

read(N);

for i:=1 to n do

writeln(‘Массивтi енгiзiңiз’);

read(A[i]);

for k:=n-1 downto 1 do { k – салыстырылатын жұптар саны }

for i:=1 to k do

if A[i]>A[i+1] then

{көршiлес элементтердi орындарымен ауыстырамыз}

begin       x:=A[i];       A[i]:=A[i+1];         A[i+1]:=x;   end;

for i:=1 to n do write(A[i],’ ‘); {реттелген массив}

end.

3.2.3. Шейкерлi сорттау

Бұл алгоритм негiзiнен айырбас арқылы сорттаудың модификациясы болып табылады. Айырмашылығы айырбас арқылы сорттауда өтулер бiр жақты ғана болса, мұнда бағыт әрбiр рет сайын өзгерiп отырады. Сонымен қатар шейкерлi сорттауда айырбас фактi мен айырбастың соңғы орнын анықтауға болады. Негiзгi алгоритмде екiлiк өтулер саны N div 2-ге теi. Шейкерлi сорттаудың есептеу қиындығы O(N*N).

Мысалы: N бүтiн сандардан құралған А массивiн Шейкерлi сорттау арқылы өсу ретiмен орналастыру.

program Shaker;

var    A:array[1..100] of integer;

N,i,k,x,j,d : integer;

begin

write(‘Массив элементтерiнiң саны’);

read(N);

for i:=1 to n do

writeln(‘Массивтi енгiзiңiз’);

read(A[i]);

d:=1; i:=0;

for k:=n-1 downto 1 do { k – салыстырылатын жұптар саны }

begin

i:=i+d;

for j:=1 to k do

begin

if (A[i]-A[i+d])*d>0 then

{көршiлес элементтердi орындарымен ауыстыру}

begin x:=A[i]; A[i]:=A[i+d]; A[i+d]:=x; end;

i:=i+d;

end;

d:=-d;

{қозғалыс бағытын қарама-қарсыға өзгертемiз}

end;

for i:=1 to n do write(A[i],’ ‘); {реттелген массив}

end.

3.2.4. Қосу арқылы сорттау

Бер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 есептеу қиындығы O(N*N), ал екiлiк iздеу кезiнде — O(N*LogN) (негiзi 2 болатын логарифм) болады.

Мысалы: N бүтiн сандардан құралған А массивiн сызықты iздеуi бар қосу арқылы сорттау арқылы өсу ретiмен орналастыру.

program Sort_Include1;

var    A:array[1..100] of integer;

N,i,k,x : integer;

begin

write(‘Массив элементтерiнiң саны ‘);

read(N);

writeln(‘Массивтi енгiзiңiз’);

read(A[1]); {for i:=1 to n do read(A[i]);}

{k – массивтiң реттелген бөлiгiндегi элементтер саны}

for k:=1 to n-1 do

begin

read(x); {x:=A[k+1];}

i:=k;

while (i>0)and(A[i]>x) do

begin

A[i+1]:=A[i];

i:=i-1;

end;

A[i+1]:=x;

end;

for i:=1 to n do write(A[i],’ ‘); {реттелген массив}

end.

Мысалы: N бүтiн сандардан құралған А массивiн екiлiк iздеуi бар қосу арқылы сорттау арқылы өсу ретiмен орналастыру.

program Sort_Include2;

var    A:array[1..100] of integer;

N,i,k,x,c,left,right : integer;

begin

write(‘Массив элементтерiнiң саны’);

read(N);

writeln(‘Массивтi енгiзiңiз’);

 

read(A[1]); {for i:=1 to n do read(A[i]);}

{k — массивтiң реттелген бөлiгiндегi элементтер саны }

for k:=1 to n-1 do

begin

read(x); {x:=A[k+1];}

left:=1; right:=k;

{iздеуге керектi фрагменттiң оң және сол шекарасы}

while left<right do

{соңғы кiрудiң екiлiк iздеуi}

begin

c:=(left+right+1) div 2;

{ үлкен жаққа дөңгелектенген ортасы }

if x>=A[c] then left:=c

{ортасы мен оң жағын аламыз}

else right:=c-1; {ортасыз сол жағын аламыз}

end;

if x>=A[left] then left:=left+1;

{х қосылуға орын босата отырып, массивтi 1 орынға оңға жылжытамыз}

for i:=k downto left do A[i+1]:=A[i];

A[left]:=x;

end;

for i:=1 to n do write(A[i],’ ‘); {реттелген массив}

end.

3.2.5. Хоар сорттауы

Бұл сорттауды жылдам сорттау деп те атайды. Әд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н сорттаудағы екi есепшеге бөлуге болады.

Берiлген рекурсивтi алгоритмнiң бiр шақырылуының есептеу қиындығы сортталатын массив үзiндiсiндегi элементтер санына пропорционал. Ең жақсы жағдайда бөлiктерге бөлу қақ ортасынан болады, сондықтан жылдам сорттаудың бүкiл алгоритмiнiң есептеу қиындығы N*LogN (негiзi 2 болатын логарифм) өлшемдi болады. Есептеу қиындығы орташа сол мәндi.

Мысалы: N бүтiн сандардан құралған А массивiн жылдам сорттау арқылы өсу ретiмен орналастыру.

program Quick_Sort;

var    A:array[1..100] of integer;

N,i : integer;

{Процедураға сортталатын үзiндiнiң оң және сол шекаралары берiледi}

procedure QSort(L,R:integer);

var    X,y,i,j:integer;

begin

X:=A[(L+R) div 2];

i:=L; j:=R;

while i<=j do

begin

while A[i]<X do i:=i+1;

while A[j]>X do j:=j-1;

if i<=j then

begin

y:=A[i]; A[i]:=A[j]; A[j]:=y;

i:=i+1; j:=j-1;

end;

end;

if L<j then QSort(L,j);

if i<R then QSort(i,R);

end;

begin

write(‘Массив элементтерiнiң саны’);

read(N);

for i:=1 to n do

writeln(‘Массивтi енгiзiңiз’);

read(A[i]);

QSort(1,n); {бiрiншiден n-шiге дейiнгi элементтердi реттеу}

for i:=1 to n do write(A[i],’ ‘); {реттелген массив}

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  1. Алгоритмнiң негiзгi ойын баяндау

Бұл бағдарлама негiзiнен бiр функция, үш процедура және өзiнiң негiзгi денесiнен құрылған. Әрқайсысын бөлек-бөлек қарастырайық.

  1. Random_ функциясы. Бұл функцияның негiзгi атқаратын қызметi – ол компьютердiң төрт таңбалы сан жасыруында болып табылады. Функция санның төрт цифрларын бөлек-бөлек кездейсоқ алады және осы бөлек цифрлар бiр таңбалы болады. Осы сандарды бiрiнен кейiн бiрiн жолдық өрнекке айналдырып отырады. Соның нәтижесiнде компьютер жасырған төрт таңбалы сан шығады. Санды жасыру барысында бiрнеше шарт қойылады және тексерiледi:

а) сан мiндеттi түрде төрт таңбалы болуы керек;

ә) компьютер жасырған санның бiрiншi цифрi 0-ге тең болмауы қажет;

б) жасырылған санның цифрларының арасында бiрдей мәндiлерi болмауы шарт.

  1. PrintText процедурасы. Процедураның негiзiнен атқаратын қызметi – келесi процедурада келтiрiлетiн көмек, ескертулердi экранның төменгi жағындағы қызыл жолақшада мәтiн түрiнде келтiру.
  2. Zastavka процедурасы. Бұл процедура программаның бет-келбетiн, яғни заставкасын келтiредi, ойынды безендiредi. Процедура негiзiнен CRT, GRAPH модульдер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. ReadPlayerDigits процедурасы. Бұл процедураның негiзгi атқаратын қызметi – ойыншыға сан енгiзу мүмкiндiгiн беру және осы сандарды тексеру. Ойыншы сан енгiген кезде процедура PrintText процедурасының көмегiмен ойыншыға нұсқаулар берiп отырады. Нұсқаудың шығуының бiрнеше шарты бар. Олар:

а) комппьютердiң ойлаған санын табуға шақырады;

ә) егер енгiзiлген сан төрт таңбалы болмаса, ойыншы бұл жайында хабар алады;

б) егер енгiзiлген сан болмаса, ойыншыға оның сан енгiзбегендiгi жайында хабар берiледi.

Сонымен қатар бұл процедура келесi екi жұмысты атқара алады:

а) егер ойыншы ойыннан шыққысы келсе, “end” сөзiн терсе жеткiлiктi;

ә) егер ойыншы компьютер жасырған санды таба алмаса, онда ол “lose” сөзiн терсе, компьютер жасырған санын хабарлап, ойыннан шығады.

  1. Бағдарламаның негiзгi денесi. Бағдарлама ойынның негiзгi шарттарын ойыншыға жеткiзедi, жоғарыдағы аталған функция мен процедураларды қолданады. Сонымен қатар ойыншының атын енгiзуге мүмкiндiк бередi, оған санның қанша цифрiн тапқанын “Бұқа”, қаншасы өз орнын тапқанын “Сиыр” деп көмек ретiнде астарлап жеткiзiп отырады. Егер ойыншы жеңген болса, оны құттықтап, қайтадан бастағысы келетiндiгi жайында сұрайды. Ойынның ең соңында берiлген ойынды жазған автор жайында қысқаша мәлiмет келтiрiледi.
  2. Логикалық құрылымның баяндалуы

 

1, 2. Программаны жүктеу алдында RKKAZ.COM файлын жүктеу керектiгi

жайындағы ескерту.

  1. Программаның аты.
  2. CRT,GRAPH модульдерiн (кiтапханаларын) қосу.

5-16. Программа жайында қысқаша баяндау.

  1. Цифрлары әртүрлi кездейсоқ төрт таңбалы сандар.
  2. Random_ функциясы — компьютер жасырған сан.
  3. Таңба (метка) қою.
  4. Тұрақтыларды баяндау бөлiмi.
  5. SetDigit: set of byte=[1,2,3,4,5,6,7,8,9,0]; — 0-9 сандар жиыны.
  6. Айнымалыларды баяндау бөлiмi.
  7. i — төрт таңбалы сандар iшiндегi әрбiр цифр, k – төрт цифр.
  8. Random_Str, S – төрт таңбалы санды жолға жазуға көмектесетiн жолдық өрнектер.
  9. Функцияның басталуы.
  10. Randomize процедурасы – кездейсоқ сандарды таңдау генераторы.
  11. k:=0 – 4 цифр, әзiрше олардың саны 0.
  12. Random_Str – 4-таңбалы сандардың жолдық өрнегi, әзiрше ол бос.

29-39. 4-цифрлы санды таңдайтын цикл.

  1. 1: — таңба, i := Random(10) – i-кез-келген 0 мен 9 арасындағы сан.
  2. Егер i Î SetDigit онда келесi жолға көшу.

32-38.  Циклдың басы.

  1. Str(i,S) – S жолға i санын жазу.
  2. Егер k=0 және i=0 болса, онда 1:, яғни 30.-ға бару.
  3. Random_Str жолдық өрнекке толық төрт цифрдi жазу.
  4. SetDigit сандар жиынынан i элементiн алып тастау.
  5. k-ны 1-ге арттыру.
  6. 32 — циклдың соңы.
  7. 29 – цикл k=4 болғанша жүредi.
  8. Random_ функциясын Random_Str жолдық өрнек ретiнде бейнелеу.
  9. Random_ функциясының соңы.

42-58. PrintText процедурасы – экранның төменгi жағында көмек берiп тұрады.

  1. Айнымалыларды баяндау бөлiмi.
  2. х, у – курсор координаттары.
  3. Процедураның басталуы.
  4. Курсордың Х координатын анықтау.
  5. Курсордың Ү координатын анықтау.
  6. Экранда мәтiн орналасқан терезе (1,25,80,25) координатын анықтау.
  7. Фон түсiн анықтау (қызыл).
  8. Мәтiн түсiн анықтау (ақ).
  9. Активтi терезенi тазарту.
  10. Берiлген координат бойынша (WhereX+40-length(Text) div 2,WhereY)

курсорды жылжыту.

  1. Берiлген мәтiндi (Text) экранға шығару.
  2. Экранда мәтiн орналасқан терезе (1,1,80,24) координатын анықтау.
  3. Мәтiн түсiн анықтау (сары).
  4. Фон түсiн анықтау (қара).
  5. Курсорды (x,y) координатқа орналастыру.
  6. PrintText процедурасының аяқталуы.

59-96. Zastavka процедурасы – ойынның заставкасы.

  1. n=20 тұрақтысы – түстердiң саны.
  2. Айнымалыларды баяндау бөлiмi.
  3. grDriver,grMode,ErrorCode — графиканы инициализациялауға қажеттi

айнымалылар.

  1. Процедураның басы.

64-72. Графиканы қосып, тексеру.

73-94. Жалпы графиканың циклi.

  1. Нұсқа мен түстi толтыратын жиын (6 – нұсқаның түрi, 9 – нұсқасның түсi,

көгiлдiр).

  1. Жоғарғы шекара (рамка қою), координаталары (1-сол жақ шекарасы, 1-

жоғарғы жағы, 640-оң жағы, 15-төменгiсi).

  1. Оң жақ шекара (рамка қою), координаталары (640-сол жақ шекарасы, 1-

жоғарғы жағы, 610-оң жағы, 480-төменгiсi).

  1. Төменгi шекара (рамка қою), координаталары (640-сол жақ шекарасы, 480-

жоғарғы жағы, 1-оң жағы, 465-төменгiсi).

  1. Сол шекара (рамка қою), координаталары (15-сол жақ шекарасы, 480-

жоғарғы жағы, 1-оң жағы, 1-төменгiсi).

  1. Мәтiн түсi жасыл.
  2. Х осiндегi координаты — 200, Ү осiндегi координаты – 30 болатын

“AttilaSoftGames Present” сөйлемiн шығару.

  1. Мәтiн түсiн көкшiлге қою.
  2. Х осiндегi координаты — 45, Ү осiндегi координаты – 50 болатын “ҚазҰТУ,

АжАТИ, Техникалық кибернетика кафедрасының тапсыруы бойынша”

сөйлемiн шығару.

83-89. Цикл i 1-ден 500-ге дейiнгi жұлдыздар саны.

  1. Циклдiң басталуы.
  2. Түрлi-түстi жұлдыздар салу, (random(640) – Х бойынша координаты,

random(480) – Ү бойынша координаты, random(16) – жұлдыздардың түсi).

  1. Компьютердiң iшкi динамигiнiң дыбысын жиiлiгi i бойынша Герцпен

өзгерiп отыратындай етiп қосу.

  1. Жоғарыдағы берiлген әрекеттердi 50 мс-қа тоқтатады.
  2. Компьютердiң iшкi динамигiнiң дыбысын өшiру.
  3. Цикл соңы.
  4. Графикалық режимде мәтiннiң стилiн орнату.

91-95. Цикл i 1-ден 20-ға дейiн мәтiн түсiн өзгертiп тұрады.

  1. Циклдiң басталуы.
  2. Мәтiн түсi i-ға байланысты өзгерiп тұрады.
  3. Х осiндегi координаты — 210, Ү осiндегi координаты – 220 болатын

“БҰҚАЛАР мен СИЫРЛАР ойыны” сөйлемiн шығару.

  1. Цикл соңы.
  2. Графикалық режимде мәтiннiң стилiн орнату.
  3. Х осiндегi координаты — 145, Ү осiндегi координаты – 400 болатын

“Ойынды бастау үшiн Enter пернесiн басыңыз” сөйлемiн шығару.

  1. 73 басталған цикл кез-келген перне басталғанға дейiн жүредi.
  2. Графиканы жабу.
  3. Zastavka процедурасының аяқталуы.

101-103. Негiзгi программа басталуы жайындағы хабар.

  1. Айнымалыларды баяндау бөлiмi.
  2. 105. CompDigitSet — цифрлар жиыны.
  3. CompDigitStr — компьютер жасырған сан.
  4. PlayerDigitStr — ойыншы енгiзген сан.
  5. PlayerName — ойыншының атын енгiзуге мүмкiндiк беру.
  6. PlayerDigitSet_ — ойыншының енгiзген саны.
  7. S – кездейсоқ таңдалатын i санын жолға айналдыруға керектi айнымалы.
  8. i – сандар жиынын қарастырғандағы цикл да керек болатын параметр, Digit

— енгiзген санның цифрларының арасында бiрдей болу-болмауын

тексеруде керектi параметр.

  1. a – бұқа саны, b – сиыр саны, Code –
  2. Ch – ойыншыға меню мүмкiндiгiнiң пернелерiн басуға мүмкiндiк беру.
  3. One – таңба.
  4. Тұрақтыларды баяндау бөлiмi.
  5. PlayerDigitSet – ойыншының мүмкiн енгiзетiн сандар жиыны 0-ден 9-ға

дейiн.

  1. ReadPlayerDigits процедурасы – ойыншыға сандар енгiзу мүмкiндiгiн беру.
  2. 1 – таңба.
  3. Айнымалыларды баяндау бөлiмi.
  4. PlayerSet — ойыншының енгiзетiн сандарының жиыны.
  5. Процедураның басталуы.
  6. 1-таңба, ойыншының енгiзетiн сандарын оның мүмкiн енгiзетiн сандарына

теңестiру.

  1. Ойыншыға сан енгiзу мүмкiндiгiн беру.

124-134. Егер ойыншы “end” сөзiн енгiзсе, онда ойыннан шығу-шықпауы

жайында хабар алу.

135-150. Егер ойыншы “lose” сөзiн енгiзсе, онда компьютер жасырған санын

экранға шығарып, ойыншының жеңiлгендiгi туралы хабар жеткiзiп,

ойыннан шығып кетедi.

152-156. Ойыншының енгiзген санын тексеру, егер ойыншы сан орнына

символдар енгiзсе, компьютер оған бұл жайлы экранның төменгi

жағындағы кестеде хабар ретiнде жеткiзедi.

157-161. Енгiзiлген санның ұзындығын тексеру, егер сан төрт таңбалы болмаса,

бұл жайында компьютер экранның төменгi жағындағы кестеде хабар

ретiнде жеткiзедi.

162-166. Енгiзген санның бiрiншi цифрi 0-ге тең болмау қажеттiгiн тексеру, егер

бiрiншi цифрi 0-ге тең болса, онда компьютер ол жайында экранның

төменгi жағындағы кестеде хабар ретiнде жеткiзедi.

  1. PlayerDigitSet_ — ойыншының енгiзген цифрлары алдымен болмайды.

168-179. i 1-ден ойыншының мүмкiн енгiзетiн PlayerDigitStr сандар жиынының

ұзындығына дейiн

  1. Циклдың басталуы.
  2. i бойынша PlayerDigitStr-ды Digit санына айналдыру.

171-175. Ойыншы енгiзген санның цифрларының әртүрлiлiгiн тексеру, егер

санның цифрларының арасында бiрдейлерi болса, онда компьютер ол

жайында экранның төменгi жағындағы кестеде хабар ретiнде жеткiзедi.

  1. ReadPlayerDigits процедурасының соңы.
  2. Негiзгi программаның басталуы.

182-200. Ойынның басына кiрiсп – егер ойыншы кейбiр сөздер не әрiптердi оқи

алмайтын жағдайда болса, онда ойыннан шығып, RKKAZ.COM

драйверiн жүктеу керектiгi жайында хабарлау. Егер барлығы дұрыс

оқылатын болса, онда ойынды жалғастыруға болады.

  1. Zastavka процедурасын iске қосу.
  2. Ойынды бастау үшiн Enter басу керек.

203-225. Ойын шарты, ойын барысында керек болатын мағұлматтар беру.

226-230. Ойыншыға өз атын енгiзуге мүмкiндiк беру.

  1. One – таңба, экранды тазарту.
  2. Компьютер ойлаған санды Random_ функциясы арқылы бейнелеу.
  3. Керек болған жағдайда компьютердiң жасырған санын көрсетуге болады.

234-237. Компьютер ойлаған санның әрбiр цифрын жиынға жазу.

238-252. Ойыншы компьютер жасырған санын тапқанға дейiн жүре беретiн

цикл.

  1. Алдымен бұқалар және сиырлар саны 0-ге тең.
  2. PrintText процедурасы арқылы “*** Компьютердiң ойлаған санын табыңыз

***” сөйлемiн экранға шығару.

  1. ReadPlayerDigits процедурасын iске қосу.

242, 243. Бұқалар санын табу.

244, 245. Сиырлар санын табу.

246-248. Ойыншыға көмек деп, Бұқалар мен Сиырлар санын экранға шығару.

  1. 238 цикл ойыншының енгiзген саны компьютер жасырған санына тең

болмағанша жүру шарты.

250-263. Ойыншы компьютер жасырған санды тапқан жағдайда компьютер

ойыншыны мәтiн және музыка арқылы құттықтап, менюге шығуға

шақырады.

264-274. Бұл жерде компьютер ойыншыға ойынды басынан бастап ойнағысы

келетiндiгi жайлы сұрап, егер ойыншы тағы ойнағысы келсе ойынды

басынан бастайды, ал керi жағдайда ойын соңғы деңгейiне жетедi.

275-282. Ойынды жазған автор жайында қысқаша мәлiметтер келтiрiледi.

  1. Программаның соңы.

 

 

  1. Блок-схема

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  1. Қолданылған техникалық жабдықтар

 

Процессор      – Intel Celeron 333 Mhz

Монитор         – Samsung SyncMaster 450b

ЖЕСҚ             – 320 Mb

Бейнеадаптер – 32 Mb

Принтер          – HP DeskJet 930 C

 

  1. Программаны шақыру мен жүктеу

 

  1. Жұмысқа кiрiспес бұрын, компьютердi ток көзiне қосып жүктеймiз. Содан кейiн Windows операциялық жүйесiнен бiзге қажет Turbo Pascal 7.x Borland Pascal 7.x интегралды бағдарламалау ортасына енемiз.

F3 пернесiн басып, бiзге қажеттi файлды ашамыз. Егер ешқандай қате болмаса, онда Ctrl+F9 пернелерiн басып, бағдарламаны жүктеймiз. Ойнап болған соң Alt+X пернелерiн басып, бағдарламадан шығамыз. Ойынды қосудың басқа жолы ол [ойын файлының аты].exe файлын жүктеу арқылы да жүзеге асыруға болады.

  1. Жұмысқа кiрiспес бұрын, компьютердi ток көзiне қосып жүктеймiз. Содан кейiн Windows операциялық жүйесiнен бiзге қажет Turbo C++ 3.0 интегралды бағдарламалау ортасына енемiз.

F3 пернесiн басып, бiзге қажеттi файлды ашамыз. Егер ешқандай қате болмаса, онда Ctrl+F9 пернелерiн басып, бағдарламаны жүктеймiз. Ойнап болған соң Alt+X пернелерiн басып, бағдарламадан шығамыз. Ойынды қосудың басқа жолы ол [ойын файлының аты].exe файлын жүктеу арқылы да жүзеге асыруға болады.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9. Есептi шығару алгоритмнiң программалық жазбасы (Паскаль тiлiнде)

 

  1. { Before load that program, start RKKAZ.COM.
  2. Перед загрузкой данной программы, запустите RKKAZ.COM. }
  3. Program BikiIKorovi;
  4. Uses CRT,GRAPH;
  5. { «Бұқалар мен сиырлар». Программа кездейсоқ сандар датчигінің
  6. көмегімен цифрлары әртүрлі төрт таңбалы оң санды таңдап алады.
  7. Сол санды табу қажет.
  8. Ойыншы алғаш рет санды енгізісімен  — программаның жасырған
  9. санын таба алмайтындығы анық. Сондықтан ойыншыға ол санды
  10. табу үшiн бірнеше мүмкіндік беріледі. Әрбір мүмкіндік кезінде
  11. ойыншы цифрлары әртүрлі төрт орынды оң аңбалы санды енгізіп
  12. отырады. Ал программа, оған жауап ретінде енгізілген санның
  13. қанша цифрының бар болуын «бұқа» деп, ал өз орнын дұрыс тапқан
  14. цифрлардың санын «сиыр» деп астарлап жеткізіп отырады. Мысалы,
  15. программаның жасырған саны 1294, ал ойыншының енгізген саны
  16. 1423 болса — «бір сиыр және үш бұқа» деген жауап қайтарылады. }
  • { Цифрлары әртүрлi кездейсоқ төрт таңбалы сандар }
  1. Function Random_:string;
  2. Label 1;
  3. Const
  4. SetDigit: set of byte=[1,2,3,4,5,6,7,8,9,0]; { Бiр орынды цифрлар }
  5. Var
  6. i,k:byte;
  7. Random_Str,S: string;
  8. Begin
  9. Randomize;
  10. k:=0;
  11. Random_Str := ‘ ‘;
  12. Repeat
  13. 1: i := Random(10);   {0..9}
  14. If i in SetDigit then
  15. Begin
  16. Str(i,S);
  17. If (k=0)and(i=0) then goto 1; { Бiрiншi цифр 0-ге тең емес }
  18. Random_Str:= Random_Str+S;
  19. Exclude(SetDigit,i);
  20. Inc(k);
  21. End;
  22. Until (k=4);
  23. Random_ := Random_Str;
  24. End;
  25. Procedure PrintText(Text:string);
  26. Var
  27. x,y:byte;
  28. Begin
  29. x := whereX;
  30. y := whereY;
  31. Window(1,25,80,25);
  32. Textbackground(Red);
  33. Textcolor(White);
  34. Сlrscr;
  35. GotoXY(WhereX+40-length(Text) div 2,WhereY);
  36. Write(Text);
  37. Window(1,1,80,24);
  38. TextColor(Yellow);
  39. TextBackground(0);
  40. GotoXY(x,y);
  41. End;
  42. Procedure Zastavka(i:integer);
  43. Const n=20;
  44. Var
  45. grDriver,grMode,ErrorCode:Integer;
  46. Begin
  47. grDriver :=Detect;
  48. InitGraph(grDriver,grMode,’ ‘);
  49. ErrorCode :=GraphResult;
  50. If ErrorCode<> grOk then          {Егер қате болса}
  51. Begin
  52. Writeln(‘Графиканы инициализациялау қатесi:’,GraphErrorMsg(ErrorCode));
  53. Halt(0); {Программадан шығу}
  54. end
  55. else
  56. Repeat
  57. SetFillStyle(6,9);
  58. Bar(1,1,640,15); {Жоғарғы шекара}
  59. Bar(640,1,610,480); {Оң жақ шекара}
  60. Bar(640,480,1,465); {Төменгi шекара}
  61. Bar(15,480,1,1); {Сол жақ шекара}
  62. SetColor(2);
  63. OutText(200,30, ‘AttilaSoftGames Present’);
  64. SetColor(5);
  65. OutTextXY(45,50,’ҚазҰТУ, АжАТИ, Техникалық кибернетика

кафедрасының тапсыруы бойынша’);

  1. For i:=1 to 500 do
  2. Begin
  3. PutPixel(random(640),random(480),random(16));{Түстi жұлдыздар салу}
  4. Sound(i);
  5. Delay(50);
  6. Nosound;
  7. End;
  8. SetTextStyle(DefaultFont, HorizDir, 2);
  9. For i:=1 to n do
  10. Begin
  11. SetColor(i);
  12. OutTextXY(210,220,’БҰҚАЛАР мен СИЫРЛАР ойыны’);
  13. End;
  14. SetTextStyle(DefaultFont, HorizDir, 1);
  15. OutTextXY(145,400,’Ойынды бастау үшiн Enter пернесiн басыңыз’);
  16. Until KeyPressed;
  17. CloseGraph;
  18. end;
  19. {*************************************************************}
  20. {                                                 Негiзгi программа                                          }
  21. {*************************************************************}
  22. VAR
  23. CompDigitSet: set of char;           { Цифрлар жиыны }
  24. CompDigitStr: string;                   { Компьютер жасырған сан }
  25. PlayerDigitStr: string;                   { Ойыншы енгiзген сан }
  26. PlayerName: string;              {Ойыншының атын енгiзуге мүмкiндiк беру }
  27. PlayerDigitSet_: set of byte;
  28. s:string;
  29. i,Digit:byte;
  30. Code, a, b:integer;
  31. Ch: char;
  32. LABEL 1;
  33. CONST
  34. PlayerDigitSet: set of char =[‘0′,’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9’];
  35. Procedure ReadPlayerDigits;
  36. Label 1;
  37. Var
  38. PlayerSet: set of char;
  39. Begin
  40. 1:     PlayerSet:=PlayerDigitSet;
  41. ReadLn(PlayerDigitStr);         { Ойыншыға сан енгiзу мүмкiндiгiн беру }
  42. If PlayerDigitStr=’end’ then
  43. Begin
  44. TextColor(2);
  45. ClrScr;
  46. WriteLn(‘          Сiзiдiң шынымен ойыннан шыққыңыз келе ме?’);
  47. WriteLn(‘Егер шыққыңыз келсе, “Ү” немесе “у” терiп Enter басыңыз’);
  48. WriteLn(‘    Шыққыңыз келмесе кез-келген басқа перненi басыңыз’);
  49. ReadLn(PlayerDigitStr);
  50. If (PlayerDigitStr=’Y’) or (If PlayerDigitStr=’y’) then
  51. Halt;
  52. End;
  53. If PlayerDigitStr=’lose’ then
  54. Begin
  55. TextColor(3);
  56.     ClrScr;
  57. Window(25,10,70,15);
  58. WriteLn(‘ Компьютердiң ойлаған саны:’);
  59. WriteLn(CompDigitStr:15);
  60. ReadLn;
  61. ClrScr;
  62. TextColor(5);
  63. Window(20,10,70,15);
  64.    WriteLn(‘           Сiз бұл ойынды жеңе алмадыңыз!!!’);
  65. WriteLn(‘Ренжiмеңiз, мүмкiн келесi рет жеңе аларсыз…’);
  66. ReadLn;
  67. Halt;
  68. End;

{ Санның дұрыстығын тексеру }

  1. Val(PlayerDigitStr,Digit,Code);
  2. If Code<>0 then
  3. Begin
  4. PrintText(Енгiзгенiңiз сан емес ‘+ ‘»‘+PlayerDigitStr+'»‘);
  5. Goto 1;
  6. End;

{ Енгiзiлген санның ұзындығын тексеру }

  1. If Length(PlayerDigitStr)<>4 then
  2. Begin
  3. PrintText(‘ Енгiзген саныңыз төрт таңбалы емес ‘);
  4. Goto 1;
  5. End;

{ Енгiзiлген санның бiрiншi цифрi 0-ге тең болатын-болмайтындығын

тексеру }

  1. If PlayerDigitStr[1]=’0′ then
  2. Begin
  3. PrintText(‘Бiрiншi цифр 0-ге тең болмауы қажет’);
  4. Goto 1;
  5. End;
  6. PlayerDigitSet_ := [];
  7. For i:=1 to length(PlayerDigitStr) do
  8. Begin
  9. Val(PlayerDigitStr[i],Digit,Code);

{ Санның цифрларының әртүрлiлiгiн тексеру }

  1. If PlayerDigitStr[i] in PlayerSet then
  2. Exclude(PlayerSet,PlayerDigitStr[i])
  3. else
  4. Begin
  5. PrintText(‘Есептiң шарты бойынша цифрлар әртүрлi болуы қажет’);
  6. Goto 1;
  7. End;
  8. Include(PlayerDigitSet_,Digit);
  9. End;
  10. End;
  11. BEGIN
  12. TextBackground(0);
  13. ClrScr;
  14. TextColor(white);
  15. WriteLn(‘******************************************************’);
  16. WriteLn(‘ENG: If you can”t read some words, then’);
  17. WriteLn(‘ before load that game, start RKKAZ.COM’);
  18. WriteLn(‘RUS: Если вы не можете прочитать некоторые буквы,’);
  19. WriteLn(‘ тогда перед загрузкой этой игры, запустите RKKAZ.COM’);
  20. WriteLn(‘******************************************************’);
  21. WriteLn;
  22. WriteLn(‘БҰҚАЛАР мен СИЫРЛАР. әiңғүұқ’);
  23. WriteLn;
  24. WriteLn(‘For continuation press Enter or for exit press «N» or «n»‘);
  25. WriteLn;
  26. WriteLn(‘Для продолжения нажмите Enter или для выхода «N» или «n»‘);
  27. ReadLn(Ch);
  28. If (Ch=’N’) or (Ch=’n’) then
  29. Halt
  30. else
  31. Zastavka(1);
  32. ReadLn;
  33. TextColor(11);
  34. WriteLn(‘ «Бұқалар мен сиырлар». Программа кездейсоқ сандар’);
  35. WriteLn(‘датчигінің көмегімен цифрлары әртүрлі төрт таңбалы ‘);
  36. WriteLn(‘оң санды таңдап алады. Сол санды табу қажет.’);
  37. WriteLn(‘ Ойыншы алғаш рет санды енгізісімен – программаның’);
  38. WriteLn(‘жасырған санын таба алмайтындығы анық. Сондықтан’);
  39. WriteLn(‘ойыншыға ол санды табу үшiн бірнеше мүмкіндік ‘);
  40. WriteLn(‘беріледі. Әрбір мүмкіндік кезінде ойыншы цифрлары ‘):
  41. WriteLn(‘әртүрлі төрт орынды оң аңбалы санды енгізіп отырады. ‘);
  42. WriteLn(‘Ал программа оған жауап ретінде енгізілген санның ‘);
  43. WriteLn(‘қанша цифрының бар болуын «бұқа» деп, ал өз орнын ‘);
  44. WriteLn(‘дұрыс тапқан цифрлардың саннын «сиыр» деп астарлап ‘);
  45. WriteLn(‘жеткізіп отырады. Мысалы, программаның жасырған ‘);
  46. WriteLn(‘саны 1294, ал ойыншының енгізген саны 1423 болса —’);
  47. WriteLn(‘«бір сиыр және үш бұқа» деген жауап қайтарылады.’);
  48. WriteLn;
  49. TextColor(4);
  50. WriteLn(‘ Егер сiз компьютер жасырған санды таба алмасаңыз, онда’);
  51. WriteLn (‘“lose” терiңiз, ал егер ойыннан шыққыңыз келсе, “end” терiңiз’);
  52. TextColor(9);
  53. WriteLn;
  54. WriteLn(‘Ойынды бастау үшiн Enter басыңыз’);
  55. ReadLn;
  56. ClrScr;
  57. TextColor(white);
  58. Window(25,10,65,12);
  59. WriteLn(‘Өз атыңызды енгiзiңiз’);
  60. ReadLn(PlayerName);
  61. One: ClrScr;
  62. CompDigitStr := Random_;
  63. {WriteLn(CompDigitStr);} { Компьютердiң жасырған санын көрсетуге

мүмкiндiк}

{ Компьютер ойлаған санның әрбiр цифрын жиынға жазу }

  1. For i:=1 to length(CompDigitStr) do
  2. Begin
  3. Include(CompDigitSet,CompDigitStr[i]);
  4. End;
  5. Repeat
  6. a:=0; b:=0;
  7. PrintText(‘ *** Компьютердiң ойлаған санын табыңыз ***’);
  8. ReadPlayerDigits;

{ Бұқалар }

  1. For i:=1 to length(PlayerDigitStr) do
  2. If PlayerDigitStr[i] in CompDigitSet then Inc(a);

{ Сиырлар }

  1. For i:=1 to length(PlayerDigitStr) do
  2. If PlayerDigitStr[i]=CompDigitStr[i] then Inc(b);
  3. TextColor(11);
  4. WriteLn(PlayerName:20,’ сiзге көмек -‘);
  5. WriteLn(‘Бұқа саны: ‘:40,a, ‘, ‘Сиыр саны: ‘,b);
  6. Until (CompDigitStr=PlayerDigitStr);
  7. ClrScr;
  8. TextColor(9);
  9. Window(25,10,65,12);
  10. WriteLn(PlayerName,’ сiз осы ойынның жеңiмпазысыз!!!‘);
  11. PrintText(‘ Неткен тапқыр адам едiңiз …’);
  12. Repeat
  13. For i:=255 downto 1 do
  14. Begin
  15. Sound(220); Delay(200); NoSound;
  16. End;
  17. Until keypressed;
  18. WriteLn;
  19. WriteLn(‘Менюге шығу үшiн Enter басыңыз’:54);
  20. ReadLn;
  21. ClrScr;
  22. WriteLn(‘Қайта бастағыңыз келе ме?’:45);
  23. WriteLn;
  24. WriteLn;
  25. WriteLn(‘Егер ия болса, онда ”Y” немесе “y” терiп, Enter басыңыз’:30);
  26. WriteLn;
  27. WriteLn(‘Керi жағдайда кез-келген символ терiп, Enter басыңыз’:30);
  28. ReadLn(Ch);
  29. If (Ch=’Y’) or (Ch=’y’) then
  30. Goto One
  31. else
  32. ClrSCr;
  33. WriteLn(‘Copyright  (C) 2002 by StudentSoft (ҚазҰТУ—ЗБИ-01-2Қ)’);
  34. WriteLn;
  35. WriteLn(‘             Программаны жазған: Батырғалиев А.Б.’);
  36. WriteLn(‘                             Қабылдаған: Ибрагимова Г.А.’);
  37. WriteLn(‘    Тiлектерiңiз бен ескертулерiңiздi [email protected]’);
  38. WriteLn(‘                        адресiне жiберуiңiзге болады.’);
  39. Repeat Until KeyPressed;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

  1. Есептi шығару алгоритмнiң программалық жазбасы (Си тiлiнде)

 

  1. #include <math.h>
  2. #include <string.h>
  3. #include <iostream.h>
  4. #include <stdio.h>
  5. #include <conio.h>
  6. #include <graphics.h>
  7. #include <stdlib.h>
  8. #include <dos.h>
  9. #define m 20

/*    «Бұқалар мен сиырлар». Программа кездейсоқ сандар датчигінің

көмегімен цифрлары әртүрлі төрт таңбалы оң санды таңдап алады.

Сол санды табу қажет.

Ойыншы алғаш рет санды енгізісімен  — программаның жасырған

санын таба алмайтындығы анық. Сондықтан ойыншыға ол санды

табу үшiн бірнеше мүмкіндік беріледі. Әрбір мүмкіндік кезінде

ойыншы цифрлары әртүрлі төрт орынды оң аңбалы санды енгізіп

отырады. Ал программа, оған жауап ретінде  енгізілген санның

қанша цифрының бар болуын «бұқа» деп, ал өз орнын дұрыс тапқан

цифрлардың санын «сиыр» деп астарлап жеткізіп отырады. Мысалы,

программаның жасырған саны 1294, ал ойыншының енгізген саны

1423 болса — «бір сиыр және үш бұқа» деген жауап қайтарылады. */

  1. void Zastavka(int i)
  2. { int gdriver=DETECT,gmode,errorcode;
  3. initgraph(&gdriver,&gmode,» «);
  4. errorcode = graphresult();
  5. if (errorcode != grOk)
  6. { printf(«Графиканы инициализациялау қатесi: %s\n»,

grapherrormsg(errorcode));

  1. printf(«Программадан шығу үшiн кез-келген перненi басыңыз:»);
  2. getch();
  3. exit(1); }
  4. do
  5. { setfillstyle(6,9);
  6. bar (1,1,640,15);
  7. bar (640,1,610,480);
  8. bar (640,480,1,465);
  9. bar (15,480,1,1);
  10. setcolor(2);
  11. outtextxy(210,30,»AttilaSoftGames Present»);
  12. setcolor(5);
  13. outtextxy(45,50,»ҚазҰТУ, АжАТИ, Техникалық кибернетика

кафедрасының тапсыруы бойынша»);

  1. for(i=1;i<=1500;i++)
  2. { putpixel(random(640),random(480),random(16));
  3. sound(i);
  4. delay(2);
  5. nosound(); }
  6. for(i=1;i<=m;i++)
  7. { setcolor(i);
  8. settextstyle(0,0,2);
  9. outtextxy(120,220,»БҰҚАЛАР мен СИЫРЛАР ойыны»); }
  10. setcolor(11);
  11. settextstyle(0,0,1);
  12. outtextxy(145,400,»Ойынды бастау үшiн Enter пернесiн басыңыз»); }
  13. while (!kbhit());
  14. losegraph(); }
  15. void PrintText(char Text[20])
  16. { int x,y;
  17. x=wherex();
  18. y=wherey();
  19. window(1,25,80,25);
  20. textbackground(4);
  21. textcolor(15);
  22. clrscr();
  23. gotoxy(wherex()+28-strlen(Text) % 2,wherey());
  24. printf(«%s»,Text);
  25. window(1,1,80,24);
  26. textcolor(13);
  27. textbackground(0);
  28. gotoxy(x,y); }
  29. void main()
  30. { int i,j;
  31. int a[4],b[4];
  32. int si,bu;
  33. char ch,PlayerName[20];
  34. clrscr();
  35. textcolor(15);
  36. cprintf(«**************************************************\n\a\r»);
  37. cprintf(«ENG: If you can’t read some words, then\n\a\r»);
  38. cprintf(» before load that game, start RKKAZ.COM\n\a\r»);
  39. cprintf(«RUS: Если вы не можете прочитать некоторые буквы,n\a\r»);
  40. cprintf(«тогда перед загрузкой этой игры, запустите RKKAZ.COM \n\a\r»);
  41. cprintf(«**************************************************\n\a\r»);
  42. printf(«\n»);
  43. cprintf(«‘БҰҚАЛАР мен СИЫРЛАР. әiңғүұқ\n\a»);
  44. printf(«\n»);
  45. cprintf(» For exit press ‘N’ or ‘n’ or for continuation\n\a\r»);
  46. cprintf(«press any other key and then Enter\n\a\r»);
  47. cprintf(«Для продолжения нажмите Enter или для выхода ‘N’ или ‘n’\n\a\r»);
  48. printf(«\n»);
  49. ch=getch();
  50. if ((ch==’N’) || (ch==’n’))
  51. exit(1);
  52. else
  53. Zastavka(1);
  54. getch();
  55. textcolor(11);
  56. cprintf(«‘Бұқалар мен сиырлар’. Программа кездейсоқ сандар\n\a\r»);
  57. cprintf(«датчигінің көмегімен цифрлары әртүрлі төрт таңбалы \n\a\r»);
  58. cprintf(«оң санды таңдап алады. Сол санды табу қажет.\n\a\r»);
  59. cprintf(» Ойыншы алғаш рет санды енгізісімен – программаның\n\a\r»);
  60. cprintf(«жасырған санын таба алмайтындығы анық. Сондықтан\n\a\r»);
  61. cprintf(«ойыншыға ол санды табу үшiн бірнеше мүмкіндік \n\a\r»);
  62. cprintf(«беріледі. Әрбір мүмкіндік кезінде ойыншы цифрлары \n\a\r»);
  63. cprintf(«әртүрлі төрт орынды оң аңбалы санды енгізіп отырады.\n\a\r»);
  64. cprintf(«Ал программа оған жауап ретінде енгізілген санның \n\a\r»);
  65. cprintf(«қанша цифрының бар болуын «бұқа» деп, ал өз орнын \n\a\r»);
  66. cprintf(«дұрыс тапқан цифрлардың саннын «сиыр» деп астарлап\n\a\r»);
  67. cprintf(«жеткізіп отырады. Мысалы, программаның жасырған \n\a\r»);
  68. cprintf(«саны 1294, ал ойыншының енгізген саны 1423 болса -\n\a\r»);
  69. cprintf(«‘бір сиыр және үш бұқа’ деген жауап қайтарылады.\n\a\r»);
  70. printf(«\n»);
  71. textcolor(9);
  72. cprintf(«Ойынды бастау үшiн кез-келген перненi басыңыз

басыңыз.\n\a\r»);

  1. getch();
  2. clrscr();
  3. textcolor(15);
  4. window(20,10,70,12);
  5. cprintf(«Өз атыңызды енгiзiңiз: \a»);
  6. scanf(«%s»,&PlayerName);
  7. One:clrscr();
  8. randomize();
  9. for (j=0;j<4;j++)
  10. a[j]=rand()%10;
  11. if (a[0]==0)
  12. goto One;
  13. if (a[0]==a[1])
  14. goto One;
  15. if (a[0]==a[2])
  16. goto One;
  17. if (a[0]==a[3])
  18. goto One;
  19. if (a[1]==a[2])
  20. goto One;
  21. if (a[1]==a[3])
  22. goto One;
  23. if (a[2]==a[3])
  24. goto One;
  25. //  for(j=0;j<4;j++)
  26. //    printf(«%d»,a[j]);
  27. //    printf(«\n»);
  28. Two: si=0; bu=0;
  29. PrintText(«Компьютердiң ойлаған санын табыңыз»);
  30. textcolor(14);
  31. for(i=0;i<4;i++)
  32. scanf(«%d»,&b[i]);
  33. for(i=0;i<4;i++)
  34. {if(b[i]==a[i]) si+=1;}
  35. for(i=0;i<4;i++)
  36. { for(j=0;j<4;j++)
  37. { if(b[j]==a[i]) bu+=1;}}
  38. textcolor(11);
  39. { cprintf(«\r %s, сiзге көмек — «,PlayerName);
  40. cprintf(«Бұқа саны: %d, Сиыр саны: %d\n\r»,bu-si,si); }
  41. for(i=0;i<4;i++)
  42. if (b[i]!=a[i])
  43. goto Two;
  44. clrscr();
  45. textcolor(9);
  46. window(20,10,65,12);
  47. cprintf(«%s сiз осы ойынның жеңiмпазысыз!!!»,PlayerName);
  48. PrintText(«Неткен тапқыр адам едiңiз…»);
  49. do
  50. { for (i=1500;i>0;i—)
  51. { sound(i); delay(3); nosound(); } }
  52. while (!kbhit());
  53. clrscr();
  54. textcolor(3);
  55. getch();
  56. printf(«\n»);
  57. cprintf(» Менюге шығу үшiн Enter пернесiн басыңыз\n\a\r»);
  58. getch();
  59. clrscr();
  60. printf(«\n»);
  61. cprintf(» Қайта бастағыңыз келе ме?\n\a\r»);
  62. printf(«\n»);
  63. cprintf(«Егер бастағыңыз келсе, онда ’Y ’ немесе ’y’ басыңыз.\n\a\r»);
  64. printf(«\n»);
  65. cprintf(«Керi жағдайда кез-келген перненi басыңыз.\n\a\r»);
  66. ch=getch();
  67. if ((ch==’Y’) || (ch==’y’))
  68. goto One;
  69. else
  70. clrscr();
  71. textcolor(14);
  72. cprintf(«Copyright (C) 2002 by StudentSoft (ҚазҰТУ—ЗБИ-01-2Қ)\n\a\r»);
  73. printf(«\n»);
  74. cprintf(» Программаны жазған: Батырғалиев А.Б.\n\a\r»);
  75. cprintf(»        Қабылдаған: Ибрагимова Г.А.\n\a\r»);
  76. cprintf(«Тiлектерiңiз бен ескертулерiңiздi [email protected] \n\a\r»);
  77. cprintf(»  адресiне жiберуiңiзге болады.\n\a\r»);
  78. while (!kbhit());
  79. }

 Пайдаланылған әдебиеттер тiзiмi 

  1. Шелест В. Программирование. – Санкт-Петербург, BHV, 2001.
  2. Роджерс Д. Алгоритмические основы машинной графики. – Москва, “Мир”, 1989.
  3. Вирт Н. Алгоритмы + структуры данных = программы. – Москва, “Мир”, 1985.
  4. Вирт Н. Алгоритмы и структуры данных. – Москва, “Мир”, 1989.
  5. Лахтин А.С., Искакова Л.Ю. Языки и технология программирования. Начальный курс. Учеб. пособие. Екатеринбург, 1998.
  6. Бондарев В.М., Гублинский В.И., Качко Е.Г. Основа програмирования – Ростов Н/Д: Феникс,
  7. Турбо Паскаль 7.0 – К.: торгово – издательское бюро BHV, 1996 – 448с.: ил. Т. Рюттяна.
  8. Фаронов В.В. Turbo Pascal 7.0. Начальный курс. – Москва, “Нолидж”, 2001.
  9. Н.Ы. Омарова, К.У. Тұрмағамбетова, К.Н. Нүриденова. Паскаль тiлiнде программалау негiздерi. Алматы, “Бiлiм”, 1996.
  10. Шаметов Ералы Бақтайұлы. Паскаль тiлiн үйренейiк. Шымкент, 1993.
  11. Абрамов В.Г., Трифонов Н.П., Трифонова Г.Н. Введение в язык Паскаль.

М.: Наука, 1988.

  1. Х.М. Дейтел, П.Дж. Дейтел. Как программировать на С++. Москва,

“Бином”, 2000.

  • Программирование на С и С++ для Windows 95. Киев, BHV, 1996.
  1. «Язык программирования для персонального компьютера Си»,

© С.О. Бочков, Д.М. Субботин, М.: Диалог-МИФИ, 1990.

  1. Turbo C++ (Version0). Руководство для программиста.