Родились сегодня:
AnnaTar


Лидеры рейтинга

ID: 405049

vsetin

Студент

2659


ID: 401284

Михаил Александров

Советник

911

Россия, Санкт-Петербург


ID: 226425

Konstantin Shvetski

Модератор

646

Россия, Северодвинск


ID: 400669

epimkin

Профессионал

388


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

380

Россия, пос. Теплоозёрск, ЕАО


ID: 325460

CradleA

Мастер-Эксперт

299

Беларусь, Минск


ID: 137394

Megaloman

Мастер-Эксперт

262

Беларусь, Гомель


8.9.0

20.06.2021

JS: 2.9.2
CSS: 4.5.10
jQuery: 3.6.0
DataForLocalStorage: 2021-06-24 14:46:01-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 159993

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Цуба Андрей Федорович
Дата: 09.02.2009, 12:11 Консультация закрыта
Поступило ответов: 1

Помогите нарисовать треугольник через процедуру,с помощью одного оператора, вот например я написал
uses graph,graphhelp;
begin;
opengraph;
treug(120,240,240,350,350,120);
readln;
closegraph;
end.?
Где:treug-новый оператор, а graphhelp-новый модуль))))
Но теперь мне надо написать ее через процедурую Помогите плиз)))

Ответ # 243237 от Шевченко Дмитрий
Здравствуйте, Цуба Андрей Федорович!

Не очень понял, что же Вам надо - то ли просто написать процедуру для рисования треугольника, то ли написать модуль graphhelp, чтобы Ваш код работал, поэтому сделал и то и другое - смотрите код в приложении.
Если что не понятно - обращайтесь в аську(пишите, что вы с RusFAQ), или в личку.

С уважением, Дмитрий.

Приложение:


Шевченко Дмитрий

Посетитель
09.02.2009, 12:54
Мини-форум консультации # 159993

q_id

Зенченко Константин Николаевич

Старший модератор

ID: 31795

1

= общий =    09.02.2009, 12:25

DrawPoly (процедура) (модуль Graph)
Рисует контур многоугольника, используя текущий цвет и тип линии.

Объявление: Procedure DrawPoly(NumPoints : Word; Var PolyPoints);
Режим:Real, Protected
Замечания: Параметр NumPoints определяет число элементов в параметре PolyPoints. Каждый элемент состоит из двух значений - X и Y. Заметьте, что для рисования замкнутой фигуры с N гранями, в параметре PolyPoints должно содержаться N+1 компонентов (координаты начальной и конечной точек должны совпадать).
Ограничения:Нужно быть в графическом режиме.

хелп паскаля

И ещё пример от туда:
Код
{Drawpoly.PAS}
{ Пример программы для процедуры Drawpoly }
Uses Graph;
Const Triangle : Array [1..4] Of PointType = ((X: 50; Y: 100),
                                              (X: 100; Y:100),
                                              (X: 150; Y: 150),
                                              (X:  50; Y: 100));
Var Gd, Gm : Integer;
Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, 'C:\BP\BGI'); { Путь к BGI драйверам }
 If GraphResult <> grOk Then Halt(1);
 DrawPoly(SizeOf(Triangle) Div SizeOf(PointType), Triangle);
 ReadLn;
 CloseGraph;
End.

=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile

Micren

2

= общий =    09.02.2009, 12:43

Она и так написана через процедуру. Treug() это же процедура и есть.

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 133

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 99

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 1

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0

lamed

Академик

Рейтинг: 0