IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> ООП и решение комп-х задач
Needhelp
сообщение 27.05.2007 15:21
Сообщение #1


Живет здесь...
**

Группа: Пользователи
Сообщений: 69
Пол: Мужской

Репутация: -  0  +


На плоскости заданы множество точек A и точка вне его. Подсчитать количество (неупорядоченных) различных троек точек из A таких, что четырехугольник является параллелограммом.

Проверку вот такую написал....

 
IF(((X2-X1 = X4-X3) AND (Y2-Y1 = Y4-Y3)) /* A1A2 = A3A4 */
OR ((X2-X1 = X3-X4) AND (Y2-Y1 = Y3-Y4)) /* A1A2 = A4A3 */
OR ((X3-X1 = X4-X2) AND (Y3-Y1 = Y4-Y2)) /* A1A3 = A2A4 */
OR ((X3-X1 = X2-X4) AND (Y3-Y1 = Y2-Y4)) /* A1A3 = A4A3 */
OR ((X4-X1 = X3-X2) AND (Y4-Y1 = Y3-Y2)) /* A1A4 = A2A3 */
OR ((X4-X1 = X2-X3) AND (Y4-Y1 = Y2-Y3)))/* A1A4 = A3A2 */
) THEN /* это параллелограмм */



Вопросы такие....
Как проверить все точки множества (A), перебрать их все? (допустим множество будет в текстовом файле...в задании не оговорено)

Не много странный вопрос... Само задание по теме ООП и решение комплексных задач... А решение вроде бы получается без ООП...

Спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Needhelp   ООП и решение комп-х задач   27.05.2007 15:21
мисс_граффити   1. Перебор... вопрос в том, как задаются точки.. д...   27.05.2007 15:30
Needhelp   На счет множества это МТ (математический термин) ...   27.05.2007 15:41
мисс_граффити   тогда я бы посоветовала не заморачиваться с файлам...   27.05.2007 16:21
Needhelp   Спасибо=) :) Попробую)   27.05.2007 16:59
Needhelp   const n=3; Y4=0; X4=1; type mas=array[1..2,1..n]...   27.05.2007 19:15
мисс_граффити   IF (((X2-X1 = X4-X3) AND (Y2-Y1 = Y4-Y3)) OR ((X2-...   27.05.2007 19:34
Needhelp   Ответ ->0 Так тоже не хочет((   27.05.2007 19:46
мисс_граффити   по два раза одно и то же написал :) по самой прог...   27.05.2007 19:50
Needhelp   При вводе тех значений X1 -> 2, X2->2, X3-...   27.05.2007 20:15
мисс_граффити   Да. но у тебя я ни одной вложенности не увидела. ...   27.05.2007 20:36
Needhelp   Правда...правда... Скажи пожайлуста, что у меня т...   27.05.2007 21:01
мисс_граффити   У тебя к циклу относится только Y1:=A[i,j]; все о...   27.05.2007 22:04
Needhelp   У тебя к циклу относится только Y1:=A[i,j]; все ...   27.05.2007 22:31


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.06.2025 7:03
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"