Арканоид на Паскале (стр. 3 из 7)

Âõîäíûå äàííûå:

2. dy – íàïðàâëåíèå äâèæåíèÿ øàðèêà ïî îñè Y;

3. x,y – òåêóùèå êîîðäèíàòû öåíòðà øàðèêà;

4. i – çíà÷åíèå, îò êîòîðîãî çàâèñèò êàêèå êóáèêè ïðîâåðÿòü íà ñáèâàíèå;

5. a – ìàññèâ êîîðäèíàò êóáèêîâ;

6. kol_kub – êîëè÷åñòâî êóáèêîâ íà äàííûé ìîìåíò;

Âûõîäíûå äàííûå:

7. dy – èçìåí¸ííîå íàïðàâëåíèå äâèæåíèÿ øàðèêà ïî îñè Y;

8. a – èçìåí¸ííûé ìàññèâ êîîðäèíàò êóáèêîâ;

9. kol_kub – èçìåí¸ííîå êîëè÷åñòâî êóáèêîâ;

6. procedure bok_bok(var dx:t_dx_dy;x,y:t_kubik;var a:t_arr;var kol_kub:kol_kubik);

Íàçíà÷åíèå: îïðåäåëÿåò êîñíóëñÿ ëè øàðèê êóáèêà î ëåâóþ èëè ïðàâóþ ãðàíü;

Âõîäíûå äàííûå:

10. dx – íàïðàâëåíèå äâèæåíèÿ øàðèêà ïî îñè X;

11. x,y – òåêóùèå êîîðäèíàòû öåíòðà øàðèêà;

12. a – ìàññèâ êîîðäèíàò êóáèêîâ;

13. kol_kub – êîëè÷åñòâî êóáèêîâ íà äàííûé ìîìåíò;

Âûõîäíûå äàííûå:

14. dx – èçìåí¸ííîå íàïðàâëåíèå äâèæåíèÿ øàðèêà ïî îñè X;

15. a – èçìåí¸ííûé ìàññèâ êîîðäèíàò êóáèêîâ;

16. kol_kub – èçìåí¸ííîå êîëè÷åñòâî êóáèêîâ;

7. procedure death;

Íàçíà÷åíèå: âûäà¸ò çâóêîâîé ñèãíàë, ñîîòâåòñòâóþùèé ïðîèãðûøó îäíîé æèçíè;

Âõîäíûå äàííûå: íåò;

Âûõîäíûå äàííûå: íåò;

8. procedure ugolki(var dx,dy:t_dx_dy;x,y:t_kubik;var a:t_arr;var kol_kub:kol_kubik);

Íàçíà÷åíèå: îïðåäåëÿåò êîñíóëñÿ ëè øàðèê êóáèêà îá óãëû;

Âõîäíûå äàííûå:

17. dx,dy – íàïðàâëåíèå äâèæåíèÿ øàðèêà ïî îñÿì X è Y;

18. x,y – òåêóùèå êîîðäèíàòû öåíòðà øàðèêà;

19. a – ìàññèâ êîîðäèíàò êóáèêîâ;

20. kol_kub – êîëè÷åñòâî êóáèêîâ íà äàííûé ìîìåíò;

Âûõîäíûå äàííûå:

21. dx,dy – èçìåí¸ííîå íàïðàâëåíèå äâèæåíèÿ øàðèêà ïî îñÿì X è Y;

22. a – èçìåí¸ííûé ìàññèâ êîîðäèíàò êóáèêîâ;

23. kol_kub – èçìåí¸ííîå êîëè÷åñòâî êóáèêîâ;

9. procedure pausing(var pause:word);

Íàçíà÷åíèå: îïðåäåëÿåò ñêîðîñòü äâèæåíèÿ øàðèêà ïî âûáîðó ñàìèì ïîëüçîâàòåëåì, ñ íàãëÿäíûì ãðàôè÷åñêèì èíòåðôåéñîì;

Âõîäíûå äàííûå:

pause – ïðåäïîëàãàåìàÿ ïàóçà;

Âûõîäíûå äàííûå:

pause – óæå îïðåäåë¸ííàÿ ïàóçà;

10. procedure zapis(const xs,ys:t_kubik; i:t_kubik;var a:t_arr);

Íàçíà÷åíèå: îïðåäåëÿåò íà êàêèå ìåñòà â ìàññèâå çàïèñûâàòü êîîðäèíàòû êóáèêà;

Âõîäíûå äàííûå:

1) xs,ys – êîîðäèíàòû øàðèêà, êîòîðûå è íóæíî çàïèñàòü â ìàññèâ;

24. i – ïåðåìåííàÿ îò êîòîðîé çàâèñèò ñ êàêîãî íîìåðà èñêàòü ïîäõîäÿùåå ìåñòî äëÿ êîîðäèíàò êóáèêà;

25. a – ìàññèâ êîîðäèíàò êóáèêîâ;

Âûõîäíûå äàííûå: íåò

11. procedure level(var a:t_arr;const numbering:byte;var kol_kub:kol_kubik);

Íàçíà÷åíèå: îòêðûâàåò ôàéë è ñ÷èòûâàÿ ñ íåãî êîîðäèíàòû êóáèêîâ, ðèñóåò èõ;

Âõîäíûå äàííûå:

1. a – ìàññèâ êîîðäèíàò êóáèêîâ;

2. numbering – íîìåð îòêðûâàåìîãî ýòàïà;

3. kol_kub – êîëè÷åñòâî êóáèêîâ;

Âûõîäíûå äàííûå:

1. a – ìàññèâ êîîðäèíàò êóáèêîâ;

2) kol_kub – êîëè÷åñòâî íàðèñîâàííûõ êóáèêîâ;

12. procedure left(const koeff:byte;var x1_dv,x2_dv:t_kubik);

Íàçíà÷åíèå: äâèæåíèå ïëàíêè âëåâî;

Âõîäíûå äàííûå:

1) koeff – êîýôôèöèåíò, îò êîòîðîãî çàâèñèò ðàçìåð ïëàíêè;

2. x1_dv,x2_dv – êîîðäèíàòû ïëàíêè ïî îñè Õ;

Âûõîäíûå äàííûå:

x1_dv,x2_dv – èçìåíèâøèåñÿ êîîðäèíàòû ïëàíêè ïî îñè Õ;

13. procedure right(const koeff:byte;var x1_dv,x2_dv:t_kubik);

Íàçíà÷åíèå: äâèæåíèå ïëàíêè âïðàâî;

Âõîäíûå äàííûå:

1) koeff – êîýôôèöèåíò, îò êîòîðîãî çàâèñèò ðàçìåð ïëàíêè;

3. x1_dv,x2_dv – êîîðäèíàòû ïëàíêè ïî îñè Õ;

Âûõîäíûå äàííûå:

x1_dv,x2_dv – èçìåíèâøèåñÿ êîîðäèíàòû ïëàíêè ïî îñè Õ;

14. procedure dviguna_keyboard(const koeff:byte;var x,x1_dv,x2_dv:t_kubik;var y:t_kubik);

Íàçíà÷åíèå: îæèäàíèå íàæàòèÿ êëàâèøè äëÿ íà÷àëà íîâîãî ýòàïà, åñëè ïîëüçîâàòåëü èãðàåò íà êëàâèàòóðå;

Âõîäíûå äàííûå:

1) koeff – êîýôôèöèåíò, îò êîòîðîãî çàâèñèò ðàçìåð ïëàíêè;