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

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

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

> Соединить точки на плоскости ломаной, (переименовано)
CormiX
сообщение 27.12.2009 9:50
Сообщение #1


Новичок
*

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

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


Всем доброго времени суток. На практической я имел возможность ознакомиться вот с такой задачкой:
Задано N точек на плоскости. Вычислить (N-1) не замкнутую ломаную кривую, которая проходит через все эти точки и не пересекает себя. Соседние отрезки ломаной могуть лежать на одной прямой.

Буду очень признателен, если поможете решыть задачку. И если вас не затруднит то напишыте кодом Turbo Pascal. Зарание спасибо!

М
Ну при чем тут многострадальный массив?? Хватит уже все валить на него.. В следующий раз вдумчивее подходи к названию темы.
Переименовано. Lapp

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
CormiX
сообщение 27.12.2009 13:59
Сообщение #2


Новичок
*

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

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


Я продвинулся до этого:

const n=100;
var a:array[1..n] of real;
i,j:integer;
begin
write('i=');
readln(i);
write('j=');
readln(j);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
for j:=1 to n do
write('a[',j,']=');
readln(a[j]);
end;

Так? Ктонить отзовитесь!)

Сообщение отредактировано: CormiX - 27.12.2009 16:06
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
CormiX   Соединить точки на плоскости ломаной   27.12.2009 9:50
Lapp   Упорядочи их по возрастанию одной какой-то координ...   27.12.2009 10:09
andriano   Пока читал первый пост, естественно, пришел в голо...   27.12.2009 10:36
CormiX   У меня практическая по массивам, и там была эта за...   27.12.2009 11:11
Lapp   У меня практическая по массивам, и там была эта за...   27.12.2009 12:17
andriano   Да, массив - наиболее подходящая структура данных ...   27.12.2009 12:00
CormiX   const n=100; var a:array[1..n] of real; i:integer...   27.12.2009 12:20
Lapp   только вот не знаю что дальше)Уже хорошо! Те...   27.12.2009 12:23
CormiX   Нужно чтоб я сам вводил числа. ... write('n:=...   27.12.2009 12:30
andriano   i у тебя целая переменная, используемая в качестве...   27.12.2009 12:52
CormiX   Запутался я чето) Ну следуйщий шаг надо записать ч...   27.12.2009 13:08
andriano   В принципе верно, только почему у тебя цикл проход...   27.12.2009 13:28
CormiX   А у меня в задании ломаная N-1, ето не то?)   27.12.2009 13:37
andriano   Если речь идет о НЕЗАМКНУТОЙ ломаной, то между n т...   27.12.2009 13:54
CormiX   Я продвинулся до этого: const n=100; var a:array[...   27.12.2009 13:59
Lapp   Так? Ктонить отзовитесь!) Не так.. Ответь на в...   27.12.2009 16:56
andriano   А теперь объясни, для чего нужна каждая строчка.   27.12.2009 16:44
CormiX   const n=100; задаем N v...   27.12.2009 16:53
Lapp   Попробуй разобраться. const m=100; ...   27.12.2009 17:02
CormiX   Я думал i,j это обозначение точки массива, но он л...   27.12.2009 17:01
CormiX   const m=100; // задаем мак...   27.12.2009 17:06
Lapp   ето вся программа?Это только подготовка данных.. ...   27.12.2009 17:09
CormiX   Я вот не понимаю что значит соеденить точки....В п...   27.12.2009 17:21
Lapp   Я вот не понимаю что значит соеденить точки....В п...   27.12.2009 17:43
CormiX   Спасибо, имею ввиду что именно кодом не знаю как о...   27.12.2009 17:54
Lapp   Спасибо, имею ввиду что именно кодом не знаю как о...   27.12.2009 17:57
CormiX   Хм....Пасибо!)   27.12.2009 17:59
Lapp   Хм....Пасибо!) Теперь понятно, что делать? 1....   27.12.2009 18:09


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

 



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