Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.04.2009, 19:09   #1
Shevali
Пользователь
 
Регистрация: 09.03.2009
Сообщений: 49
По умолчанию Как задать треугольник?

Подскажите, как задать в Паскале треугольник.
А то в учебнике показаны как рисовать только круг, линию, точку и прямоугольник.
И можно ли рисовать неправильные прямоугольники (например, трапецию или ромб)?
Спасибо.
Shevali вне форума Ответить с цитированием
Старый 06.04.2009, 19:13   #2
Levsha100
Заблокирован
Старожил
 
Регистрация: 20.07.2008
Сообщений: 4,033
По умолчанию

Последовательно соединяйте точки(MoveTo;LineTo), а потом если надо заливайте, примеры есть в хелпе.
Levsha100 вне форума Ответить с цитированием
Старый 06.04.2009, 19:19   #3
OCTAGRAM
Oldschool geek
Форумчанин
 
Аватар для OCTAGRAM
 
Регистрация: 09.03.2009
Сообщений: 611
По умолчанию

Есть DrawPoly и FillPoly.
Как ими пользоваться, можно посмотреть исходник DOM.PAS.
If you want to get to the top, you have to start at the bottom

http://pascal.net.ru/
OCTAGRAM вне форума Ответить с цитированием
Старый 06.04.2009, 19:50   #4
Shevali
Пользователь
 
Регистрация: 09.03.2009
Сообщений: 49
По умолчанию Как задать треугольник?

Понимаете, ещё месяц не прошёл, как я впервые открыл учебник по Паскалю, а раздел графика начал изучать несколько дней назад (да и то по вечерам). Поэтому нельзя ли чуть проще, приведите пример, хотя бы строку, где задаётся этот самый треугольник. (вот например, прямоугольник задаётся rectangle(x,y,z,f)). А как треугольник?

Последний раз редактировалось Shevali; 06.04.2009 в 20:01.
Shevali вне форума Ответить с цитированием
Старый 07.04.2009, 01:01   #5
OCTAGRAM
Oldschool geek
Форумчанин
 
Аватар для OCTAGRAM
 
Регистрация: 09.03.2009
Сообщений: 611
По умолчанию

Например, использование DrawPoly выглядит так:
Код:
procedure DrawTriangle(X1, Y1, X2, Y2, X3, Y3 : Integer);
var Points: array[1 .. 8] of Integer;
begin
  Points[1] := X1;
  Points[2] := Y1;
  Points[3] := X2;
  Points[4] := Y2;
  Points[5] := X3;
  Points[6] := Y3;
  Points[7] := X1;
  Points[8] := Y1;
  DrawPoly(4, Points);
end;
аналогично FillPoly
If you want to get to the top, you have to start at the bottom

http://pascal.net.ru/
OCTAGRAM вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как задать рекурсией? Irdis Фриланс 4 11.02.2010 02:01
как задать атрибуты папки Alex_09 Общие вопросы Delphi 2 20.03.2009 18:29
как задать сортировку по убыванию? Барби Помощь студентам 3 08.10.2008 13:42
Как задать множество 1234 Паскаль, Turbo Pascal, PascalABC.NET 7 25.05.2008 16:15
Как задать прозрачность формы dimfil Общие вопросы Delphi 2 09.11.2007 09:53