姓名:楊健專業:電氣工程及其自動化 學號:15050341036 求出二維陣列中m*n的鞍點
一、實驗目的：
1．掌握陣列的宣告和陣列元素的引用
2．掌握定長陣列和動態陣列的使用
3．掌握陣列的基本操作演算法
4．掌握過程的定義和呼叫
二、實驗內容
找乙個n*m的二維陣列的「鞍點」。「鞍點」是指它在本行中數值最大，在本列中數值最小。也可能在乙個陣列中找不到鞍點。輸出鞍點的行、列號，如無鞍點則輸出「無鞍點」。
三、實驗步驟
開啟vb，在左側選中commondbutton鍵，在右側空白區域選中，出現commond1鈕，雙擊它，在其中輸入以下內容
option base 1
private sub form_click()
clsdim a() as integer, i as integer, j as integer
dim maxvr as integer, col as integer, find as boolean
n = inputbox("請輸入矩陣行數：")
m = inputbox("請輸入矩陣列數：")
redim a(n, m)
print n &"*"& m &"矩陣"
for i = 1 to n
for j = 1 to m
a(i, j) = int(rnd * 9) + 1
print a(i, j);
next j
next i
for i = 1 to n
maxvr = a(i, 1): col = 1
for j = 2 to m
if maxvr < a(i, j) then
maxvr = a(i, j): col = j
end if
next j
for j = 1 to n
if maxvr > a(j, col) then exit for
next j
if j > n then
print "存在鞍點a("& i &","& col &")="& a(i, col)
find = true
end if
next i
if not find then print "鞍點元素不存在"
end sub
四、實驗感想
1、在語句開頭需加「cls」
原因：結果有鞍點的概率較低，多鞍幾次按鈕才可能出現一次有鞍點的情況。
二維陣列求鞍點
題目內容 給定乙個n n矩陣a。矩陣a的鞍點是乙個位置 i，j 在該位置上的元素是第i行上的最大數，第j列上的最小數。乙個矩陣a也可能沒有鞍點。你的任務是找出a的鞍點。輸入格式 輸入的第1行是乙個正整數n,1 n 100 然後有n行，每一行有n個整數，同一行上兩個整數之間有乙個或多個空格。輸出格式 ...
求二維陣列中的鞍點 陣列
如果矩陣a中存在這樣的乙個元素a i,j 滿足條件 a i,j 是第i行中值最小的元素,且又是第j列中值最大的元素，則稱之為該矩陣的乙個馬鞍點。請程式設計計算出m n的矩陣a的所有馬鞍點。輸入m,n 然後輸入陣列中的每個元素 輸出m n的矩陣a的所有馬鞍點 3 3 1 7 3 5 4 6 17 18...
Problem N 求二維陣列中的鞍點 陣列
time limit 1 sec memory limit 128 mb submit 2764 solved 1728 submit status web board 如果矩陣a中存在這樣的乙個元素a i,j 滿足條件 a i,j 是第i行中值最小的元素,且又是第j列中值最大的元素，則稱之為該矩陣...