.
n - .
n - .
n > 0, y = (2 n)! = 2 4 6 (2 n), , 0! = 1.
.
n - .
n - .
n > 0, y = (2 n 1)! = 1 3 5 (2 n 1), , 0! = 1.
.
26. - Visual basic.
Visual Basic for Application (VBA) : Sub, Function, Property.
, .
Sub , . , , Sub. Sub, VBA, , Office, Sub.
Function ( ) , . , . Function , . , , .
Property . . , , .
. Sub :
Sub ([])
End Sub
Sub, , :
Function ([]) [As ]
=
End Function
. , , , . VBA : , , .
27.
- . (dz , 1954 .)
- , . ( , 1995 .)
- () . , .
|
|
|
, ' .
.
, . , , . , , , .
,
T[2], T[5], T[i], T[i + j].
j. , : , .
I , . : , .
, : . - . !
Pascal , . :
const
const <' >=array[1.. < >] of <> = (1,2,3,... <>);
type
type <' >=array[1.. < >] of <>;
var <' >: <' >;
var
var <' >: array[1.. < >] of <>;
:
type Mas = array[1.. 5] of integer;
var a: Mas;
( ), ( m x n) (3-,4- .. 3- - ' , 4- - - ).
, .
, .
', , - !
Pascal , ' ' '.
: ' '? ' . - , . . .
', , , . :
<' >: array [< >] of <>.
28. DIM,
Array(_)
_ , , (Variant). , .
|
|
|
, , , , . A (Variant). A. , , .
̲ Visual Basic for Applications (VBA). VBA, Access Search .
Dim A As Variant
A = Array(10,20,30)
B = A(2)
, Array, , Option Base, Array (, VBA.Array). , Option Base Array .
̲ (Variant), , . (Variant) - , . (Variant), , , (Variant), .
29. option base I erase
Option Base {0 | 1}
0, Option Base . , . Option Base , .
To Dim, Private, Public, ReDim Static . To, Option Base, , 1. , Array, ; Option Base.
Option Base , .
Option Base , 0. LBound . Option Base .
Option base 1 ' 1.
Dim Lower
Dim MyArray(20), TwoDArray(3, 4) ' -.
Dim ZeroArray(0 To 5) ' .
' LBound .
Lower = LBound(MyArray) ' 1.
Lower = LBound(TwoDArray, 2) ' 1.
Lower = LBound(ZeroArray) ' 0.
Pascal ', . ϳ , , . , , . , :rr[1..100] of real , , 100.
|
|
|
7.2
. ', , ', . ϳ , . . , , read.
Program ex7_2;
var
mas:array[1..10] of integer;
n:integer;
i:integer;
begin
writeln('Enter number of elements <=10');
read(n);
writeln('Enter elements values ');
for i:=1 to n do
read(mas[i]);
writeln('Entered array');
for i:=1 to n do
write(mas[i],' ');
writeln;
end.
. . for. , rr 1 10.
for i:=1 to n do
arr[i]:=sqr(i);
- :
const a:array[1..5] of integer = (1,3,2,-5,6);
[1]:=1; [2]:=3; [3]:=2; [4]:= - 5; [5]:= - 6:
' := . , . := , .
