Вершины пирамиды Опции

[samec]

Доброе время суток всем. Проблемка такая: дано множество точек в пространстве. Каким образом можно проверить - будут ли эти точки являться вершинами пирамиды?

Добавлено через 4 мин.
понятно, что для существования пирамиды, необходимо, чтобы из n точек, n-1 лежало в одной плоскости, а одна точка была бы вне этой плоскости - но вот как выделить эту точку если такая существует?

Сообщение отредактировано: samec - 10.11.2008 23:47

[samec]

Спасибо большое!
Код хороший. Алгоритм я понял.
Что то мне подсказывает, что при количестве точек 5 (n=5) написанный код может не сработать.
Ведь если в первом проходе (Pass=1) в любую из точек попадает вершина, то вот в этом моменте:

    if m=0 then begin
      WriteLn('All points are in one plane');
      Exit
    end
    else if m=1 then begin
      if Pass=2 then begin
        Exchange(1,4);
        Exchange(2,5);
        Exchange(3,6);
        if i4<=6 then Dec(i4,3)
      end;
      Exchange(i30,3);
      if i4=i30 then i4:=3;
      WriteLn('The top is #',i4)
    end
    else if Pass=2 then WriteLn('Not a piramid')
    else begin
      Exchange(1,4);
      Exchange(2,5);
      Exchange(3,6)         { <- вот тут}
    end;

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

Сообщение отредактировано: samec - 12.11.2008 23:50

[Lapp]

Что то мне подсказывает, что при количестве точек 5 (n=5) написанный код может не сработать.

Да, верно, я планировал написать об этом в примечаниях, но забыл . То же самое для четырех.
Надо подумать, как исправить.