Как узнать, является ли данный четырехугольник параллелограммом - VB
Формулировка задачи:
не могу составить код,помогите
1)Написать алгоритм и программу проверки, является ли данный четырехугольник параллелограммом
Решение задачи: «Как узнать, является ли данный четырехугольник параллелограммом»
textual
Листинг программы
Private Sub Command1_Click()
'Sub main()
Dim x(1 To 4) As Double
Dim x(1 To 4) As Double
Dim i As Long
For i = 1 To 4
x(i) = InputBox("Введите X" & i)
y(i) = InputBox("Введите Y" & i)
Next
If x(1) - x(2) = x(4) - x(3) And y(1) - y(2) = y(4) - y(3) Then
MsgBox "Это параллелограм"
Else
MsgBox "Это не параллелограм"
End If
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д