输入N个点的坐标,由程序判断该N个点是否能构成一个凸多边形.(VB)
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/13 03:02:44
输入N个点的坐标,由程序判断该N个点是否能构成一个凸多边形.(VB)
1
1
Private Sub Form_Click()
Dim l As Single
Dim m As Single
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim x As Single
Dim y As Single
a = InputBox("请输入任意一点横坐标")
b = InputBox("请输入同一点的纵坐标")
c = InputBox("请输入另外任意一横点")
d = InputBox("请输入同一点的纵坐标")
e = InputBox("请再输入任意一个不在前面两点组成线段上的点的横坐标")
f = InputBox("请再输入任意一个不在前面两点组成线段上的点的纵坐标")
x = (b - d) / (a - c) * e - f + b - (b - a) / (a - c) * a (判断点在直线什么方位)
If x > 0 Then
n = InputBox("请输入剩余点个数N(N>1)")
For i = 1 To n (循环判断点的方位)
m = InputBox("请输入横坐标值")
l = InputBox("请输入纵坐标值")
y = (b - d) / (a - c) * m - l + b - (b - a) / (a - c) * a
If y < 0 Then
Print "不能构成凸多边形"
End If
Next i
Print "能构成凸多边形"
Else
o = InputBox("请输入剩余点个数N(N>1)")
For i = 1 To o (循环判断点的方位)
q = InputBox("请输入横坐标值")
w = InputBox("请输入纵坐标值")
z = (b - d) / (a - c) * q - w + b - (b - a) / (a - c) * a (判断点的方位)
If z > 0 Then
Print "不能构成凸多边形"
End If
Next i
Print "能构成凸多边形"
End If
End Sub
代码亲测可用,自己制造的,为方面广大同学,不再用05年那个不能用的代码,特此发布,不足之处还请指教
Dim l As Single
Dim m As Single
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
Dim x As Single
Dim y As Single
a = InputBox("请输入任意一点横坐标")
b = InputBox("请输入同一点的纵坐标")
c = InputBox("请输入另外任意一横点")
d = InputBox("请输入同一点的纵坐标")
e = InputBox("请再输入任意一个不在前面两点组成线段上的点的横坐标")
f = InputBox("请再输入任意一个不在前面两点组成线段上的点的纵坐标")
x = (b - d) / (a - c) * e - f + b - (b - a) / (a - c) * a (判断点在直线什么方位)
If x > 0 Then
n = InputBox("请输入剩余点个数N(N>1)")
For i = 1 To n (循环判断点的方位)
m = InputBox("请输入横坐标值")
l = InputBox("请输入纵坐标值")
y = (b - d) / (a - c) * m - l + b - (b - a) / (a - c) * a
If y < 0 Then
Print "不能构成凸多边形"
End If
Next i
Print "能构成凸多边形"
Else
o = InputBox("请输入剩余点个数N(N>1)")
For i = 1 To o (循环判断点的方位)
q = InputBox("请输入横坐标值")
w = InputBox("请输入纵坐标值")
z = (b - d) / (a - c) * q - w + b - (b - a) / (a - c) * a (判断点的方位)
If z > 0 Then
Print "不能构成凸多边形"
End If
Next i
Print "能构成凸多边形"
End If
End Sub
代码亲测可用,自己制造的,为方面广大同学,不再用05年那个不能用的代码,特此发布,不足之处还请指教
编写java程序,输入两个实数x,y,用来代表一个点的坐标,判断该点是否在单位圆(半径为1.0的圆)上.
数学上怎么判断一些点是否构成凸多边形
C语言:输入一个正整数n,再输入n个正整数,判断它们是否为素数.
输入n个 数,求出它们的最大值,最小值和平均值?用VB怎么编写程序
C语言编程:由键盘输入一个点的坐标,判断这个点是否在单位圆内,在的话输出Y,否则输出N.
1 编写程序,输入3个整数,判断它们是否能够构成三角形,若能构成三角形,则输出三角形的类型(等边、等腰
写一个程序,内容为输入三个点的坐标,计算以这三个点为顶点的三角形面积,并判断该三角形类型(等边/等腰
计算n个电阻并联后的阻值(其中n的值由文本框输入,n个不同的阻值通过循环控制输入.电脑编程 vb 代码
VB编程,输入n个整数,求它们的最大公约数.
用do..while编写输入一个正整数n,再输入n个正整数,判断它们是否为素数
一个凸多边形,除一个内角,其余(n-1)个内角的和为2400度,则该多边形是几边形?
VB 编写程序,请用户输入一个自然数N,求前N个质数,并将其存放一个数组中