DELPHI
5
:
". .
.
.
1. , . , , .
2. Memo OutSetMemo.
3. ( - ), OnClick Button1.
: .
:
1. A = {2, 15, 12, 3, 8, 13, 29}. 8 ( 1 30) B. C = (AÈB)\(AÇB). B Memo1, C - Memo2.
2. A, 1 50. 10 100 500 A . A Memo1, - Memo2, - Label1 ( ).
3. Memo1. A, : + - * / = < > [ ],.:; ' () { } @ # $ ^
A B A, Memo1 . A Memo2, B - Memo3.
4. A, 1 50. 100 1 50 , , - (, 1 , ). A Memo1, - Label1, Label2.
5. Memo1. B, (a, A, e, E, i, I, o, O, u, U), . B Memo2.
6. A, :
+ - * / = < > [ ],.:; ' () { } @ # $ ^
B , A. A Memo1, B - Memo2.
7. - A, 1 50. N 1000 10000, A B. A Memo1, N - Label1, B - Memo2.
|
|
8. Memo1. Memo2 , ( A). .
9. - A, 1 50. B 5 . A Memo1, B - Memo2.
10. A, 1 50. 20 1 50, B ( B 20 ), A , B. A Memo1, B - Memo2.
.
1. ?
2. ? .
3. , ?
4. ?
5. ?
6. ?
Delphi (Pascal)
- . , . : AnsiChar, Byte, ShortInt, Boolean, WordBool ( ).
: set of baseType
: type TLetters = set of 'A'..'Z';
var Letters: TLetters;
var Symbols: set of Char;
var Numb: set of 0..9;
:
[2, 3, 5, 7], [1..9], ['A', 'B', 'C'], [ ].
:
const Vowels: TLetters = ['A', 'E', 'I', 'O', 'U'];
begin
Letters:= ['A', 'B', 'C'];
Symbols:= [ ]; { }
Numb:=[1,2,5..8];
end;
1. : = < >
, . .
A B , .
[1, 2] < > [1, 2, 3] | True |
[1, 2] = [1, 2, 2] | True |
[1, 2, 3] = [3, 2, 1] | True |
[1, 2, 3] = [1..3] | True |
2. : >= <=
A>=B True, B A. A<=B True, , .. A B.
[1, 2] <= [1, 2, 3] | True |
[1, 2, 3] >= [1, 2] | True |
[1, 2] <= [1, 3] | False |
3. in. . .
5 in [1..9] | True |
5 in [1..4, 6..9] | False |
in , .
,
if (X = 1) or (X = 2) or (X = 3) or (X = 5) or (X = 7) then:
if X in [1..3, 5, 7] then
|
|
: in : X not in S. , . : not (X in S).
4. (+). , .
[ ] + [1, 2] | [1, 2] |
[1, 2] + [2, 3, 4] | [1, 2, 3, 4] |
5. (*). - , , .
[3, 5] * [1, 2] | [ ] |
[1, 2] * [2, 3, 4] | [2] |
6. (). , , .
[1, 2, 3] [2, 3, 4] | [1] |
[1, 2, 3] [ ] | [1, 2, 3] |
1. Include(S, I) S I. + () , .
2. Exclude(S, I) S I. () , .
S:= [1, 3]; | [1, 3] |
Include(S, 2); | [1, 2, 3] |
Exclude(S, 3) | [1, 2] |
: if, , .