СРОЧНО!!!!!! PHASCAL! В текстовом файле в каждой строчке записаны 2 числа - координаты...

Question

СРОЧНО!!!!!! PHASCAL!

В текстовом файле в каждой строчке записаны 2 числа - координаты точек стандартного графического окна (x,y) (число строк в файле может быть любым). Программа должна соединить точки, заданные указанными координатами в замкнутый контур черными линиями.
Затем в каждой из этих точек нарисовать фигуру (радиус окружности равен 10, а центр фигуры совпадает с координатами точки). Если координаты точек заданы так, что хотя бы одна фигура выходит за пределы графического окна, тогда ничего кроме сообщения об ошибке не выводиться!

Answer 1

uses
  GraphABC;

var
  x, y: integer;
  s: array of string;
  b: GraphABC.Point;

begin
  s := System.IO.File.ReadAllLines('in.txt');
  foreach a: string in s do
  begin
    X := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[0]);
    Y := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[1]);
    if not (b.IsEmpty) then
      GraphABC.LineTo(X, Y)
    else
    begin
      GraphABC.MoveTo(X, Y);
      b := new Point(x, y);
    end;
    DrawCircle(x, y, 10);
  end;
  LineTo(b.X, b.Y);
end.
==================================
Код, конечно, вырвиглазный, зато работает и прочитать его относительно легко:)
==================================
Содержимое файла in.txt (для теста)

(50; 50)
(90; 50)
(90; 90)
(50; 90)

Comments

а там токо 3 линии, если 3 точки - то что бы замкнулось надо 4 линии)

---

А куда четвёртая линия? О_О В третье измерение? х)

---

нет, от 1 точки к 3 сразу, ты посмотри программу и все сам поймешь

---

просто должен получиться замкнутый трехугольник по тем точкам, которые внутри файла Five.txt или in.txt в твоем случе

---

А, так у меня так и было

---

Предпоследняя строка
LineTo(b.X, b.Y);

---

ааа, лишнее удалил

---

ну слушай, прямо готов руку пожать) спасибо!

---

Чем могу)

---

:3