:
Turbo Pascal .
Graph ,
F(x) = a*cos(b*x) .
,b x, . .
3 :
- .
- F(x).
PASCAL
CRT,GRAH: Uses graph, crt;
, : :
Font_litt, font_trip- ;
Ox, Oy- ;
X1, Y1, X2, Y2 - ;
:
Ax, Ay - ;
Dx - ;
X_min, X_max - ;
Y_min, Y_max, Y_0 - ;
Mx, My ;
StepLineX - ;
a, b - ;
stl.
:
Var
Font_litt, font_trip: integer;
Ox, Oy: integer;
Ax, Ay: real;
Dx: real;
X_min, X_max: real;
Y_min, Y_max, Y_0: real;
X1, Y1, X2, Y2: integer;
Mx, My: real;
StepLineX: real;
a, b: real;
stl: string;
, : litt, trip, egavga - .
PROCEDURE litt;external;.
PROCEDURE trip;external;
PROCEDURE egavga;external;
GetF F(x).
FUNCTION GetF (const x: real): real;
BEGIN
GetF:=a*cos(b*x);
END;
Axe .
FUNCTION Axe (const x: real): integer;
BEGIN
Axe:=x1+round((-x_min+x)*Mx);
END;
Aye y .
FUNCTION Aye (const y: real): integer;
BEGIN
Aye:=y2+round((y_min-y)*My);
END;
FloatToStr .
FUNCTION FloatToStr (const a: real): string;
var st: string;
BEGIN
str(a:2:0,st);
FloatToStr:=st;
END;
SetData .
PROCEDURE SetData;
BEGIN
St1:=' : y(x) = a*cos(b*x)';
|
|
writeln(st1);
write(' a = '); readln(a);
write(' b = '); readln(b);
END;
registerbgidriver (egavga) .
PROCEDURE GrafikaOn;
var drv, mode: integer;
BEGIN
registerbgidriver (egavga);
font_litt: = registerbgifont (litt);
font_trip: = registerbgifont (trip);
drv: =9;
mode: =2;
InitGraph (drv, mode, );
END;
F(x)
PaintF , F(x).
PROCEDURE PaintF;
BEGIN
settextstyle(font_trip, 0, 4);
SetColor(15);
OutTextXY(10, 10, st1);
settextstyle (font_trip, 0, 2);
SetColor (10);
OutTextXY(10, 45, st2);
OutTextXY(10, 67, st3);
X1: =100;
Y1: =100;
X2: =GetMaxX-100;
Y2: =GetMaxY-20;
SetFillStyle(1, 7);
bar(x1, y1, x2, y2);
X_min: = -10;
X_max: =20;
dx: =0.01;
StepLineX: =4;
Ax: =x_min;
y_min: =GetF(Ax);
y_max: =GetF(Ax);
y_0: =abs(y_min);
repeat
Ay: =GetF(Ax);
If Ay<y_min then y_min: =Ay;
If Ay>y_max then y_max: =Ay;
If abs (Ay)<y_0 then y_0: = abs(Ay);
Ax: =Ax+dx;
until Ax>=x_max;
Y
My: =abs (y2-y1) / abs (y_max-y_min);
X
Mx: =abs (x2-x1) / abs (x_max-x_min);
Ox: = x1+round((-x_min+0)*Mx);
Oy: = y1+round((y_max-y_0)*My);
SetColor(15);
SetLineStyle (0, 0, 3);
Line (Ox, y1, Ox, y2);
Line (x1, Oy, x2, Oy);
X
SetLineStyle (3, 0, 1);
Settextstyle (font_litt, 0, 5);
Ax: = x_min;
SetColor(15);
Repeat
OutTextXY (Axe (Ax), y2+1, FloatToStr (Ax));
Line (Axe (Ax), y1, Axe (Ax), y2);
Ax: =Ax+StepLineX;
until Ax>x_max;
SetLineStyle (0, 0, 1);
Ax: = x_min;
Ay: =GetF (Ax);
SetColor(9);
MoveTo (Axe (Ax), Aye (Ay));
Repeat
Ay: =GetF (Ax);
LineTo (Axe (Ax), Aye (Ay));
Ax: =Ax+dx;
until Ax>x_max;
, begin . .
:
BEGIN
SetData;
GrafikaOn;
PaintF;
readln;
CloseGraph;
END.
1. .. . . .: , 2006 .
- .. . .: , 2006 .
- .. . - .: , 2007 .
- .., .. . .: , 2008 .
- . . . TeachPro, 2009 .
- .., .. . .: , 2012 .
- .., .., .. Pascal: 220301.65 . : , 2007.
- .., .. MS Word , , , . - : , 2013 .
|
|
.
.. 3
1. ... 4
2. ... 4
2.1. . 4
2.2. . 5
2.3. . 5
. 5
2.4. . 5
. 5
2.5. . 6
3. ... 6
4. ... 7
5. ... 7
6. .. 8
6.1. .. 9
6.2. .. 23
6.3 .. 35
6.4. . 57
1.. 68
2.. 69
3.. 80
4.. 96
5.. 109
... 117
[1]