一道简单的FREE PASCAL 希望大牛来解答A城是矩形平原,B君在上面修建一些建筑,为了规划方便,他将矩形划分成N*M格.有部分神庙分布在格子内,建筑选址时必须避开神庙.新建的建筑物有P种规格,每
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 01:52:29
![一道简单的FREE PASCAL 希望大牛来解答A城是矩形平原,B君在上面修建一些建筑,为了规划方便,他将矩形划分成N*M格.有部分神庙分布在格子内,建筑选址时必须避开神庙.新建的建筑物有P种规格,每](/uploads/image/z/1675165-13-5.jpg?t=%E4%B8%80%E9%81%93%E7%AE%80%E5%8D%95%E7%9A%84FREE+PASCAL+%E5%B8%8C%E6%9C%9B%E5%A4%A7%E7%89%9B%E6%9D%A5%E8%A7%A3%E7%AD%94A%E5%9F%8E%E6%98%AF%E7%9F%A9%E5%BD%A2%E5%B9%B3%E5%8E%9F%2CB%E5%90%9B%E5%9C%A8%E4%B8%8A%E9%9D%A2%E4%BF%AE%E5%BB%BA%E4%B8%80%E4%BA%9B%E5%BB%BA%E7%AD%91%2C%E4%B8%BA%E4%BA%86%E8%A7%84%E5%88%92%E6%96%B9%E4%BE%BF%2C%E4%BB%96%E5%B0%86%E7%9F%A9%E5%BD%A2%E5%88%92%E5%88%86%E6%88%90N%2AM%E6%A0%BC.%E6%9C%89%E9%83%A8%E5%88%86%E7%A5%9E%E5%BA%99%E5%88%86%E5%B8%83%E5%9C%A8%E6%A0%BC%E5%AD%90%E5%86%85%2C%E5%BB%BA%E7%AD%91%E9%80%89%E5%9D%80%E6%97%B6%E5%BF%85%E9%A1%BB%E9%81%BF%E5%BC%80%E7%A5%9E%E5%BA%99.%E6%96%B0%E5%BB%BA%E7%9A%84%E5%BB%BA%E7%AD%91%E7%89%A9%E6%9C%89P%E7%A7%8D%E8%A7%84%E6%A0%BC%2C%E6%AF%8F)
一道简单的FREE PASCAL 希望大牛来解答A城是矩形平原,B君在上面修建一些建筑,为了规划方便,他将矩形划分成N*M格.有部分神庙分布在格子内,建筑选址时必须避开神庙.新建的建筑物有P种规格,每
一道简单的FREE PASCAL 希望大牛来解答
A城是矩形平原,B君在上面修建一些建筑,为了规划方便,他将矩形划分成N*M格.
有部分神庙分布在格子内,建筑选址时必须避开神庙.新建的建筑物有P种规格,每种建筑物都是正方形,占地为Ti*Ti(1
一道简单的FREE PASCAL 希望大牛来解答A城是矩形平原,B君在上面修建一些建筑,为了规划方便,他将矩形划分成N*M格.有部分神庙分布在格子内,建筑选址时必须避开神庙.新建的建筑物有P种规格,每
简单?
program building;
var n,m,p,i,j,c,k:longint;s:array [1..maxsize] of integer;a:array [1..maxsize] of array [1..maxsize] of integer;
begin
assign(input,'building.in');
assign(output,'building.out');
reset(input);
rewrite(output);
readln(n,m,p);
for i=1 to n
begin
for j=1 to m do read(a[m][n]);
readln;
end;
for i=1 to p do readln(s[p]);
for i=1 to p
begin
for j=1 to m-s[p]+1
begin
for k=1 to n-s[p]+1
唉,懒得写了!