二维数组m*n的鞍点
来源:互联网 发布:php 项目任务管理系统 编辑:程序博客网 时间:2024/06/05 04:53
Option Base 1
Dim anma() As Integer
Dim m As Byte, n As Byte
Private Sub Command1_Click()
Cls
Me.Font.Size = 30
m = 5: n = 6
ReDim anma(m, n)
Dim i As Byte, j As Byte
For i = 1 To m
For j = 1 To n
anma(i, j) = 10 + Int(Rnd * 90)
Next j
Print
Next i
For i = 1 To m
For j = 1 To n
Print anma(i, j); Space(3);
Next j
Print
Next i
Dim row_max As Integer, column_max As Byte
Dim k As Byte
For i = 1 To m
row_max = anma(i, 1)
column_max = 1
For j = 2 To n
If anma(i, j) > row_max Then
row_max = anma(i, j)
column_max = j
End If
Next j
For k = 1 To m
If anma(k, column_max) < row_max Then
Exit For
End If
Next k
If k = m + 1 Then
Print "鞍点:" & i & "," & column_max
End If
Next i
End Sub
实验心得
如果k<m,无鞍点;k>m+1,有鞍点
- 二维数组m*n的鞍点
- 二维数组m*n的鞍点
- 二维数组m*n的鞍点
- 求出二维数组中m*n的鞍点
- 找出二维数组 n*m中的“鞍点”
- 二位数组m*n的鞍点
- VB实验报告“找出二维数组n×m中的鞍点”
- 二维数组的鞍点
- 二维数组的鞍点
- 求二维数组的鞍点
- 求二维数组的鞍点
- 找出二维数组的鞍点
- 求二维数组的鞍点
- 查找二维数组的鞍点
- 找出一个二维数组里的鞍点
- 二维数组的鞍点问题(c++)
- 二维数组的“鞍点”(C语言)
- java实现求二维数组的鞍点
- Linux crontab任务计划服务
- bind参数绑定
- Django -model的字段类型清单
- iOS开发Tap点击的区域问题。
- Beyond Compare复制文件的几种方式
- 二维数组m*n的鞍点
- 【Oracle】PLSQL Developer如何连接Oracle
- opencv寻找轮廓
- Android中的对话框
- 学习随笔
- UI Design
- 使用RxBinding响应控件的异步事件
- Android开发之自定义View --详解
- 在下拉列表Spinner中添加自定义文字和图标的方法。