, , , , , , , . . , , ..
. -, , , . - ( ), BASIC PASCAL , , , MATHEMATICA . , , , - - , . . , (Eureka, MathCad, MathLab, Derive .) , .
, , , .
- . - ( ) , . , , , , , , , , , .. , , . .
. ( , ) - . - .
|
|
. - . , . -. . . , , 5 - . , 5 , ; , , - .
. , , , . - . , , - , , .
. , , :
;
, /;
;
.
- (, ) , , . 7. 3. .
. 7. 3, .
146. , . 7. 3,.
Program St; Uses Crt;
Var M: Byte; Logic: Boolean;
(\"(}\"(a)ypa )
Procedure Menu (Var M: Byte);
Begin Repeat ( \"(} \"()}
CIrScr; GotoXY (15, 7);
Write('\"(} \ss\"{0} ');
GotoXY(22, 10); Write('1. \"{} \"(}. ');
GotoXY(22, 12); Write('2. \"{} \"(}. ');
GotoXY(22, 14); Write('3. -. ');
GotoXY(22, 16); Write('4. \"{} . ');
GotoXY(15, 22); Write(' ');
Read(M)
Until M In [1.. 4]
End;
Begin (OCHOBHA\ss )
Logic:= False;
Repeat
Menu(M); ()
Case M Of
1: Begin (\"{} \"{}} End;
2: Begin {\"{} \"{})
CIrScr; WriteLn(' "\"{} \"{}"');
Repeat Until KeyPressed
End;
3: Begin { -} End;
4: Logic:= True (\"{} )
End
Until Logic
End.
: , M. ; - () ( ). .
|
|
, / - , , , .
. 7. 3, .
, , .
. , -; . , , , :
. 7. 3, .
. 7, 3, .
- , . , ̻ , . , .
- , , , . , ; . (, ) , , ; , . , , . , , ? , , , , , , ( , - ). v0, , , ..? , ? .
. -, , - . , - , . , , . - (.. ) - , , , , . - , , .., , .
, , . , : , N(t), , , , .
, , .
WINDOWS, DELPHI . , .
|
|
, , , , . - ; , , .
. . 6-7 , - , . , , , : , , , .. , , , , , . , , , , .
, - () . , - , , , , , .
.
, - , , , , - ( .). - , .
. , , .. , , , , , , .. , . , .
- , - . , , .
, , - . , -, - . , ( ), , .
: . , . , .., , ? - , , , - . ? ? - , , . - .
|
|
, , , . . - - . - , (, ..) . , , , , , .
- - . , , , - ( -), . , -, , .
, .
, . . () , .
BASIC GRAPH Turbo Pascal , . , 3 , PASCAL, ; . [ x min, x max] [ y min, y m] , : 0, t, 2 t, 3 t,..., t. x(t), (t) . , PASCAL.
Uses Graph InitGraph (<>) , . . x, y, . 7.4, (Circle, Line. OutText .) x', '. , ,
- ' N ', α, β, γ, δ ,
( 10 ,
.).
,
. 7.4.
(x, ) PutPixel, , . , - , , . , - - - .
|
|
. - (), , (). : - , - , , , , ..
. , ; (. 7.5).
, , h , (1, 1) (0, 0), (1, 2) - (h, 0), (1, 3) - (2h, 0) .. h *, (i, j) ((i -1) ∙ h, (y -1) ∙ h *).
ij - , a min m. b - : a min < b < a max. , A = b. ( ) , b . , b a1k a1,k+1, .. a1k < b < a1,k+1, a1k > b > a1,k+1.
. 7.5.
, = b:
( ; = 0).
, .. , , = b.
. , , b p2 ap+1,2. . , , . , = b, , b, . 3.8 .
, . - . , , .
. . (, , ) - (, ), .
- - ; , . , , , , , , - . , -25 + 15. , , , 5
[-25,-20], [-20,-15],...,[+10,+15],
-, - -, - . .
, ?! ? - . , - , - . , , , , .
, .
, ( ) . ; . , , , , .
, . , , - .., (), .
. .
: - . , () , . .
147. ( ).
Program Stergen;
Uses Crt, Graph
Type Mas2 = Array [0..10, 0..4] of Real;
Const ( )
U: Mas2 =
((3.000, 3.667, 4.333, 5.000, 3.000), (3.000, 3.628, 4.128, 3.952, 3.000), (3.000, 3.514, 3.783, 3.593, 3.000), (3.000, 3.377, 3.546, 3.396, 3.000), (3.000, 3.267, 3.381, 3.272, 3.000), (3.000, 3.187, 3.266, 3.188, 3.000), (3.000, 3.131, 3.185, 3.131, 3.000), (3.000, 3.091, 3.129, 3.091, 3.000),
(3.000, 3.064. 3.090, 3.064, 3.000), (3.000, 3.044, 3.063, 3.044, 3.000), (3.000, 3.031, 3.044, 3.031, 3.000));
Var
M, I, J, N1, Nt: Integer; MaxF, L, T, HI, Ht: Real;
Procedure Initialize; ( )
Var GraphDriver, GraphMode: Integer;
Begin
DetectGraph(GraphDriver, GraphMode);
InitGraph(GraphDriver, GraphMode, '');
End;
( )
Procedure Postar.ovka (U: Mas2; Nt, N1: Integer; HI, L, MaxF: Real);
Var X_N, Shag, Y_N, Shir, Dlin, Color, I, J, K, Y: Integer;
Flag.: Boolean; Ff: String; Col: Array [0..15] Of Byte;
Begin
Initialize; ( )
X_N:= GetMaxX Div 6;
If Nt <= 6 Then M:= Nt Else M:= Nt Div 2;
Y_N:= GetMaxY Div M - 20; Shir:= Y_N Div 2;
Dlin:= GetMaxX -2 * X_N; Shag:= Trunc(Dlin / N1); Str(Shag,Ff);
Col[0]:= 0; Col[l]:= 8; Col[2]:= 1; ( )
Col[3]:= 9; Col[4]:= 3; Col[5]:= 11;
Col[6]:= 2; Col[7]:= 10; Col[8]:= 14;
Col[9]:= 13; Col[l0]:= 5; Col[ll]:= 12; Col [12]:= 4;
For I:== 0 To M - 1 Do ( )
Begin
For J:= 0 To N1 - 1 Do ( )
Begin
Flag:= False;
For := 0 To Shag Do
Begin
For y:= 0 To Shir Do
Begin
Color:= 1 + Round((U[I, J] + ( )
(U[I, J + 1] - U[I, J]) * / Shag - U[0, 0]) / 3 * 16);
If Random(64) > 32
Then If Random(64) > 32 Then Color:= Color + 1 Else
Color:= Color - 1;
If Not Flag Then ( )
Begin
Str((U[I,J]+(U(I,J+l]-U[I,J])*K/Shag): 5: 3, Ff);
OutTextXY(K+X_N+Shag*J, Y_N*(1+1)-19, Ff);
Flag:= True
End;
{ }
PutPixel(K+X_N+Shag*J, Y+Y_N*(1+I), Col[Color])
End
End
End
End;
SetColor(White); OutTextXY(150, 450, ' ');
Repeat Until KeyPressed; CloseGraph
End;
Begin ( )
L:= 4; := 10; Hi:= 1; Ht:= 1;
N1:= Trunc(L / HI); Nt:= Trunc(T / Ht); MaxF:= 5;
Postanovka (U. Nt, N1, HI, L, MaxF)
End.