欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

俄罗斯方块

程序员文章站 2023-12-23 20:58:15
...

Description

  相信大家都玩过“俄罗斯方块”游戏吧,“俄罗斯方块”是一个有趣的电脑小游戏,现有一个有C列、行不受限定游戏平台,每一次下落的方块是下列的7个图形的一种:   
俄罗斯方块

  在下落的过程中,游戏者可以作90、 180或270 度旋转,还可以左右移动,对于每一次方块落地,我们要求方块的每一部分都必须与地面(最底面或己落下的方块上表面)接触,例如,有一个宽度为6列的平台,每一列的初始高度(已经占用的方格数)分别为2, 1, 1, 1, 0 和 1。编号为5的方块下落,有且仅有5种不同的落地方法:  
俄罗斯方块

    现给出每一列的初始高度和下落方块的形状,请你编写一个程序,求出落地的方法总数,也就是落地后,地表面形成的不同的形状总数。

Input

  第一行为二个整数C和P,1 ≤ C ≤ 100, 1 ≤ P ≤ 7,表示列数和下落方块的编号   第二行共有用一个空隔隔开的C个整数,每一个数字在 0 到 100,之间(包含0和100),表示每一列的初始高度

Output

  输出为一个整数,表示落地的方法总数

Sample Input

Input1

6 5

2 1 1 1 0 1

Input2

5 1

0 0 0 0 0

Input3

9 4

4 3 5 4 6 5 7 6 6

Sample Output

Output1

5

Output2

7

Output3

1

分析
这是一道水题
暴力即可

注意:
当图形(如图二),旋转后的形状与原图一样,则落地的方法只视为一种。

程序:

var
ans,c,p,i:longint;
a:array[0..200]of longint;
procedure work1;
var
j,bz,i:longint;
begin
    ans:=c;
    for i:=1 to c-4+1 do
    if (a[i]=a[i+1])and(a[i+1]=a[i+2])and(a[i+2]=a[i+3]) then inc(ans);
end;

procedure work2;
var
i:longint;
begin
    for i:=1 to c-1 do
    if (a[i]=a[i+1]) then inc(ans);
end;


procedure work3;
var
i:longint;
begin
    for i:=1 to c-3+1 do
    if (a[i]=a[i+1])and(a[i+1]+1=a[i+2]) then inc(ans);
    for i:=1 to c-2+1 do
    if (a[i]-1=a[i+1]) then inc(ans);
end;

procedure work4;
var
i:longint;
begin
    for i:=1 to c-3+1 do
    if (a[i]-1=a[i+1])and(a[i+1]=a[i+2]) then inc(ans);
    for i:=1 to c-2+1 do
    if (a[i]+1=a[i+1]) then inc(ans);
end;

procedure work5;
var
i:longint;
begin
    for i:=1 to c-3+1 do
    if (a[i]=a[i+1])and(a[i]=a[i+2]) then inc(ans);
    for i:=1 to c-2+1 do
    if (a[i]-1=a[i+1]) then inc(ans);
    for i:=1 to c-3+1 do
    if (a[i]-1=a[i+1])and(a[i]=a[i+2]) then inc(ans);
    for i:=1 to c-2+1 do
    if (a[i]+1=a[i+1]) then inc(ans);
end;

procedure work6;
var
i:longint;
begin
    for i:=1 to c-3+1 do
    if (a[i]=a[i+1])and(a[i]=a[i+2]) then inc(ans);
    for i:=1 to c-2+1 do
    if (a[i]-2=a[i+1]) then inc(ans);
    for i:=1 to c-3+1 do
    if (a[i]+1=a[i+1])and(a[i+1]=a[i+2]) then inc(ans);
    for i:=1 to c-2+1 do
    if (a[i]=a[i+1]) then inc(ans);
end;

procedure work7;
var
i:longint;
begin
    for i:=1 to c-3+1 do
    if (a[i]=a[i+1])and(a[i]=a[i+2]) then inc(ans);
    for i:=1 to c-2+1 do
    if (a[i]=a[i+1]) then inc(ans);
    for i:=1 to c-3+1 do
    if (a[i]=a[i+1])and(a[i]-1=a[i+2]) then inc(ans);
    for i:=1 to c-2+1 do
    if (a[i]+2=a[i+1]) then inc(ans);
end;

begin
    readln(c,p);
    for i:=1 to c do
    read(a[i]);
    ans:=0;
    if p=1 then work1 else
    if p=2 then work2 else
    if p=3 then work3 else
    if p=4 then work4 else
    if p=5 then work5 else
    if p=6 then work6 else
    if p=7 then work7;
    write(ans);
end.

上一篇:

下一篇: