2018.01.28【GDOI2018】模拟C组—

2018.01.28【GDOI2018】模拟C组—— 俄罗斯方块

本文主要是介绍2018.01.28【GDOI2018】模拟C组—— 俄罗斯方块，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

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

Output2

Output3

思路

完全的暴力模拟，细心一点就好。。。

程序

varans,c,p:longint;a:array[0..101]of longint;
procedure init;
var i:longint;
beginreadln(c,p);for i:=1 to c doread(a[i]);readln;
end;
procedure main;
var i:longint;
begincase p of1:beginans:=c;for i:=1 to c-3 doif (a[i]=a[i+1])and(a[i]=a[i+2])and(a[i]=a[i+3]) then inc(ans);end;2:beginans:=0;for i:=1 to c-1 doif a[i]=a[i+1] then inc(ans);end;3:beginans:=0;for i:=1 to c-2 doif (a[i]=a[i+1])and(a[i]+1=a[i+2]) then inc(ans);for i:=1 to c-1 doif (a[i]=a[i+1]+1) then inc(ans);end;4:beginans:=0;for i:=1 to c-2 doif (a[i]=a[i+1]+1)and(a[i+1]=a[i+2]) then inc(ans);for i:=1 to c-1 doif (a[i]+1=a[i+1]) then inc(ans);end;5:beginans:=0;for i:=1 to c-2 dobeginif (a[i]=a[i+1])and(a[i]=a[i+2]) then inc(ans);if (a[i]=a[i+2])and(a[i]-1=a[i+1]) then inc(ans);end;for i:=1 to c-1 dobeginif (a[i]=a[i+1]+1) then inc(ans);if (a[i]+1=a[i+1]) then inc(ans);end;end;6:beginans:=0;for i:=1 to c-2 dobeginif (a[i]=a[i+1])and(a[i]=a[i+2]) then inc(ans);if (a[i]+1=a[i+1])and(a[i+1]=a[i+2]) then inc(ans);end;for i:=1 to c-1 dobeginif (a[i]=a[i+1]) then inc(ans);if (a[i]=a[i+1]+2) then inc(ans);end;end;7:beginans:=0;for i:=1 to c-2 dobeginif (a[i]=a[i+1])and(a[i]=a[i+2]) then inc(ans);if (a[i]=a[i+1])and(a[i+1]=a[i+2]+1) then inc(ans);end;for i:=1 to c-1 dobeginif (a[i]=a[i+1]) then inc(ans);if (a[i]+2=a[i+1]) then inc(ans);end;end;end;
end;
begininit;main;writeln(ans);
end.