Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 11.11.2012, 21:32   #1 (permalink)
Sandra 2000
Member
 
Аватар для Sandra 2000
 
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Thumbs up Построение фигур и графиков функций, модуль graph

Работа в графическом режиме.Не могу разобраться помогите.
Две задачи,
1)На построение фигуры
Постройте правильный шестиугольник со стороной а. Две стороны расположены горизонтально.
2)на построение графика
Исследовав область определения и выбрав расположение координатных осей на экране и масштаб, постройте график функций: y=5x/(x2+3)
Sandra 2000 вне форума   Ответить с цитированием

Старый 11.11.2012, 21:32
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Интересно, вы уже просмотрели похожие темы или нет

Использование библиотеки модуля GRAPH. Free Pascal
Построение последовательности
Компьютеры в виде фигур из Тетриса
Построение блок-схемы
Разработать ПО по управлению БД и ПО, производящее построение однотипных графиков

Старый 11.11.2012, 22:03   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,458
Сказал(а) спасибо: 258
Поблагодарили 476 раз(а) в 151 сообщениях
Репутация: 82935
По умолчанию

Цитата:
Сообщение от Sandra 2000 Посмотреть сообщение
1)На построение фигуры Постройте правильный шестиугольник со стороной а. Две стороны расположены горизонтально.
Ладно, в порядке обучения первую задачку покажу. Ну а уж с графиком - не уверен, что возьмусь: там ничего сложного, просто много муторной рутинной работы. Попробуйте уж сами.
Код:
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.
Миниатюры
sext.jpg  
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 11.11.2012, 22:57   #3 (permalink)
XELFAER
Member
 
Аватар для XELFAER
 
Регистрация: 22.07.2012
Сообщений: 392
Записей в дневнике: 2
Сказал(а) спасибо: 95
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3462
По умолчанию

Цитата:
Сообщение от Sandra 2000 Посмотреть сообщение
2)на построение графика
Исследовав область определения и выбрав расположение координатных осей на экране и масштаб, постройте график функций: y=5x/(x2+3)
Let me google that for you

вторая ссылка сверху. Первая программа в примере. Подставить останется только свою функцию
XELFAER вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:45.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.