.


:




:

































 

 

 

 


8. , ,




, , .

- , - .

, .

. 123 , ; 12,34 , ; " ", , .

( ) .

.

, , () - .

. "", "", "" :

= (, , , );

= (, , , , );

= (, , ).

"" .

. "_":

_=(, ).

"_" (, ).

, , .

( ) , "" ( ), .

. "" , , , : "", " ", "", "", " ".

, , , , , . ( , ) .

. (), , , , , (, ) , , , , . integer, real, char, string, boolean.

(" ").

. ":=", "+", "", "*", "=" ( ), " ", "<", ">", " ", " "..

"/" ().

":=", "=", " ", "<", ">", " ", " ". , ""<"b" , "" "b" "a" "b" ( , , ASCII merican Standard Code for Information Interchange, ).

() ( ) "+". , ""+"" "".

. , a, b, c : a and b or (c not a).

, , , : , , char, string.

() .

. ( ) a b. : "" .

Program EquSimb;Uses Crt;Var i, k, j: integer; a, b: string;Begin ClrScr; WriteLn(' a = '); { } ReadLn(a); { } WriteLn(' b='); { } ReadLn(b); { } k:=abs(length(a)length(b)); { } if (length(a)<length(b)) { b a,} then j:=length(a) { a, } else j:=length(b); { b } for i:=1 to j do { } if (a[i]<>b[i]) { , } then k:=k+1; { } WriteLn('k = ',k); { }End.

.

(, , ) (, , , ), - . .

. 89, 65, 9, 0, 1.7 5, , x : x[1] = 89, x[2] = 65, x[3] = 9, x[4] = 0, x[5] = 1.7.

.

. [4], [i], x[4+j] . i = 2 j = 1 , , 4-, 2- 5- .

( ) .

. array. ( ) :

x: array [1..100] of real;.

(, ) , "" (-), "" (-) , .

, , (, array), , , : , .

. x

x: array [1..5, 1..3] of real;,

5 ( 1- 5- ) 3 ( 1- 3- ) :

( 1) ( 2) ( 3)  
x11 x12 13 ( 1)
x21 x22 23 ( 2)
31 32 33 ( 3)
41 x42 43 ( 4)
51 x52 53 ( 5)

, .

. [3,2] 3- 2- .

, .

. () . : , ; , , , . ()

Program SPM1;Uses Crt;Var x: array [1..100] of real; n, i: integer; s, : real;Begin ClrScr; WriteLn(' :'); { } ReadLn(n); { } WriteLn(' :'); { } for i:=1 to n do { } begin write('x[',i,']='); { } readln(x[i]) { } end; s:=0; { } p:=1; { [u1]} for i:=1 to n do { } begin s:=s+x[i]; { } p:=p*x[i] { } end; WriteLn(' ', s: 3:3); { } WriteLn(' ', p: 3:3); { }End.

. [1], [2], [3],... , , 1000000 ( "" , ). : , ( ); , . ()

Program SumND;Uses Crt;Var a: array [1..1000000] of real; i: integer; e, p, s: real;begin ClrScr; WriteLn(' :'); { } ReadLn(e); { } i:=1; { } WriteLn( :); { } ReadLn(a[1], a[2]); { } :=[1]; { } s:=+a[2]; { } while (abs(sp)>e) do { , } begin i:=i+1; { } p:=s; { "" "", } s:=s+[i]; { "" } WriteLn( a[, i, ]=); { } ReadLn(a[i]); { } end; WriteLn(' ', s: 3:3); { }End.

. Pn(x) = 0n + 1n1 +... + n x. () . . , :

1) n = 0, P0(x) = a0;

2) n = 1, P1(x) = a0x + a1 = P0(x) x + a1;

3) n = 2, P2() = a0x2 + a1x + a2 = (a0x + a1)x + a2 = P1(x)x + a2;

...

n) Pn(x) = a0xn + a1xn1 +... + an1x + an = (a0xn1 + a1xn2 +... + an1)x + an = Pn1(x)x + an.

, :

:= *x + .

() :

Program Gorner;Uses Crt;Var a: array [0..100] of real; n, i: integer; p, x: real;Begin ClrScr; WriteLn(' :'); { } ReadLn(n); { } WriteLn(' x:'); { } ReadLn(x); { } for i:=0 to n do { } begin WriteLn('a[',i,']='); { } ReadLn(a[i]); { } end; p:=a[0]; { ( n=0) . } for i:=1 to n do { } p:=p*x+a[i]; { i } WriteLn('oe p = ', p:3:3); { }End.

. a[i,j], i = 1, 2,..., n; j = 1, 2,..., m . : , . ()

Program SPM2;Uses Crt;Var a: array [1..100,1..100] of real; n, m, i, j: integer; s, p: real;Begin ClrScr; WriteLn(' :'); { } ReadLn(n); { } WriteLn(' :'); { } ReadLn(m); { } for i:=1 to n do { } for j:=1 to m do { } begin WriteLn('a[',i,',',j,']='); { } ReadLn(a[i,j]); { } end; s:=0; { } p:=1; { } for i:=1 to n do { } for j:=1 to m do { () } begin s:=s+a[i,j]; { } p:=p*a[i,j]; { } end; WriteLn(' : ', s:3:3); { } WriteLn(' : ', p:3:3); { }End.

, , - , , , . , , , . - .

- , , , , , , , , , , , ..

, . , - . , , , , . - ( ) .

, . - . , - . Δ , .1.1.


.1.1. , .

, , .

, . , , , , . .

Visual Basic BIBLIO.MDB, , , .

Visual Basic (MS Jet Engine), MS Access, Visual Basic , MS Access. MDB .

. BIBLIO.MDB MS Access VisData.

BIBLIO.MDB .1.2. (Tables), (Queries), (Forms), (Reports), (Macros) (Modules). , , , Visual Basic for Applications , , VBA.


.1.2. BIBLIO.MDB

, : PUBLISHERS, AUTHORS TITLES. . , . . , . , , , .

, , . 1.1 , Visual Basic MS Access.

1.1

Text - . , , , .. 0 255 .
Memo . , . 1.2 .
Yes/No Yes/No, True/False, On/Off, 0 1.
Byte 0 255.
Integer -32768 +32767.
Long -2147483648 2147483647.
Single -3.4? 1038 3.4? 1038.
Double -1.8? 10308 1.8? 10308.
Date/Time .
Currency . 11 4 .
Counter .
OLE OLE-, OLE. 1.2 .
Binary 1.2 . .

PUBLISHERS () ( , , , .). . 1.3 1.4 PUBLISHERS .


.1.3. PUBLISHERS

 


.1.4. PUBLISHERS

AUTHORS () - . .1.5 1.6 .


.1.5. AUTHORS

 


.1.6. AUTHORS

TITLES () - , , ISBN, , . TITLES .1.7 1.8 .


.1.7. TITLES

 


.1.8. TITLES

.1.2 , BIBLIO.MDB TITLE AUTHOR. . TITLES AUTHORS . , .

.

. , . . , --, --.

BIBLIO.MDB .1.9.


.1.9. BIBLIO.MDB.

--

--, , .

. AUTHORS () (. 1.5 1.6) ( ). PERSON () ( , , .) PERSON .1.10. , BIBLIO.MDB PERSON - --.


.1.10. PERSON

AUTHORS PERSON --, , , PERSON, .

: Au_ID AUTHORS PERSON.

--

-- ( AUTHORS TITLES), . AUTHORS TITLES Au_ID .

, , , .. , .

 

--

-- --.

--

-- . PUBLISHERS AUTHORS. , - .

, --, , -- -- . BIBLIO.MDB TITLE AUTHOR.

BIBLIO.MDB. , , , , , BIBLIOS. . 1.11. , . , . BIBLIOS , . , :

. , .

.

, , , .


.1.11. BIBLIOS.

, , , , , .

, . .

, , , , . , , .

, , :

1. , . :

  • PUBLISHERS - ;
  • AUTHORS - ;
  • TITLES - .

2. , , .

3. , .

4. . , , Country, (, , ..). , .

, . . (primary) (foreign).

. BIBLIO.MDB PUBLISHERS, AUTHORS TITLES PubID, Au_ID ISBN . TITLES PubID Au_ID PUBLISHERS AUTHORS. , , .

, ISBN TITLES. , . (Counter field). . (Long) .

, . , , . , , , . , . , , . .

, , , , . .

, , . . , . .1.12 CUSTOMERS, , IDX_NAME, Name CUSTOMERS. IDX_NAME Name, , CUSTOMERS.


.1.12. .

, . , AUTHORS , . , , .

, . . , , .

, , . . BIBLIO.MDB ISBN, Au_ID PubID.

, , . . - . , . , , , . , , , : , , , .


 





:


: 2016-12-05; !; : 495 |


:

:

, .
==> ...

1782 - | 1535 -


© 2015-2024 lektsii.org - -

: 0.09 .