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
| uses Graph,Crt;
var
x1,x2:real;{границы изменения аргумента функции}
y1,y2, :real;{границы изменения значения функции первого графика}
y3, y4 :real;{границы изменения значения функции второго графика}
x:real;{аргумент функции }
y:real;{значение функции в точке х}
dx:real;{приращение аргумента }
l,b: integer;{левый нижний угол области вывода графика}
w,h: integer; {ширина и высота области вывода графикa}
mx,my:real;{масштаб по осям Х и Y }
x0, y0: integer; { точка - начало координат }
st: string;{ изображение числа }
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
{Первый график}
Function f(x:real):real;
begin
f:= cos(x)*(1+cos(x));
end;
{Второй график}
Function f2(x:real):real;
begin
f2:=sin(x)*(1+cos(x));
end;
BEGIN
grDriver := Detect;
InitGraph(grDriver, grMode,'') ;
ErrCode := GraphResult;
if ErrCode <> grOk then Halt(1);
l:=10;b:=450;h:=400;w:=400;
x1:=0;
{x2:=25;}
x2:=2*PI;
dx:=0.01;
{ найдем максимальное и минимальное значения
функции на отрезке [x1,x2] }
y1:=f(x1); { минимум первого графика}
y2:=f(x1); { максимум первого графика}
y3 := f2(x1); { минимум второго графика}
y4:= f2(x1); { максимум второго графика}
x:=x1;
repeat
y:=f(x);
if y<y1 then y1:=y;
if y>y2 then y2:=y;
y := f2(x);
if y < y3 then y3 := y;
if y > y4 then y4 := y;
x:=x+dx;
until (x>=x2) ;
{Из min первого и второго графика выбираем наименьший}
if y2 < y4 then y2 := y4;
{Из max первого и второго графика выбираем наибольший}
if y1 > y3 then y1 := y3;
my:=h/abs(y2-y1) ;
mx:=w/abs(x2-x1) ;
{ оси }
x0:=1;
y0:=b-Abs(Round(y1*my)) ;
Line(1,b,1,b-h) ;
Line(x0,y0,x0+w,y0) ;
Str(y2:5:1,st) ;
OutTextXY(1+5,b-h,st) ;
Str(y1:5:1,st) ;
OutTextXY(1+5,b,st) ;
{ построение графика }
x:=x1;
repeat
{Рисуем первый график - красный}
y:=f(x);
PutPixel(x0+Round(x*mx),y0-Round(y*my),red) ;
{Рисуем второй график - зеленый}
y:=f2(x);
PutPixel(x0+Round(x*mx),y0-Round(y*my),green) ;
x:=x+dx;
delay(20);
until (x>=x2);
Readln;
CloseGraph;
END. |
(
