, , .
- , - .
, .
. 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. ( ) :
|
|
(, ) , "" (-), "" (-) , .
, , (, 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.
, , . . - . , . , , , . , , , : , , , .