11.11.2012, 21:32 | #1 (permalink) |
Member
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Построение фигур и графиков функций, модуль graph
Две задачи, 1)На построение фигуры Постройте правильный шестиугольник со стороной а. Две стороны расположены горизонтально. 2)на построение графика Исследовав область определения и выбрав расположение координатных осей на экране и масштаб, постройте график функций: y=5x/(x2+3) |
11.11.2012, 21:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Интересно, вы уже просмотрели похожие темы или нет Использование библиотеки модуля GRAPH. Free Pascal Построение последовательности Компьютеры в виде фигур из Тетриса Построение блок-схемы Разработать ПО по управлению БД и ПО, производящее построение однотипных графиков |
11.11.2012, 22:03 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Uses Graph, CRT; Var X0,Y0,X,Y,R:Word; i:Byte; Begin InitGraph(..., ...); {Параметры инициализации графики задайте сами} SetLineStyle(SolidLn,0,ThickWidth); R:=GetMaxY div 2; X0:=GetMaxX div 2; Y0:=GetMaxY div 2; X:=X0+Round(R*Sin(Pi/6)); Y:=Y0-Round(R*Cos(Pi/6)); MoveTo(X,Y); For i:=1 to 6 do begin X:=X0+Round(R*Sin(Pi/6+i*Pi/3)); Y:=Y0-Round(R*Cos(Pi/6+i*Pi/3)); LineTo(X,Y); end; ReadKey; CloseGraph; End. |
|
11.11.2012, 22:57 | #3 (permalink) | |
Member
Регистрация: 22.07.2012
Сообщений: 393
Записей в дневнике: 2
Сказал(а) спасибо: 95
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 5501
|
Цитата:
вторая ссылка сверху. Первая программа в примере. Подставить останется только свою функцию |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|