Построить график функции

@marikuma · Регистрация: 10.05.2015

Студворк — интернет-сервис помощи студентам

1. Очистить экран монитора и при необходимости установить требуемый цвет
фона.
2. Выбрать размещение системы координат в соответствии с левым и правым
интервалом и в соответствии с минимальным и максимальным значением функции,
которыемогут быть достигнуты на этоминтервале.
3. Построить горизонтальную и вертикальную координатные оси.
4. Подписать названия координатных осей.
5. Построить на координатных осяхмасштабныеметки.
6. Подписать численные значениямасштабныхметок.
7. Построить координатную сетку.
8. Построить непосредственно сам график функции.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{10\arcsin(\sin(5x))}{x^2+1}$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?-3\pi$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?3\pi$

@Puporev · 10.05.2015, 16:17

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
uses graph;
function F(x:real):real;
var sn,u:real;
begin
sn:=sin(5*x);
if sn=1 then u:=pi/2
else if sn=-1 then u:=-pi/2
else u:=arctan(sn/sqrt(1-sn*sn));
F:=10*u/(x*x+1);
end;
 
var a,b,mx,my,max,min:real;
    x:real;
    x0,y0,n,i:integer;
    s:string;
begin
x0:=0;
initgraph(x0,y0,'');
a:=-3*pi;
b:=3*pi;{интервал по Х}
x0:=getmaxX div 2;
mx:=(x0-30)/b;{масштаб по Х}
x:=a;
max:=F(a);{найдем макс и мин для масштаба по Y}
min:=F(a);
while x<=b do
 begin
  if F(x)>max then max:=F(x);
  if F(x)<min then min:=F(x);
  x:=x+0.01
 end;
y0:=getmaxY div 2;
if max>abs(min) then
 begin
  my:=(y0-20)/max;{масштаб по Y}
  n:=trunc(max)+1
 end
else
 begin
  my:=(y0-20)/abs(min);
  n:=trunc(abs(min))
 end;
line(0,y0,getmaxX,y0);{оси}
line(x0,0,X0,getmaxY);
for i:=1 to n do{максимальное количество засечек в одну сторону}
 begin
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));{засечки на оси У}
  line(x0-3,y0+round(i*my),x0+3,y0+round(i*my));
  {подпись оси У}
  str(i,s);
  outtextXY(x0-30,y0-round(i*my),s);{соответственно засечкам}
  outtextXY(x0-35,y0+round(i*my),'-'+s);
 end;
for i:=1 to 6 do
 begin
  line(x0+round(i*mx*pi/2),y0-3,x0+round(i*mx*pi/2),y0+3); {засечки на оси Х}
  line(x0-round(i*mx*pi/2),y0-3,x0-round(i*mx*pi/2),y0+3);
  {подпись оси Х}
  str(i,s);
  if i=1 then
   begin
    outtextXY(x0+round(i*mx*pi/2),y0+10,'pi/2');
    outtextXY(x0-round(i*mx*pi/2),y0+10,'-pi/2');
   end
  else if i=2 then
   begin
    outtextXY(x0+round(i*mx*pi/2),y0+10,'pi');
    outtextXY(x0-round(i*mx*pi/2),y0+10,'-pi');
   end
  else if odd(i)then
   begin
    str(i,s);
    outtextXY(x0+round(i*mx*pi/2),y0+10,s+'pi/2');
    outtextXY(x0-round(i*mx*pi/2),y0+10,'-'+s+'pi/2');
   end
  else
   begin
    str(i div 2,s);
    outtextXY(x0+round(i*mx*pi/2),y0+10,s+'pi');
    outtextXY(x0-round(i*mx*pi/2),y0+10,'-'+s+'pi');
   end
 
 end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+5,10, 'Y');
{график}
x:=a;
while x<=b do
 begin
  putpixel(x0+round(x*mx),y0-round(F(x)*my),12);
  x:=x+0.001;
 end;
{название}
setcolor(12);
outtextXY(50,10,'y=10arcsin(sin(5x))/(x^2+1)');
outtextXY(50,30,'int.[-3pi;3pi]');
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .	С днём независимости России! Hrethgir 13.06.2025 Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .	Лето вокруг. kumehtar 13.06.2025 Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .	Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев). Hrethgir 12.06.2025 Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений bytestream 12.06.2025 Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .	Dispose и Finalize в C# stackOverflow 12.06.2025 Работая с C# больше десяти лет, я снова и снова наблюдаю одну и ту же историю: разработчики наивно полагаются на сборщик мусора, как на волшебную палочку, которая решит все проблемы с памятью. Да,. . .	Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .

Опции темы

Построить график функции

Решение