SetTextStyle (font,dir,gr:word) - . , . Font 0,1,... 7 ( :
defaulfont = 0, sansseriffont = 3,
triplexfont = 1, gothicfont = 4,
smallfont = 2 .).
Dir HorizDir = 0 ( ) VertDir = 1 ( , 90 ). gr NormSize = 1 ( 0) 2, 3,...; ( ).
SetUserCharSize (mx,dx,my,dy:word) -. OX, OY:
" " = " " * / Dx,
" " = " " * My / Dy.
InstaIlUserFont (font: string) -. , . .CHR . font .CHR, , ,
font:= InstaIlUserFont ('russ.chr');
SetTextStyle (font,vertdir,2);
SetTextJustify (hor,vert:word) - . .
Hor=0 (LeftText); Vert=0 (BottomText);
Hor=1 (CenterText); Vert=1 (CenterText);
Hor=2 (RightText); Vert=2 (TopText).
7.8.3. .
, My. Y (My) , () ,min ,m (;).
( ( = , = ), .
:
1. ( = , = ) N h.
h=(B-A)/N.
2. = ; FX = f(), FX Y,min Y,m.
3. = + h.
4. > , .
5. FX = f(x); F<Y,min, Y,min FX, F>,m, Y,m FX. . 3-5, .4. .
program prog_graph;
uses Graph, Crt,......;
|
|
|
var grDriv, grMod: integer;
{ }
function F(var x: real): real
begin
{ }
end;
procedure Extr (Xmin,Xmax:real;count:integer; var Ymin,Ymax:real;dx:real);
var Y: real;
begin dx:= (Xmax-Xmin)/count;
Ymin:= F(Xmin);
Ymax:= Ymin;
while (Xmin+dx)<=Xmax do
begin Xmin:= Xmin+dx;
Y:=F(Xmin);
if Y<Ymin then Ymin:= Y;
if Y>Ymax then Ymax:= Y;
end;
end;
begin
write('B XN, XK:'); { }
readln(Xn, Xk); { } write('B :');
readln(N);
{ --) Extr(Xn,Xk,N,Yn,Y,h);
end.
7.9
25
| . | ( ) | ( ) | ||
| 1. | ax+b/x | |||
| 2. | ax2 + bx +c | |||
| 3. | exp(-x2/2) | |||
| 4. | 
| |||
| 5. | a*sin(x)+b | |||
 6.
| a-X, < ( +)/ 2 a-X, ³(+)/2 | |||
| 7. | x + cos(bx) | |||
| 8. | exp (-a x) sin(bx) | |||
| 9. | (exp(-x) + ()) / | |||
| 10. | atg(bx)-c | |||
| 11. | actg(bx) | |||
| 12. | sec(b x) + | |||
| 13. | cosec(b x) | |||
| 14. | sin(x) + b sm(2x) | |||
7.10
1) , .
2) .
3) .
4) .
