Соединить точки на плоскости ломаной, (переименовано) Опции

[CormiX]

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

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

М

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

[CormiX]

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

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

[Lapp]

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

Не так..
Ответь на вопрос andriano, плз. Или хотя бы объясни, зачем ты вводишь значения для переменных i и j.
Что ты хотел этим сказать? Они же затираются потом, как переменные циклов..
И зачем тебе два цикла? Вводи одно число (число точек), а потом в цикле вводи для каждой точки в цикле координаты x и y.