|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2008, 20:02 | #1 |
Регистрация: 24.05.2008
Сообщений: 4
|
загвоздка... программа построения треугольника
не получается вывести на форму в PaintBox треугольник, задав вершины
с клавы(edit.text) через Polygon. Выводит,зараза, одну линию. procedure TForm1.PaintBox1Paint(Sender: TObject); var r,a:integer; p: array[1..3] of TPoint; // координаты точек begin p[1].X := strtoint(ex1.text); // 10 p[1].Y := strtoint(ey1.text);// 10 p[2].X := strtoint(ex2.text);// 60 p[2].Y := strtoint(ey2.text);// 60 p[3].X := strtoint(ex3.text);// 110 p[3].Y := strtoint(ey3.text);// 110 PaintBox1.Canvas.Brush.Color := clGreen; PaintBox1.Canvas.Polygon(p); end; если не трудно, подскажите как решить задачу |
24.05.2008, 20:09 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
У тебя точки на одной линии.
Последний раз редактировалось puporev; 24.05.2008 в 20:13. |
24.05.2008, 20:17 | #3 |
Форумчанин
Регистрация: 23.05.2008
Сообщений: 219
|
Попробуй вставить после инициализации масива точек такой код:
Код:
The Revolution is Now!
|
24.05.2008, 20:31 | #4 |
Регистрация: 24.05.2008
Сообщений: 4
|
неа, точки не на одной линии.
если ввести х2=260,у2=260 он не будет рисовать , а лишь продлит линию. |
24.05.2008, 20:34 | #5 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Так 260 и 260 на той же линии. Ты на бумажке нарисуй свои координаты, если в уме считать не умеешь.
|
24.05.2008, 20:43 | #6 |
Форумчанин
Регистрация: 23.05.2008
Сообщений: 219
|
Проблема ясна. Как можно вывести треугольник, если все точки лежат на одной линии. Тебе нужно не три едита, а шесть.
Короче: вот те код, разбирайся. У меня работает Код:
The Revolution is Now!
|
24.05.2008, 20:43 | #7 |
Регистрация: 24.05.2008
Сообщений: 4
|
sorry и в правду ,спс
|
24.05.2008, 20:45 | #8 |
Регистрация: 24.05.2008
Сообщений: 4
|
уже нашел ошибку, но все равно спасибо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа построения графика | KpeHDeJIb | Помощь студентам | 3 | 07.07.2008 08:05 |
ассемблер. Написать функцию, вычисляющую по заданным точкам а,b,c площадь треугольника abс. | qimbo | Помощь студентам | 5 | 05.01.2008 13:54 |
Загвоздка с задачей на VBA | Versifikator | Помощь студентам | 3 | 05.12.2007 22:05 |
Прога для построения сечений | D1_ma | Помощь студентам | 5 | 11.09.2007 16:23 |