Программирование разветвляющихся алгоритмов

Дата: Суббота, 25.04.2015, 20:21 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Как с помощью макросов можно определить является ли четырехугольник ромбом?

Дата: Суббота, 25.04.2015, 20:30 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Каким образом задан четырёхугольник?
Приложите файл с примером в соответствии с Правилами форума

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

KuklP

Дата: Воскресенье, 26.04.2015, 03:10 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Проверить на равенство длин сторон. Если равны - в любом случае ромб.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Дата: Воскресенье, 26.04.2015, 07:48 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Пример есть для треугольника. Нужно тоже сделать но для четырех угольника. Чтоб программа определяла ромб это или параллелограмм.

К сообщению приложен файл: __.xlsm (18.2 Kb)

Дата: Воскресенье, 26.04.2015, 08:29 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Как вариант.
Хотя, по большому счёту, ромб - это тоже параллелограмм

К сообщению приложен файл: -1-.xlsm (21.3 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Дата: Воскресенье, 26.04.2015, 08:41 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Спасибо. А возможно ли то же самое сделать. Но с запросом на введение числа? Т.е. после запуска макроса, вылазиет окно с просьбой вбить сторону А, затем сторону Б, С, Д... И в конце выводит итог - четырех угольник не ромб(или ромб, параллелограмм и т.д.)

Дата: Воскресенье, 26.04.2015, 08:58 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

[vba]

Код

Private Sub CommandButton2_Click()
     Dim A&, B&, C&, D&
     A = InputBox("Введите сторону A")
     B = InputBox("Введите сторону B")
     C = InputBox("Введите сторону C")
     D = InputBox("Введите сторону D")
     If A = B And B = C And C = D And D = A Then
         MsgBox ("Это ромб")
     ElseIf A = C And B = D Then
         MsgBox ("Это параллелограмм")
     Else
         MsgBox ("Это не ромб и не параллелограмм")
     End If
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

ShAM

Дата: Воскресенье, 26.04.2015, 09:40 | Сообщение № 8

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Елена, здесь последняя проверка лишняя

[vba]

Код

If A = B And B = C And C = D And D = A Then

[/vba]
[p.s.]Там и с треугольником беда. Пишет: "Треугольник с размерами сторон 2, 1, 2 построить нельзя!"[/p.s.]

Дата: Воскресенье, 26.04.2015, 09:50 | Сообщение № 9

Группа: Админы

Ранг: Местный житель

Сообщений: 19197

Репутация: 4423 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата ShAM, 26.04.2015 в 09:40, в сообщении № 8

последняя проверка лишняя

Согласна)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816