Реферат Розробка програми, що реалізує гру "Тетріс" в програмному середовищі Turbo Pascal

Тема: Курсовые обзорные

= 17) then new: = true;: = 1;: = 4;: = 2;;

{--------}

: begin a [x, y]: = st; [x, y +1]: = st; [x +1, y +1]: = st; [x +1, y]: = st; (a [x, y +2] = 1) or (y = 19) or (a [x +1, y +2] = 1) then new: = true;: = 2;: = 2;: = 3 ;;

{--------}

: begin then new: = true;: = 3;: = 2;: = 4;;

{--------}

: begin a [x, y]: = st; [x, y +1]: = st; [x +1, y +1]: = st; [x +1, y +2]: = st; (a [x, y +2] = 1) or (y = 18) or (a [x +1, y +3] = 1) then new: = true;: = 2;: = 3;: = 4;;

{--------}

: begin then new: = true;: = 3;: = 2;: = 5;;

{--------}

: begin a [x +1, y]: = st; [x +1, y +1]: = st; [x, y +1]: = st; [x, y +2]: = st; (a [x +1, y +2] = 1) or (y = 18) or (a [x, y +3] = 1) then new: = true;: = 2;: = 3;: = 5;;

{--------}

: begin then new: = true;: = 3;: = 2;: = 6;;

{--------}

: begin a [x, y]: = st; [x +1, y]: = st; [x, y +1]: = st; [x, y +2]: = st; (a [x, y +3] = 1) or (y = 18) or (a [x +1, y +1] = 1) then new: = true;: = 2;: = 3;: = 6;;

{--------}

: begin then new: = true;: = 3;: = 2;: = 6;;

{--------}

: begin a [x +1, y]: = st; [x +1, y +1]: = st; [x +1, y +2]: = st; [x, y +2] : = st; (a [x, y +3] = 1) or (y = 18) or (a [x +1, y +3] = 1) then new: = true;: = 2;: = 3 ;: = 6;;

{--------}

: begin a [x, y +1]: = st; [x, y]: = st; [x +1, y]: = st; [x +2, y]: = st; (a [x, y +2] = 1) or (y = 19) or (a [x +1, y +1] = 1) or (a [x +2, y +1] = 1) then new: = true;: = 3;: = 2;: = 7;;

{--------}

: begin a [x +1, y]: = st; [x, y]: = st; [x +1, y +1]: = st; [x +1, y +2]: = st; (a [x +1, y +3] = 1) or (y = 18) or (a [x, y +1] = 1) then new: = true;: = 2;: = 3;: = 7;;

{--------}

: begin then new: = true;: = 3;: = 2;: = 7;;

{--------}

: begin a [x, y]: = st; [x, y +1]: = st; [x, y +2]: = st; [x +1, y +2]: = st; (a [x, y +3] = 1) or (y = 18) or (a [x +1, y +3] = 1) then new: = true;: = 2;: = 3;: = 7 ;;

{--------}

: begin a [x, y]: = st;

{a [x, y +1]: = st; [x +1, y +1]: = st; [x +2, y +1]: = st; [x +1, y +2 ]: = st;} (a [x, y +1] = 1) or (y = 20) {or (a [x +1, y +3] = 1) or (a [x +2, y + 2] = 1)} then new: = true;: = 1;: = 1;: = 3;;

{--------};;

{----------------------------------} povorot (n: integer); x <(12 -ht) thenn of

1: fig: = 2;

: fig: = 3;

: fig: = 4;

: fig: = 1;

: fig: = 6;

: fig: = 5;

: fig: = 9;

: fig: = 8;

: fig: = 11;

: fig: = 10;