Графики функций y=3-x^2 и y=x+1

@Loogo · Регистрация: 18.05.2019

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

Здравствуйте, нужна помощь с графиками функций на PascalABC
Необходимо в единой системе координат с осями построить графики: y=3-x^2 ; y=x+1.
Затем нужно заштриховать фигуру, заключенную между линиями графиков и точками их пересечения, и найти её площадь.
Площадь и график вывести.
Заранее спасибо.

@Puporev · 18.05.2019, 18:24

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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
uses graphABC;                                                    
//тип функций                                                      
type func=function(x:real):real;                                  
//исследуемые функции                                              
function f1(x:real):real;                                         
begin                                                             
f1:=3-x*x;                                                        
end;                                                              
function f2(x:real):real;                                         
begin                                                             
f2:=x+1;                                                          
end;                                                              
//функция нахождения интеграла методом срдних прямоугольников     
function Intg(fn:func;a,b:real;n:integer):real;                   
var h,x,s:real;                                                   
    i:integer;                                                    
begin                                                             
h:=(b-a)/n;                                                       
x:=a+h/2;                                                         
s:=0;                                                             
for i:=1 to n do                                                  
 begin                                                            
  s:=s+fn(x);                                                     
  x:=x+h;                                                         
 end;                                                             
Intg:=s*h;                                                        
end;                                                              
                                                                  
var xn,xk,x,dx,m,x1,x2,x3,y1,y2,s:real;                           
    x0,y0,i:integer;                                              
    st:string;                                                    
begin                                                             
setwindowsize(500,500);                                           
centerwindow;                                                     
xn:=-3;                                                           
xk:=3;                                                            
//начало координат                                                
x0:=windowwidth div 2;                                            
y0:=windowheight div 2;                                           
m:=(x0-20)/3;                                                     
//графики                                                         
setpencolor(clBlue);                                              
x:=xn;                                                            
dx:=0.01;                                                         
while x<=xk do                                                    
 begin                                                            
  if x=xn then moveto(x0+round(x*m),y0-round(f1(x)*m))            
  else lineto(x0+round(x*m),y0-round(f1(x)*m));                   
  x:=x+dx;                                                        
 end;                                                             
setpencolor(clRed);                                               
x:=xn;                                                            
i:=0;                                                             
while x<=xk do                                                    
 begin                                                            
  if x=xn then moveto(x0+round(x*m),y0-round(f2(x)*m))            
  else lineto(x0+round(x*m),y0-round(f2(x)*m));                   
  //нахождение точек пересечения                                  
  if abs(f2(x)-f1(x))<dx then                                     
   begin                                                          
    if i=0 then                                                   
     begin                                                        
      x1:=x;                                                      
      y1:=f1(x);                                                  
      i:=1;                                                       
     end                                                          
    else                                                          
     begin                                                        
      x2:=x;                                                      
      y2:=f1(x);                                                  
     end;                                                         
   end;                                                           
  x:=x+dx;                                                        
 end;                                                             
//рисуем область пересечения                                      
setpencolor(clGreen);                                             
setbrushcolor(clGreen);                                           
x:=x1;                                                            
while x<=x2 do                                                    
 begin                                                            
  if x=x1 then moveto(x0+round(x*m),y0-round(f1(x)*m))            
  else lineto(x0+round(x*m),y0-round(f1(x)*m));                   
  x:=x+dx;                                                        
 end;                                                             
x:=x1;                                                            
while x<=x2 do                                                    
 begin                                                            
  if x=x1 then moveto(x0+round(x*m),y0-round(f2(x)*m))            
  else lineto(x0+round(x*m),y0-round(f2(x)*m));                   
  x:=x+dx;                                                        
 end;                                                             
setbrushstyle(bsBDiagonal);                                       
floodfill(x0+round(x1*m)+10,y0-round(y1*m)-30,clGreen);           
//оси координат                                                   
//оси                                                             
line(0,y0,windowwidth,y0);                                        
textout(windowwidth-20,y0-20,'X');                                
line(x0,0,x0,2*y0);                                               
textout(x0+5,0,'Y');                                              
textout(x0+5,y0+10,'0');                                          
//засечки и подписи по осям                                       
for i:=1 to 6 do                                                  
 begin                                                            
  line(x0+round(i*m/2),y0-3,x0+round(i*m/2),y0+3);                
  line(x0-round(i*m/2),y0-3,x0-round(i*m/2),y0+3);                
  textout(x0+round(i*m/2),y0+10,floattostr(i/2));                 
  textout(x0-round(i*m/2),y0+10,floattostr(-i/2));                
  line(x0-3,y0-round(i/2*m),x0+3,y0-round(i/2*m));                
  textout(x0-25,y0-round(i/2*m)-5,floattostr(i/2));               
  line(x0-3,y0+round(i/2*m),x0+3,y0+round(i/2*m));                
  textout(x0-25,y0+round(i/2*m)-5,floattostr(-i/2));              
 end;                                                             
 s:=Intg(f1,x1,x2,100)-Intg(f2,x1,x2,100);                        
 str(s:0:2,st);                                                   
 setfontsize(12);                                                 
 setfontstyle(fsBold);                                            
 textout(x0-80,y0-150,'Площадь='+st);                             
end.

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Loogo 0 / 0 / 0 Регистрация: 18.05.2019 Сообщений: 1

	Графики функций y=3-x^2 и y=x+1 18.05.2019, 15:31. Показов 1155. Ответов 1 Метки графики (Все метки) Здравствуйте, нужна помощь с графиками функций на PascalABC Необходимо в единой системе координат с осями построить графики: y=3-x^2 ; y=x+1. Затем нужно заштриховать фигуру, заключенную между линиями графиков и точками их пересечения, и найти её площадь. Площадь и график вывести. Заранее спасибо. 0

Графики функций y=3-x^2 и y=x+1

Решение