( )
. Turbo Pascal
12
.
. , . ; ; , , ; , , .
1. . . : / . ., . ., . . : , 2010. 192 .
2. . . 1 2 / . . : , 2006. 134 .
3. .
-
1. , , .
2. , .
1. ?
2. .
3. .
4. ?
5. ?
6. .
7. ?
8. .
9. ?
10. , .
, .
ϳ .
, , .
, , , , , .
(Set) , ᒺ, . ᒺ . , . . . , . N , 2N .
Set of ( ).
:
Type
< > = Set of < >;
Var
< >: < >;
:
Var
< >: Set of < >;
|
|
Type
SetChar = Set of Char; { }
SetByte = Set of Byte; { }
SetDigit = Set of 0..9; { 0 9}
SetDChar = Set of '0'..'9'; { '0', '1',,'9'}
SetSpring = Set of (March, April, May); { , };
SetGolosn = Set of ('', '', '', '', '', '', ''); { }.
, , 256 . Byte (0..255) i Char, - , . . Byte , Char ASCII. 0 255. ShortInt (128..127), Word (0..65535), Integer
(32768..32767), LongInt (2147483648..2147483647).
. .
SByte:= [1,2,3,4,10,20,30,40];
SChar:= ['a', 'b', 'c'];
SChar:= [ 'd'];
SSpring:= [April];
SDiap:= [1..4]; { , [1,2,3,4]}
SComp:= [1..4, 5,7,10..20];
Empty:= [];
[].
, . . ['a','b','b','a'] i ['a','b'] .
, | |||
= | S1 = S2 | , TRUE, S1 S2 , FALSE . [1,2,3] = [1,3,2]; [] = []; ['a'..'c'] = ['a','b','c'] | |
<> | S1<>S2 | , TRUE, S1 S2 , FALSE . [1,2] <> [1]; [] <> [3]; ['a'..'c'] <> ['a','c'] | |
<= | S1<=S2 | , TRUE, S1 S2 , FALSE . ['a','b'] <= ['a'..'z']; [] <= [4]; [1,2] <= [1,2,3] | |
>= | S1>=S2 | , TRUE, S2 S1, FALSE . ['x'..'z'] >=['y']; [1..10] >=[1..5]; [5,7] >=[] | |
in | E in [] E in S1 | , TRUE, [] (S1). , FALSE. 5 in [0..5]; 's' in ['a'..'z']; not (7 in [9..20]) | |
+ | ᒺ | S1 + S2 | ᒺ , , . [1,2]+[2,3,4] = [1,2,3,4]; {[1..4]} ['s'] + [] = ['s'] |
г | S1 S2 | S1 S2 , , S1, S2. [5,7,9] [7] = [5,9]; ['1','2'] ['8','9'] = ['1','2'] | |
* | S1 * S2 | , S1 S2, S1, S2. [3,4,5,6,7] * [4,5,8] = [4,5]; ['x'] * [] = [] |
|
|
: ; ; . , . .
1. .
2. .
3. , , , , .
- Pascal .
1. i
Var a, b, c: set of 0..9;
iiiii:
a: = [0..3,9]; b: = [3,4,5];
i i:
c: = a+b;
2. i
Var a, b, c: set of 0..9;
iiiii:
a: = [0..2,5]; b: = [5,6,7];
i i:
c: = a-b;
3. i
Var a, b: set of char;
iiiii:
a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];
i i:
a:=b;
4. i
Var a, b, c: set of 0..9;
iiiii:
a: = [0..4,7]; b: = [1,4,5,6,8];
i i:
c: = a*b;
5. i
Var a, b: set of char;
iiiii:
a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];
i i:
a>=b;
6. i
Var a, b: set of char;
iiiii:
a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];
i i:
b<=a;
7. i
Var a, b: set of char;
iiiii:
a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];
i i:
b:=['x','a','m'];
8. i
Var a, b: set of char;
iiiii:
a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];
i i:
'k' in a;
9. i
Var a, b: set of char;
iiiii:
a: = [ 'a'..'z']; b: = ['a', 'm', 'x'];
i i:
'k' in b;
10. ii i char, a:=['a'..'z']; b:=['k'..'r','x']; c:=['m']; : (a-b*c) = ['n']) or ('b' in a).
11. i ii i i char: x:=['a'..'f','0'..'9'];
12. , i i type letters=set of 'a'..'z';
13. i ii i Var s: packed array [1..100] of char; ['0'..'9', '+','-','*'].
14. i: Var s: string [20]. ii i (), ['a', 'e', 'i', 'o', 'u'].
15. i i , Var str: string [20]; i .
16. i i Char: A={'a','b','c','d'}, B={'b','d','e','f'}. ii i .
ֲ
1. .
2. .
3. .
4. , , , -, ( ), ( ).
|
|
5. , .
6. ϳ .
,
, i .
˳ :
Program myProgram;
uses crt;
var a,b,c: set of byte; i:byte;
Begin
a:=[0..3,6];
b:=[3..7];
c:=a+b;
writeln('Rezyltat operaziji a+b:');
for i:=0 to 255 do
if i in c then writeln(i);
if c=[] then writeln('Porozhnja mnozhuna');
readkey;
End.
:
Rezyltat operaziji a+b: 0 1 2 3 4 5 6 7
1. .
2. , , , ?
3. ?
4. ᒺ ?
5. ?
6. .
7. ?
____________ . .