Средства графики Borland Pascal

[Morrigan13]

Здравствуйте! У меня с графикой совсем плохо! А тут ККР скоро! Не успеваю совсем...
Задание:
Написать программу, которая выводит на экран ломаную линию, состоящую из 100 непересекающихся звеньев, окрашенных в разные цвета, выбираемые случайным образом, причем координаты звеньев тоже выбираются случайно. Толщина линии задается пользователем.

Помогите пожалуйста!

[Stilet]

Ну плохо то плохо, но идеи то какие-то есть?
Сам по себе код не сложный в цикле получить через random очередную координату и moveto отрисовать ее изменив цвет через SetColor

[puporev]

Порядок решения задачи такой:
Объявляешь тип Точка с двумя полями-координатами точки

type Tpoint=record
            x,y:integer;
            end;

В цикле присваиваешь всем 101 точкам случайные значения исходя из ширины и высоты экранного поля (обычно 640х480) не примыкая к краям

for i:=1 to 101 do
   begin
     p[i].x:=random(621)+10;
     p[i].y:=random(461)+10;
   end;

Далее сортируешь массив по по возрастанию координаты х любым известным вам способом, например "пузырьком"

for i:=1 to 100 do
for j:=1 to 100 do
if p[j].x>p[j+1].x then
   begin
     x:=p[j];p[j]:=p[j+1];p[j+1]:=x;
   end;

Инициализируешь графический режим, задаешь толщину линий, устанавливаешь курсор в первую точку

(moveto(p[1].x,p[1].y))

и в цикле от 1 до 101 присваиваешь

SetColor(random(15)+1);

рисуешь линии

LineTo(p[i].x,p[i].y);

Вот и все.

[Morrigan13]

Спасибо за помощь!=)