' a753 最大面積 最多 AxB , 5<=A,B<=30
' 矩形一個 AXB ，查詢有 n 個, 每個高度為h 的最大面積，
' 如範例中 1的有7個、2的有5個、3的有6個、4的為0個 {1個的印0}
Dim A As Integer, B As Integer '矩形 A x B
Dim v(100, 100) As Integer '假設最大為 100x100
Private Sub Form1_Load( ． ． ． ) Handles MyBase.Load
FileOpen(1, "in.txt", OpenMode.Input)
FileOpen(3, "out.txt",...
2016年7月29日 星期五
a753最大面積(C++版)
// a753 最大面積 最多 AxB , 5<=A,B<=30
// 矩形一個 AXB ，查詢有 n 個, 每個高度為h 的最大面積，
// 如範例中 1的有7個、2的有5個、3的有6個、4的為0個 {1個的印0}
#include <iostream>
using namespace std;
int di[]={-1,1,0,0};
int dj[]={0,0,-1,1};
int a[30][30];
int A,B , cnt;
void dfs(int i, int j, int h)
{
a[i][j]=0; ++cnt; // 設為0表示已走過 計數 +1
for(int d=0; d<4; ++d) //上下...
a982迷宮問題(VB版)
Dim n As Integer ' n x n 方形
Dim a(100, 100) As Integer '假設最大為 100x100
Private Sub Form1_Load( ． ． ． ) Handles MyBase.Load
FileOpen(1, "in.txt", OpenMode.Input)
FileOpen(3, "out.txt", OpenMode.Output)
...
a982迷宮問題(C++版)
/*
a982 迷宮問題
*/
#include <iostream>
using namespace std;
const int MaxN = 100;
const int MaxQ = 200;
int main(void)
{
int n,i,j;
int x,y,h;
string s[MaxN];
int qh[MaxQ], qy[MaxQ] , qx[MaxQ];
int p , r ; // 頭...
C129 油田數(VB版)
Dim n As Integer, m As Integer 'n列 x m格
Dim a(100, 100) As Integer '假設最大為 100x100
Private Sub Form1_Load( ． ． ．) Handles MyBase.Load
FileOpen(1, "in.txt", OpenMode.Input)
FileOpen(3, "out.txt", OpenMode.Output)
...
C129 油田數(c++)
// c129 有幾處油田，另加印最大處的數量
#include <iostream>
using namespace std;
int di[]={-1,1,0,0,-1,1,-1,1}; //上,下,左,右,左上,左下,右上,右下
int dj[]={0,0,-1,1,-1,-1,1,1};
char a[100][101];
int m,n , cnt;
void dfs(int i, int j)
{
a[i][j]='*'; ++cnt;
// cout <<cnt<<'*' << i <<',' << j << end...
2016年7月20日 星期三
dfs-1 (C++參考)
/*
dfs-1 A,B 水窪數及最大窪值
*/
#include <iostream>
using namespace std;
const int MaxN = 100;
int a[MaxN][MaxN] , m, n;
int dr[]={-1,1,0,0}; //列位移值： 上下左右
int dc[]={0,0,-1,1}; //行位移值： 上下...
dfs-1(vb版參考)
程式碼：
Dim a(100, 100) As Integer
Dim m As Integer, n As Integer
Private Sub Form1_Load( ．．． ) Handles MyBase.Load
FileOpen(1, "in1.txt", OpenMode.Input)
FileOpen(2, "in2.txt", OpenMode.Input)
FileOpen(3, "out.txt", OpenMode.Output)
For fn =...
DFS應用-1
DFS應用-1： (A)有幾處水窪?上下左右算連通 (B)最大一處有多大{1個數數}?
(C,D)改成類似踩地雷(八方)算連通
0
1
2
3
4
5
6
0
1
2
3
4
5
6
0
1
2
3
4
5
6
7
0
1
1
1
0
1
1
1
1
0
1
1
1
...
發表文章
