Числа. Точки на плоскости., N точек на плоскости, перестановки N чис Опции

[zetsokol]

Вот дали задачи на контрольную. Помогите кто чем может.

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

2.Построить алгоритм, выдающий без повторений все перестановки N чисел.

[Altair]

2. генерация всех перестановок элементов
отуда:

{ программа генерации перестановок N элементного 
  множества в лексикографическом порядке }

Program perms;
var i,j,h,n,k:integer;
    a:array[0..100] of integer;    { массив для хранения перестановки }

{процедура вывода полученной перестановки}
procedure output;
var i:integer;
begin
  writeln;
  for i:=1 to n do write(a[i],' ');
end;

begin
  readln(n);                      { ввод кол-ва элементов перестановки }
  fillchar(a,sizeof(a),0);        { инициализация массива }

 { ввод элементов начальной перестановки }
  for i:=1 to n do a[i]:=i;

  repeat
    output;                         { ввод текущей перестановки }
    i:=n;
    while a[i-1]>a[i] do dec(i);	 { поиск скачка }
    j:=i-1;
    h:=a[j];
    while a[i+1]>h do inc(i); 	{ поиск первого меньшего элемента }
    a[j]:=a[i];  a[i]:=h;
    i:=j+1; k:=n;
    while i<k do begin             { перестановка ”хвоста” }
       h:=a[i]; a[i]:=a[k]; a[k]:=h;
       inc(i); dec(k)               
    end
  until j=0;                        {}
end.