Построение фигур и графиков функций, модуль graph

[Sandra 2000]

Построение фигур и графиков функций, модуль graph

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

 

[Vladimir_S]

1)На построение фигуры Постройте правильный шестиугольник со стороной а. Две стороны расположены горизонтально.

Ладно, в порядке обучения первую задачку покажу. Ну а уж с графиком - не уверен, что возьмусь: там ничего сложного, просто много муторной рутинной работы. Попробуйте уж сами.

Uses Graph, CRT;
Var
 X0,Y0,X,Y,R:Word;
 i:Byte;
Begin
 InitGraph(..., ...); [COLOR=Red][B]{Параметры инициализации графики задайте сами}[/B][/COLOR]
 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.

 

[XELFAER]

2)на построение графика
Исследовав область определения и выбрав расположение координатных осей на экране и масштаб, постройте график функций: y=5x/(x2+3)

Let me google that for you

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