Доброго времени.
Нужна помощ', гугл осмотрен, сделаны десяток попыток, но все равно не то(
Буду сил'но благодарен!
Заданы координаты вершин, нужно определит' площад' части прямоугол'ника в 1 четверти
Вот одна из моих последних попыток, однако все равно не то,, буду благодарен за помощ'.
Нужна помощ', гугл осмотрен, сделаны десяток попыток, но все равно не то(
Буду сил'но благодарен!
Заданы координаты вершин, нужно определит' площад' части прямоугол'ника в 1 четверти
Вот одна из моих последних попыток, однако все равно не то,, буду благодарен за помощ'.
Код |
---|
Sub Zadanie() Dim x1, x2, x3, x4, y1, y2, y3, y4, z As Integer 'Задаем тип данных переменным x1 = Val(InputBox("Введите x1")) 'Ввод значния переменной x1 y1 = Val(InputBox("Введите y1")) 'Ввод значния переменной y1 x2 = Val(InputBox("Введите x2")) 'Ввод значния переменной x2 y2 = Val(InputBox("Введите y2")) 'Ввод значния переменной y2 x3 = Val(InputBox("Введите x3")) 'Ввод значния переменной x3 y3 = Val(InputBox("Введите y3")) 'Ввод значния переменной y3 x4 = Val(InputBox("Введите x4")) 'Ввод значния переменной x4 y4 = Val(InputBox("Введите y4")) 'Ввод значния переменной y4 If ((x1 = x2) And (y1 = y4) And (y2 = y3) And (x3 = x4)) Then If ((x1 > 0) And (y1 > 0) And (x2 > 0) And (y2 < 0) And (x3 < 0) And (y3 < 0) And (x4 < 0) And (y4 > 0)) Then z = x1 * y1 If ((x1 > 0) And (y1 > 0) And (x2 > 0) And (y2 > 0) And (x3 < 0) And (y3 < 0) And (x4 < 0) And (y4 > 0)) Then z = Abs((x1 * y1) - (x1 * y2)) If ((x1 > 0) And (y1 > 0) And (x2 > 0) And (y2 > 0) And (x3 > 0) And (y3 > 0) And (x4 > 0) And (y4 > 0)) Then z = Abs((x1 * y1) - (x4 * y4) - (x2 * y2) + (x3 * y3)) End If MsgBox ("z = " & z) End Sub |