Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: Помогите чем можите:-) Добавлено: 03.05.06 22:57  

Автор вопроса:  Дмитрий | Web-сайт: - | ICQ: 292-134-884 
Люди добрые такая запара незнаю вижуал а надо сделать вто такое- Определить, лежит ли заданная точка на одной из стороне треугольника, заданного координатами своих вершин. математически та я это рашил там все легко, а вот как это теперя спрограммировать ненаю (ваще не наю что писать) помогите пожалуйста:) еси кто в Магадане живет то отблагодарю!:)

Ответить

  Ответы Всего ответов: 22  

Номер ответа: 1
Автор ответа:
 Nj



ICQ: 223663115 

Вопросов: 21
Ответов: 285
 Профиль | | #1 Добавлено: 03.05.06 23:09
Напиши математическое решение, попробую помочь с бэйсиком, если кто еще не поможет (я как раз геометрию не знаю)

Ответить

Номер ответа: 2
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #2 Добавлено: 04.05.06 17:20
тю.. если математически решил, какие проблемы?
ну треугольник 3 точки
a,b,c...

заданная точка - ещё 2 точки
px,py...

подставляешь свою формулу, вычисляешь...
Ну и/или сходи на http://algolist.manual.ru/
по форуму у них пошарся...

Ответить

Номер ответа: 3
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #3
Добавлено: 05.05.06 15:31
проблема в том что я не умею програмировать я каманды ваще не наю:(

Ответить

Номер ответа: 4
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #4
Добавлено: 05.05.06 15:38
и на http://algolist.manual.ru/ там на С++ а я ваще его не предстовляю:(

Ответить

Номер ответа: 5
Автор ответа:
 Nj



ICQ: 223663115 

Вопросов: 21
Ответов: 285
 Профиль | | #5 Добавлено: 05.05.06 20:24
Определить, лежит ли заданная точка M(x1;y1) на одной из стороне
треугольника, заданного координатами своих вершин: . A(a1;a2), B(b1;b2),
C(c1;c2).

If (x1-a1)/(b1-a1) = (y1-a2)/(b2-a2) or (x1-c1)/(b1-c1) = (y1-c2)/(b2-c2) or
(x1-a1)/(c1-a1) = (y1-a2)/(c2-a2) then
'Лежит
Else
'Не лежит
End if

Можно и без Else и End if если после проверки нужно выпонять только один
оператор. Тогда все в одну строку.

Ответить

Номер ответа: 6
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #6
Добавлено: 06.05.06 14:52
БОЛЬШОЕ СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!

Ответить

Номер ответа: 7
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #7 Добавлено: 06.05.06 18:01
проблема в том что я не умею програмировать я каманды ваще не наю:(

или нехочешь знать...
Основы басика учаться с пол часа, как и хтмл например

всё что тебе надо
cls
print
screen
if (or/and)...else
+ типы переменных

учись :/

Ответить

Номер ответа: 8
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #8
Добавлено: 09.05.06 18:20
ну как сдесь мона учится:)) мне вот человек подсказал типа напиши вот это If (x1-a1)/(b1-a1) = (y1-a2)/(b2-a2) or (x1-c1)/(b1-c1) = (y1-c2)/(b2-c2) or
(x1-a1)/(c1-a1) = (y1-a2)/(c2-a2) then
‘Лежит
Else
‘Не лежит
End if
а я даже не предстовляю куда это написать чтоб заработало уже всюду тыкал и не как:((

Ответить

Номер ответа: 9
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #9 Добавлено: 09.05.06 18:55
начни с QuickBasic

найди его в инете, скачай...

запускай...

ото там и пиши...

cls
input "Введите X1 ", x1
input "Введите X2 ", x2
... так все переменные которые изместны...

потом тебе подсказали...
If (x1-a1)/(b1-a1) = (y1-a2)/(b2-a2) or (x1-c1)/(b1-c1) = (y1-c2)/(b2-c2) or
(x1-a1)/(c1-a1) = (y1-a2)/(c2-a2) then

безсмысленно тыкать... ну можно... но ненужно...
вдумайся, разберись - ничего сложного...

если (ответ выражения) равно (ответу выражения)
IF (x1-a1)/(b1-a1) = (y1-a2)/(b2-a2)



ИЛИ (ответ выражения) равно (ответу выражения)
OR (x1-c1)/(b1-c1) = (y1-c2)/(b2-c2)


ИЛИ (ответ выражения) равно (ответу выражения)
OR (x1-a1)/(c1-a1) = (y1-a2)/(c2-a2)...

THEN
Тогда... "‘Лежит "

PRINT "Лежит"

ELSE '< Иначе

PRINT "Не лежит"

End if '<< Был IF значит надо показать его конец - END IF

Так!!! Не ржать :))) Меня так тоже лет 6-7 назад учили! ))))





Ответить

Номер ответа: 10
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #10
Добавлено: 09.05.06 19:30
оооо пасиба тебе большое вот это описание как раз для меня:) тока еще один вопрос после then что писать? тогда слово не напишеш же, или просто я опять не понимаю:) и подскажите где скачать хорошую книгу для таких как я :)

Ответить

Номер ответа: 11
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #11
Добавлено: 09.05.06 19:36
а и еще в qbasice не пишет на русском так и должнобыть?

Ответить

Номер ответа: 12
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #12
Добавлено: 09.05.06 19:54
а что такое Division by zero?

Ответить

Номер ответа: 13
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #13
Добавлено: 09.05.06 19:57
а это типа деление на ноль возможно:) русская справка это куль:)

Ответить

Номер ответа: 14
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #14
Добавлено: 09.05.06 20:01
а почему он на это залупается тама не на ноль деление а на отрицательные числа??????

Ответить

Номер ответа: 15
Автор ответа:
 Дмитрий



ICQ: 292-134-884 

Вопросов: 1
Ответов: 12
 Web-сайт: -
 Профиль | | #15
Добавлено: 09.05.06 20:43
я написал вот так вот:
CLS
INPUT "Vvedite x1-" x1
INPUT "Vvedite y1-" y1
INPUT "Vvedite a1-" a1
INPUT "Vvedite a2-" a1
INPUT "Vvedite b1-" b1
INPUT "Vvedite b2-" b2
INPUT "Vvedite c1-" c1
INPUT "Vvedite c2-" c2
If (x1-a1)/(b1-a1) = (y1-a2)/(b2-a2) or (x1-c1)/(b1-c1) = (y1-c2)/(b2-c2) or (x1-a1)/(c1-a1) = (y1-a2)/(c2-a2) then
PRINT "es"
ELSE
PRINT "no"
end if
а она мне пишет что возможно деление на ноль как быть?:((

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам