ΠΡΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠ°Π·Π°ΡΡ Π΅Π΅ ΡΠΈΠΏ. Π’ΠΈΠΏ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΎΠΏΠΈΡΡΠ²Π°Π΅Ρ Π½Π°Π±ΠΎΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠ½Π° ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ, ΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ Π½Π°Π΄ Π½Π΅ΠΉ Π²ΡΠΏΠΎΠ»Π½Π΅Π½Ρ. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠΈΠΏΠ° ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ ΡΠΈΠΏ.
ΠΡΠΎΡΡΡΠ΅ ΡΠΈΠΏΡ Π΄Π΅Π»ΡΡΡΡ Π½Π° ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ (ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠ΅) ΠΈ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΡΠ΅ΠΌΡΠ΅ (ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½ΡΠ΅).
Π’ΡΡΠ±ΠΎ-ΠΠ°ΡΠΊΠ°Π»Ρ ΠΈΠΌΠ΅Π΅Ρ ΡΠ΅ΡΡΡΠ΅ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΡ ΡΠΈΠΏΠ°: integer (ΡΠ΅Π»ΠΎΠ΅), real (Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ΅), boolean (Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠΉ) ΠΈ char (ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΠΉ).
Π Π’ΡΡΠ±ΠΎ-ΠΠ°ΡΠΊΠ°Π»Π΅ ΠΈΠΌΠ΅Π΅ΡΡΡ ΠΏΡΡΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ²: shortint (ΠΊΠΎΡΠΎΡΠΊΠΎΠ΅ ΡΠ΅Π»ΠΎΠ΅), integer (ΡΠ΅Π»ΠΎΠ΅), longint (Π΄Π»ΠΈΠ½Π½ΠΎΠ΅ ΡΠ΅Π»ΠΎΠ΅), byte (Π΄Π»ΠΈΠ½ΠΎΠΉ Π² Π±Π°ΠΉΡ) ΠΈ word (Π΄Π»ΠΈΠ½ΠΎΠΉ Π² ΡΠ»ΠΎΠ²ΠΎ). ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠΈΠΏ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ΅ ΠΏΠΎΠ΄ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠ΅Π»ΡΡ ΡΠΈΡΠ΅Π», ΠΊΠ°ΠΊ ΡΡΠΎ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ Π’Π°Π±Π»ΠΈΡΠ΅.
ΠΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΡΠΈΠΏΡ.
Π’ΠΈΠΏ |
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ |
Π€ΠΎΡΠΌΠ°Ρ |
shortint |
-128 ..+127 |
8 Π±ΠΈΡΠΎΠ² ΡΠΎ Π·Π½Π°ΠΊΠΎΠΌ |
integer |
-32768 .. 32767 |
16 Π±ΠΈΡΠΎΠ² ΡΠΎ Π·Π½Π°ΠΊΠΎΠΌ |
longint |
-2147483648 +2147483647 |
32 Π±ΠΈΡΠ° ΡΠΎ Π·Π½Π°ΠΊΠΎΠΌ |
byte |
0 .. 255 |
8 Π±ΠΈΡΠΎΠ² Π±Π΅Π· Π·Π½Π°ΠΊΠ° |
word |
0 .. 65535 |
16 Π±ΠΈΡΠΎΠ² Π±Π΅Π· Π·Π½Π°ΠΊΠ° |
ΠΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π½Π°Π΄ ΠΎΠΏΠ΅ΡΠ°Π½Π΄Π°ΠΌΠΈ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΡΡ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ ΡΠΎ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌΠΈ ΠΏΡΠ°Π²ΠΈΠ»Π°ΠΌΠΈ:
ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΠΎΠ²Π΅ΡΡΠ°Π΅ΠΌΡΠ΅ Π½Π°Π΄ ΡΠ΅Π»ΡΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ:
β+β — ΡΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
β-β — Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅
β*β — ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅
SQR — Π²ΠΎΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ Π² ΠΊΠ²Π°Π΄ΡΠ°Ρ
DIV — ΠΏΠΎΡΠ»Π΅ Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΎΡΠ±ΡΠ°ΡΡΠ²Π°Π΅Ρ Π΄ΡΠΎΠ±Π½ΡΡ ΡΠ°ΡΡΡ
MOD — ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ΅Π»ΠΎΠ³ΠΎ ΠΎΡΡΠ°ΡΠΊΠ° ΠΏΠΎΡΠ»Π΅ Π΄Π΅Π»Π΅Π½ΠΈΡ
ABS — ΠΌΠΎΠ΄ΡΠ»Ρ ΡΠΈΡΠ»Π°
RANDOM(X)-ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° ΠΎΡ 0 Π΄ΠΎ Π₯
ΠΡΠΈΠΌΠ΅Ρ:
Π°:=100; b:=60; a DIV b ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ - 1 Π° MOD b ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ - 40
ΠΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠ΅Π»ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
var ΡΠΏΠΈΡΠΎΠΊ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ : ΡΠΈΠΏ;
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ: var Π°,Ρ,n:integer;
Π Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠΌΡ ΡΠΈΠΏΡ ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΏΠΎΠ΄ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΡΠ΅Π», ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Ρ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ Ρ ΠΏΠ»Π°Π²Π°ΡΡΠ΅ΠΉ Π·Π°ΠΏΡΡΠΎΠΉ Ρ ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌ ΡΠΈΡΠ»ΠΎΠΌ ΡΠΈΡΡ. ΠΠ°ΠΏΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΡΠΎΡΠΌΠ°ΡΠ΅ Ρ ΠΏΠ»Π°Π²Π°ΡΡΠ΅ΠΉ Π·Π°ΠΏΡΡΠΎΠΉ ΠΎΠ±ΡΡΠ½ΠΎ Π²ΠΊΠ»ΡΡΠ°Π΅Ρ ΡΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ — m, b ΠΈ e — ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎ m*b Π΅, Π³Π΄Π΅ b Π²ΡΠ΅Π³Π΄Π° ΡΠ°Π²Π΅Π½ 10, Π° m ΠΈ e ΡΠ²Π»ΡΡΡΡΡ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠΌΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ m ΠΈ e Π΄Π°Π»Π΅Π΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΈ ΡΠΎΡΠ½ΠΎΡΡΡ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°.
ΠΠΌΠ΅Π΅ΡΡΡ ΠΏΡΡΡ Π²ΠΈΠ΄ΠΎΠ² Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ²: real, singlΠ΅, duble, exnende, comp. ΠΠ΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠΈΠΏΡ ΡΠ°Π·Π»ΠΈΡΠ°ΡΡΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ΠΎΠΌ ΠΈ ΡΠΎΡΠ½ΠΎΡΡΡΡ ΡΠ²ΡΠ·Π°Π½Π½ΡΡ Ρ Π½ΠΈΠΌΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΠΈ Π΄Π΅ΡΡΡΠΈΡΠ½ΡΠ΅ ΡΠΈΡΡΡ Π΄Π»Ρ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΠΏΠΎΠ²
Π’ΠΈΠΏ |
ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ |
Π¦ΠΈΡΡΡ |
Single Duble Extende comp |
2.9×10Π-39 Π΄ΠΎ 1.7×10Π 38 1.5×10Π-45 Π΄ΠΎ 3.4×10Π 38 5.0×10Π-324 Π΄ΠΎ 1.7×10Π 308 3.4×10Π-493 Π΄ΠΎ 1.1×10Π 403 -2Π 63 Π΄ΠΎ 2Π 63 |
ΠΎΡ 11 Π΄ΠΎ 12 ΠΎΡ 7 Π΄ΠΎ 8 ΠΎΡ 15 Π΄ΠΎ 16 ΠΎΡ 19 Π΄ΠΎ 20 ΠΎΡ 19 Π΄ΠΎ 20 |
ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΠΎΠ²Π΅ΡΡΠ°Π΅ΠΌΡΠ΅ Π½Π°Π΄ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ:
ΠΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
var ΡΠΏΠΈΡΠΎΠΊ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ : ΡΠΈΠΏ;
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ:
var d,g,k:real;
K ΡΠΈΠΏΡ char ΠΎΡΠ½ΠΎΡΠΈΡΡΡ Π»ΡΠ±ΠΎΠΉ ΡΠΈΠΌΠ²ΠΎΠ» Π·Π°ΠΊΠ»ΡΡΠ΅Π½Π½ΡΠΉ Π² Π°ΠΏΠΎΡΡΡΠΎΡΡ. ΠΠ»Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ Π°ΠΏΠΎΡΡΡΠΎΡΠ° ΠΊΠ°ΠΊ ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ, Π½Π°Π΄ΠΎ Π·Π°ΠΊΠ»ΡΡΠΈΡΡ Π΅Π³ΠΎ Π² Π°ΠΏΠΎΡΡΡΠΎΡ:ββββ.
ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΠΈΠΌΠ΅Π΅Ρ ΡΠ²ΠΎΠΉ ΠΊΠΎΠ΄ ΠΈ Π½ΠΎΠΌΠ΅Ρ. ΠΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠ΅ Π½ΠΎΠΌΠ΅ΡΠ° ΡΠΈΡΡ 0,1..9 ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Ρ ΠΏΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ. ΠΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠ΅ Π½ΠΎΠΌΠ΅ΡΠ° Π±ΡΠΊΠ² ΡΠ°ΠΊΠΆΠ΅ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Ρ ΠΏΠΎ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ, Π½ΠΎ Π½Π΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΡΠ»Π΅Π΄ΡΡΡ Π΄ΡΡΠ³ Π·Π° Π΄ΡΡΠ³ΠΎΠΌ.
Π ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΠΌ Π΄Π°Π½Π½ΡΠΌ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΡ Π·Π½Π°ΠΊΠΈ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ:
> , < , >=, <=, <> .
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ: βAβ < βWβ
Π€ΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΡ ΠΊ ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ:
ΠΡΠΈΠΌΠ΅Ρ:
ord(βaβ)=97;
ΠΡΠΈΠΌΠ΅Ρ:
chr(97)=βaβ;
ΠΡΠΈΠΌΠ΅Ρ:
pred(βBβ)=βAβ;
ΠΡΠΈΠΌΠ΅Ρ:
succ(βAβ)=βBβ;
ΠΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΠΌΡΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ Π½Π°Π·Π²Π°Π½ ΡΠ°ΠΊ ΠΏΠΎΡΠΎΠΌΡ, ΡΡΠΎ Π·Π°Π΄Π°Π΅ΡΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΊΠΎΠ½ΡΡΠ°Π½Ρ Π² ΡΡΡΠΎΠ³ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΠΈ Π² ΡΡΡΠΎΠ³ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π΅. ΠΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΠΌΡΠΉ ΡΠΈΠΏ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° ΠΊΠΎΠ½ΡΡΠ°Π½Ρ. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΡΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΌΠΎΠ³ΡΡ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π»ΡΠ±ΠΎΠΉ ΠΈΠ· ΡΡΠΈΡ ΠΊΠΎΠ½ΡΡΠ°Π½Ρ. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΠΌΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΈΠΌΠ΅Π΅Ρ Π²ΠΈΠ΄:
Type <ΠΈΠΌΡ ΡΠΈΠΏΠ°>=(ΡΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠ½ΡΡΠ°Π½Ρ); Var <ΠΈΠΌΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ>:<ΠΈΠΌΡ ΡΠΈΠΏΠ°>; Β
Π³Π΄Π΅ <ΡΠΏΠΈΡΠΎΠΊ ΠΊΠΎΠ½ΡΡΠ°Π½Ρ> — ΡΡΠΎ ΠΎΡΠΎΠ±ΡΠΉ Π²ΠΈΠ΄ ΠΊΠΎΠ½ΡΡΠ°Π½Ρ, Π·Π°Π΄Π°Π²Π°Π΅ΠΌΡΡ ΡΠ΅ΡΠ΅Π· Π·Π°ΠΏΡΡΡΡ ΠΈ ΠΈΠΌΠ΅ΡΡΠΈΡ ΡΠ²ΠΎΠΉ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΉ Π½ΠΎΠΌΠ΅Ρ, Π½Π°ΡΠΈΠ½Π°Ρ Ρ 0.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ:
type Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅=(ΡΠ΅Π²Π΅Ρ, ΡΠ³, Π·Π°ΠΏΠ°Π΄, Π²ΠΎΡΡΠΎΠΊ); ΠΌΠ΅ΡΡΡ=(ΠΈΡΠ½Ρ,ΠΈΡΠ»Ρ,Π°Π²Π³ΡΡΡ,ΡΠ½Π²Π°ΡΡ); Π΅ΠΌΠΊΠΎΡΡΡ=(Π²Π΅Π΄ΡΠΎ,Π±ΠΎΡΠΊΠ°,ΠΊΠ°Π½ΠΈΡΡΡΠ°,Π±Π°ΠΊ); var ΠΏΠΎΠ²ΠΎΡΠΎΡ:Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅; ΠΎΡΡΠ΅Π·Π΄:ΠΌΠ΅ΡΡΡ; ΠΎΠ±ΡΠ΅ΠΌ:Π΅ΠΌΠΊΠΎΡΡΡ; Β
ΠΈΠ»ΠΈ ΡΠ°ΠΊ:
var ΠΏΠΎΠ²ΠΎΡΠΎΡ:(ΡΠ²Π΅Ρ, ΡΠ³, Π·Π°ΠΏΠ°Π΄, Π²ΠΎΡΡΠΎΠΊ); ΠΎΡΡΠ΅Π·Π΄:(ΠΈΡΠ½Ρ, ΠΈΡΠ»Ρ, Π°Π²Π³ΡΡΡ, ΡΠ½Π²Π°ΡΡ); ΠΎΠ±ΡΠ΅ΠΌ:(Π²Π΅Π΄ΡΠΎ, Π±ΠΎΡΠΊΠ°, ΠΊΠ°Π½ΠΈΡΡΡΠ°, Π±Π°ΠΊ); Β
ΠΠΎΠΆΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΡΠ°ΠΊΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΡ:
ΠΏΠΎΠ²ΠΎΡΠΎΡ:=ΡΠ³; ΠΎΡΡΠ΅Π·Π΄:=Π°Π²Π³ΡΡΡ; ΠΎΠ±ΡΠ΅ΠΌ:=Π±Π°ΠΊ;
Π½ΠΎ Π½Π΅Π»ΡΠ·Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠΌΠ΅ΡΠ°Π½Π½ΡΠ΅ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΡ:
ΠΎΡΡΠ΅Π·Π΄:=ΡΠ³; ΠΎΠ±ΡΠ΅ΠΌ:=Π°Π²Π³ΡΡΡ; Β
Π ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΠΌΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ:
1. ORD — ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΉ Π½ΠΎΠΌΠ΅Ρ
2. PRED — ΠΏΡΠ΅Π΄ΡΠ΅ΡΡΠ²ΡΡΡΠΈΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ
3. SUCC — ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ.
ΠΡΠΈΠΌΠ΅Ρ:
PRED(Π±ΠΎΡΠΊΠ°)=Π²Π΅Π΄ΡΠΎ; SUCC(ΡΠ³)=Π·Π°ΠΏΠ°Π΄; ORD(ΠΈΡΠ»Ρ)=1; Β
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΠΌΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠ°Π²Π½ΠΈΡΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Ρ ΠΈ ΠΏΡΠΎΠ½ΡΠΌΠ΅ΡΠΎΠ²Π°Π½Ρ. Π’Π°ΠΊ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ: ΡΠ΅Π²Π΅Ρ < ΡΠ³, ΠΈΡΠ½Ρ < ΡΠ½Π²Π°ΡΡ ΠΈΠΌΠ΅ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ TRUE, Π° ΡΠ³>Π·Π°ΠΏΠ°Π΄ ΠΈ Π±Π°ΠΊ<Π±ΠΎΡΠΊΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ FΠLSE.
ΠΡΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅Ρ Π½Π΅ Π²ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ²ΠΎΠ΅Π³ΠΎ ΡΠΈΠΏΠ°, Π° ΡΠΎΠ»ΡΠΊΠΎ Π² Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅, ΡΠΎ Π΅Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½ΡΠΉ ΡΠΈΠΏ Π·Π°Π΄Π°Π΅ΡΡΡ ΠΏΡΡΠ΅ΠΌ Π½Π°ΠΊΠ»Π°Π΄ΡΠ²Π°Π½ΠΈΡ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΡ Π½Π° Π±Π°Π·ΠΎΠ²ΡΠ΅ ΡΠΈΠΏΡ.
ΠΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΡΠ°ΠΊ:
TYPE <ΠΈΠΌΡ ΡΠΈΠΏΠ°>=ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ°1..ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ°2
ΠΡΠΈ ΡΡΠΎΠΌ Π΄ΠΎΠ»ΠΆΠ½Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π°:
ΠΡΠΈΠΌΠ΅Ρ:
type index=0..63; letter=βaβ..βzβ; var char1,char2:letter; a,g:index;
ΠΠΎΠΆΠ½ΠΎ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡ ΡΡΠ°Π·Ρ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ :
var a,g:0..63; char1,char2:βaβ..βzβ.
Π ΡΠ·ΡΠΊΠ΅ ΠΠ°ΡΠΊΠ°Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΎ ΠΏΡΡΡ ΡΠ΅Π»ΡΡ ΡΠΈΠΏΠΎΠ².
Π’Π°Π±Π»ΠΈΡΠ°. Π¦Π΅Π»ΡΠ΅ ΡΠΈΠΏΡ Pascal
Π’ΠΈΠΏ | ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π΄ΠΎΠΏΡΡΡΠΈΠΌΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ | ΠΡΠ²ΠΎΠ΄ΠΈΠΌΠ°Ρ ΠΏΠ°ΠΌΡΡΡ, Π² Π±Π°ΠΉΡΠ°Ρ |
---|---|---|
shortint | -128β¦127 | 1 |
integer | -32 768β¦32 767 | 2 |
longint | -2 147 483 648β¦2 147 483 647 | 4 |
byte | 0β¦255 | 1 |
word | 0β¦65 535 | 2 |
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠ΅Π»ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΌΠΎΠ³ΡΡ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅Π»ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. Π’Π°ΠΊΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
ΠΠ΄Π΅ΡΡ a, b, cβ¦ — ΠΈΠΌΠ΅Π½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , integer β ΡΠΈΠΏ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ . Π’ΡΠ°Π½ΡΠ»ΡΡΠΎΡ, Π²ΡΡΡΠ΅ΡΠΈΠ² ΡΠ°ΠΊΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ a, b, c, Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅Ρ, ΡΡΠΎ ΡΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΌΠΎΠ³ΡΡ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅Π»ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈ ΡΠΎΡΠΌΠΈΡΡΠ΅Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ ΡΡΠΎΠΌΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π’Π°Π±Π»ΠΈΡΠ°. ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ ΡΠ΅Π»ΡΠΌΠΈ ΡΠΈΠΏΠ°ΠΌΠΈ, Π΄Π°ΡΡΠΈΠ΅ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅Π»ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°
ΠΠ½Π°ΠΊ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ | ΠΠΏΠ΅ΡΠ°ΡΠΈΡ |
---|---|
+ | Π‘Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ |
— | ΠΡΡΠΈΡΠ°Π½ΠΈΠ΅ |
* | Π£ΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅ |
div | Π¦Π΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π΄Π΅Π»Π΅Π½ΠΈΠ΅ (ΠΎΡΡΠ°ΡΠΎΠΊ ΠΎΡΠ±ΡΠ°ΡΡΠ²Π°Π΅ΡΡΡ). ΠΠ΅Π»Π΅Π½ΠΈΠ΅ Π±Π΅Π· ΠΎΠΊΡΡΠ³Π»Π΅Π½ΠΈΡ (ΡΠ΅Π»Π°Ρ ΡΠ°ΡΡΡ ΡΠ°ΡΡΠ½ΠΎΠ³ΠΎ). |
mod | ΠΠ΅Π»Π΅Π½ΠΈΠ΅ ΠΏΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ (Π²ΡΠ΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΎΡΡΠ°ΡΠΊΠ° ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ). ΠΡΡΠ°ΡΠΎΠΊ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ: a mod b = a β ((a div b) * b). |
ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ ΠΎΠΏΠ΅ΡΠ°Π½Π΄Π°ΠΌΠΈ ΡΠ΅Π»ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΡΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠΈ, ΡΡΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΈ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΎΠΏΠ΅ΡΠ°Π½Π΄ Π½Π΅ ΠΌΠ΅Π½ΡΡΠ΅ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ (ΠΊΡΠ°ΠΉΠ½Π΅Π³ΠΎ Π»Π΅Π²ΠΎΠ³ΠΎ) ΠΈ Π½Π΅ Π±ΠΎΠ»ΡΡΠ΅ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ (ΠΊΡΠ°ΠΉΠ½Π΅Π³ΠΎ ΠΏΡΠ°Π²ΠΎΠ³ΠΎ) Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π² ΠΠ°ΡΠΊΠ°Π»Π΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ° maxint, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΄Π»Ρ ΡΠΈΠΏΠ° integer. Π’ΠΎΠ³Π΄Π° ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΎΠ±Π»ΡΠ΄Π°ΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΡΠ»ΠΎΠ²ΠΈΡ:
(a ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ b) <= maxint,
a <= maxint, b <= maxint.
ΠΠ°Π΄ ΡΠ΅Π»ΡΠΌΠΈ ΡΠΈΠΏΠ°ΠΌΠΈ, ΠΊΠ°ΠΊ ΠΈ ΠΌΠ½ΠΎΠ³ΠΈΠΌΠΈ Π΄ΡΡΠ³ΠΈΠΌΠΈ, Π΄ΠΎΠΏΡΡΡΠΈΠΌΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡ (ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ). Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°ΠΊΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΡΠΈΠΏΡ boolean ΠΈ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΠΎΠ΄Π½ΠΎ ΠΈΠ· Π΄Π²ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ β Π»ΠΈΠ±ΠΎ true (ΠΈΡΡΠΈΠ½Π°), Π»ΠΈΠ±ΠΎ false (Π»ΠΎΠΆΡ).
Π’Π°Π±Π»ΠΈΡΠ°. ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡ
ΠΠ½Π°ΠΊ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ | ΠΠΏΠ΅ΡΠ°ΡΠΈΡ |
---|---|
= | Π Π°Π²Π½ΠΎ |
<> | ΠΠ΅ ΡΠ°Π²Π½ΠΎ |
>= | ΠΠΎΠ»ΡΡΠ΅ ΠΈΠ»ΠΈ ΡΠ°Π²Π½ΠΎ |
> | ΠΠΎΠ»ΡΡΠ΅ |
<= | ΠΠ΅Π½ΡΡΠ΅ ΠΈΠ»ΠΈ ΡΠ°Π²Π½ΠΎ |
< | ΠΠ΅Π½ΡΡΠ΅ |
Π¦Π΅Π»ΡΠ΅ ΡΠΈΠΏΡ ΠΌΠΎΠ³ΡΡ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΡΠ΄ΠΎΠΌ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Pascal.
Π’Π°Π±Π»ΠΈΡΠ°. Π‘ΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Pascal, ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΡΠ΅ ΠΊ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°ΠΌ ΡΠ΅Π»ΡΡ ΡΠΈΠΏΠΎΠ²
Π€ΡΠ½ΠΊΡΠΈΡ | Π’ΠΈΠΏ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° | Π Π΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ |
---|---|---|
abs(x) | Π¦Π΅Π»ΡΠΉ | ΠΠΎΠ΄ΡΠ»Ρ x (Π°Π±ΡΠΎΠ»ΡΡΠ½Π°Ρ Π²Π΅Π»ΠΈΡΠΈΠ½Π° x) |
sqr(x) | Π¦Π΅Π»ΡΠΉ | ΠΠ²Π°Π΄ΡΠ°Ρ x |
succ(x) | Π¦Π΅Π»ΡΠΉ | Π‘Π»Π΅Π΄ΡΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ x (x+1) |
pred(x) | Π¦Π΅Π»ΡΠΉ | ΠΡΠ΅Π΄ΡΠ΄ΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ x (x-1) |
random(x) | Π¦Π΅Π»ΡΠΉ | Π‘Π»ΡΡΠ°ΠΉΠ½ΠΎΠ΅ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΈΠ· ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π° 0..x-1. |
sin(x) | ΠΠ΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ | Π‘ΠΈΠ½ΡΡ x (ΡΠ³ΠΎΠ» Π² ΡΠ°Π΄ΠΈΠ°Π½Π°Ρ ) |
cos(x) | ΠΠ΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ | ΠΠΎΡΠΈΠ½ΡΡ x (ΡΠ³ΠΎΠ» Π² ΡΠ°Π΄ΠΈΠ°Π½Π°Ρ ) |
arctan(x) | ΠΠ΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ | ΠΡΠΊΡΠ°Π½Π³Π΅Π½Ρ x (ΡΠ³ΠΎΠ» Π² ΡΠ°Π΄ΠΈΠ°Π½Π°Ρ ) |
ln(x) | ΠΠ΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ | ΠΠ°ΡΡΡΠ°Π»ΡΠ½ΡΠΉ Π»ΠΎΠ³Π°ΡΠΈΡΠΌ x |
exp(x) | ΠΠ΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ | ΠΠΊΡΠΏΠΎΠ½Π΅Π½ΡΠ° x |
sqrt(x) | ΠΠ΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ | ΠΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠΉ ΠΊΠΎΡΠ΅Π½Ρ ΠΈΠ· x |
odd(x) | ΠΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠΉ | ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ true, Π΅ΡΠ»ΠΈ x β Π½Π΅ΡΠ΅ΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ; false β Π΅ΡΠ»ΠΈ ΡΠ΅ΡΠ½ΠΎΠ΅. |
Π€ΡΠ½ΠΊΡΠΈΡ random Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠ°Π²Π½ΠΎΠΌΠ΅ΡΠ½ΠΎ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ΅ ΡΠ»ΡΡΠ°ΠΉΠ½ΠΎΠ΅ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ, Π΅ΡΠ»ΠΈ Π΅ΠΉ ΠΏΠ΅ΡΠ΅Π΄Π°Π½ ΡΠ΅Π»ΡΠΉ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ. ΠΡΠΈ ΠΏΠΎΠ²ΡΠΎΡΠ½ΠΎΠΌ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΠ½Π° Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠ΅ ΠΆΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΠΎ ΠΈΠ·Π±Π΅ΠΆΠ°Π½ΠΈΠ΅ ΡΡΠΎΠ³ΠΎ ΡΠ»Π΅Π΄ΡΠ΅Ρ Π² Π½Π°ΡΠ°Π»Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΠ·Π²Π°ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π±Π΅Π· ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² randomize.
ΠΡΠΎΡΠ΅Π΄ΡΡΡ inc ΠΈ dec ΠΌΠΎΠ³ΡΡ ΠΈΠΌΠ΅ΡΡ ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡ ΠΈΠ»ΠΈ ΠΏΠΎ Π΄Π²Π° ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° ΡΠ΅Π»ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΡΠ»ΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π΄Π²Π°, ΡΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ (Π΄Π»Ρ inc) ΠΈΠ»ΠΈ ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΡΡΡ (Π΄Π»Ρ dec) Π½Π° Π²Π΅Π»ΠΈΡΠΈΠ½Ρ, ΡΠ°Π²Π½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π²ΡΠΎΡΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, inc(x,2) ΡΠ°Π²Π½ΠΎΠ·Π½Π°ΡΠ½ΠΎ x+2. ΠΡΠ»ΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΠΎΠ΄ΠΈΠ½, ΡΠΎ Π΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ (Π΄Π»Ρ inc) ΠΈΠ»ΠΈ ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΡΡΡ (Π΄Π»Ρ dec) Π½Π° Π΅Π΄ΠΈΠ½ΠΈΡΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, dec(x) ΡΠ°Π²Π½ΠΎΠ·Π½Π°ΡΠ½ΠΎ x-1. (Π’ΠΠΠΠ₯ ΠΠ ΠΠ¦ΠΠΠ£Π ΠΠ FREEPASCAL Π‘ΠΠΠ ΠΠ ΠΠ‘ΠΠΠ ΠΠΠ’.)
Π‘Π»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ² Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°, Π° Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ΅Π»ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°:
trunc(x) β ΠΎΡΠ±ΡΠ°ΡΡΠ²Π°Π½ΠΈΠ΅ Π΄Π΅ΡΡΡΠΈΡΠ½ΡΡ
Π·Π½Π°ΠΊΠΎΠ² ΠΏΠΎΡΠ»Π΅ ΡΠΎΡΠΊΠΈ;
round(x) β ΠΎΠΊΡΡΠ³Π»Π΅Π½ΠΈΠ΅ Π΄ΠΎ ΡΠ΅Π»ΠΎΠ³ΠΎ.
ΠΡΠΈΠΌΠ΅ΡΡ ΡΠ°Π±ΠΎΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ
ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΡ
Π²ΡΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ:
ΠΡΠΈΠΌΠ΅Ρ 1. ΠΡΡΡΡ a = 17, b = 5. Π’ΠΎΠ³Π΄Π° a div b Π΄Π°Π΅Ρ 3, a mod b Π΄Π°Π΅Ρ 2 (ΠΎΡΡΠ°ΡΠΎΠΊ ΠΎΡ Π΄Π΅Π»Π΅Π½ΠΈΡ), sqr(b) Π΄Π°Π΅Ρ 25.
ΠΡΠΈΠΌΠ΅Ρ 2. ΠΡΡΡΡ x = 4.7389. Π’ΠΎΠ³Π΄Π° trunc(x) Π΄Π°Π΅Ρ 4, round(x) Π΄Π°Π΅Ρ 5.
ΠΡΠΈΠΌΠ΅Ρ 3. ΠΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ 4 * 21 Π΄Π°Π΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ΅Π»ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°, Π° 4 * 21.0 β Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ, Ρ.ΠΊ. ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΠΎΠΌΠ½ΠΎΠΆΠΈΡΠ΅Π»Π΅ΠΉ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΉ.
Π ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Pascal ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΏΠΎΠ½ΡΡΠΈΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°, ΠΈΠΌΠ΅ΡΡΠ΅Π΅ ΡΠΌΡΡΠ» Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΠΎΠ±ΡΠ°Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΠΎΠ΄Π½ΠΎ ΠΈ ΡΠΎΠ³ΠΎ ΠΆΠ΅ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΠ°Π·ΠΎΠ²ΡΠΉ ΡΠΈΠΏ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΡΠ΅Π½Ρ Π²ΡΠ΅Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΠΎΠΎΠ±ΡΠ΅ ΠΌΠΎΠ³ΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡΡΡ Π² Π΄Π°Π½Π½ΠΎΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅. Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΌΠΎΠΆΠ΅Ρ Π²ΡΡΡΡΠΏΠ°ΡΡ Π»ΡΠ±ΠΎΠΉ ΠΏΡΠΎΡΡΠΎΠΉ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΉ ΡΠΈΠΏ. ΠΠΎ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠΈΡΠ»Π° (real Π½Π΅ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΉ ΡΠΈΠΏ) ΠΈ ΡΡΡΠΎΠΊΠΈ (Π½Π΅ ΠΏΡΠΎΡΡΠΎΠΉ ΠΈ Π½Π΅ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΉ ΡΠΈΠΏ) Π½Π΅ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°.
Π Π°Π·ΠΌΠ΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π² Turbo Pascal Π²ΡΠ΅Π³Π΄Π° ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ Π½Π΅ΠΊΠΎΡΠΎΡΡΠΌ ΠΏΡΠ΅Π΄Π΅Π»ΡΠ½ΠΎ Π΄ΠΎΠΏΡΡΡΠΈΠΌΡΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ². ΠΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°Ρ Π΄ΠΎΠΏΡΡΠΊΠ°ΡΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΊΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ, ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠΎΡΠΎΡΡΡ Π½Π΅ Π²ΡΡ ΠΎΠ΄ΡΡ Π·Π° Π³ΡΠ°Π½ΠΈΡΡ 0..255. ΠΠ»Ρ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² ΡΡΠΎ ΠΎΠ·Π½Π°ΡΠ°Π΅Ρ, ΡΡΠΎ Π² Π½ΠΈΡ ΠΌΠΎΠ³ΡΡ ΠΏΡΠΈΡΡΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΈΡΠ»Π° ΠΎΡ 0 Π΄ΠΎ 255. ΠΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² Π² Turbo Pascal Π½Π΅ Π΄ΠΎΠΏΡΡΠΊΠ°ΡΡΡΡ. ΠΠΎΡΡΠΎΠΌΡ Π±Π°Π·ΠΎΠ²ΡΠΌΠΈ ΡΠΈΠΏΠ°ΠΌΠΈ Π½Π΅ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠΈΠΏΡ shortint, integer, longint. ΠΡΠ»ΠΈ ΠΆΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΡΠΎ Π±Π°Π·ΠΎΠ²ΡΠΉ ΡΠΈΠΏ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ ΠΊΠ°ΠΊ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ ΡΠΈΠΏΠ° byte. ΠΠ»Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ ΡΠΈΠΌΠ²ΠΎΠ»Ρ, ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΡ Π·Π°ΡΡΡΠ΄Π½Π΅Π½ΠΈΠΉ Π½Π΅Ρ, ΠΏΠΎΡΠΊΠΎΠ»ΡΠΊΡ Π±Π°Π·ΠΎΠ²ΡΠΌ ΡΠΈΠΏΠΎΠΌ Π΄Π»Ρ Π½ΠΈΡ ΡΠ²Π»ΡΠ΅ΡΡΡ char (Π° Π² Π½Π΅ΠΌ 256 Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Ρ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΌΠΈ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌΠΈ ΠΎΡ 0 Π΄ΠΎ 255).
Π ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠ΅ Π΄Π»Ρ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ ΡΠΈΠ³ΡΡΠ½ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, {4, 7, 12}), Π² ΠΠ°ΡΠΊΠ°Π»Ρ β ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠ΅ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, [1, 3, 5]). ΠΠΎΡΡΠ΄ΠΎΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π²ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅ Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. Π’Π°ΠΊ, Π·Π°ΠΏΠΈΡΠ°Π² [3, 6, 9] ΠΈΠ»ΠΈ [9, 3, 6], ΠΌΡ Π±ΡΠ΄Π΅ΠΌ ΠΈΠΌΠ΅ΡΡ Π΄Π΅Π»ΠΎ Ρ ΠΎΠ΄Π½ΠΈΠΌ ΠΈ ΡΠ΅ΠΌ ΠΆΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ. ΠΠΎΠ»Π΅Π΅ ΡΠΎΠ³ΠΎ, ΠΌΠ½ΠΎΠ³ΠΎΠΊΡΠ°ΡΠ½ΠΎΠ΅ ΠΏΠΎΠ²ΡΠΎΡΠ΅Π½ΠΈΠ΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈ ΡΠΎΠ³ΠΎ ΠΆΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π½Π΅ ΠΌΠ΅Π½ΡΠ΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, [4, 7, 3] ΠΈ [3, 7, 4, 4] β ΡΡΠΎ ΠΎΠ΄Π½ΠΎ ΠΈ ΡΠΎ ΠΆΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ.
ΠΠΎ ΡΠΎΡΠΌΠ΅ Π·Π°ΠΏΠΈΡΠΈ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠΈΠΏΠ° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΡ ΠΎΠ΄Π½ΠΎ Ρ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ΠΌ ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°:
var ΠΈΠΌΡ: set of ΡΠΈΠΏ;
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ch
, ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌΠΎΠΉ ΠΊΠ°ΠΊ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Ρ Π±Π°Π·ΠΎΠ²ΡΠΌ ΡΠΈΠΏΠΎΠΌ char, ΠΈΠΌΠ΅Π΅Ρ Π²ΠΈΠ΄:
Π ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π°, ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π½Π΅ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Ρ ΠΈ Π½Π΅ ΠΈΠΌΠ΅ΡΡ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ².
ΠΠΎΠΆΠ½ΠΎ ΡΠ½Π°ΡΠ°Π»Π° ΠΎΠ±ΡΡΠ²ΠΈΡΡ ΡΠΈΠΏ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°, Π° ΠΏΠΎΡΠΎΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π΄Π»Ρ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ :
type t_ch = set of char; var ch2, ch3: t_ch;
ΠΠΎΠ²ΠΎΠ»ΡΠ½ΠΎ ΡΠ°ΡΡΠΎ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΈΠΏ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΈΠ»ΠΈ Π½Π΅ΠΊΠΎΡΠΎΡΡΠΉ Π΅Π³ΠΎ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½:
type week_days = (Mon, Tue, Wed, Thu, Fri); var work_days: set of week_days; lett: set of 'A'..'Z';
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ-ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π½Π΅ Π΄Π°Π΅Ρ Π΅ΠΉ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
Π§ΡΠΎΠ±Ρ Π²ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅ ΠΏΠΎΡΠ²ΠΈΠ»ΠΈΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π½ΠΈΡ, Π² Π»Π΅Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΡΠΎΠΈΡ ΠΈΠΌΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ-ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°, Π° Π² ΠΏΡΠ°Π²ΠΎΠΉ β ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΠΈΠ»ΠΈ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ.
ΠΠΎΠ½ΡΡΡΡΠΊΡΠΎΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° β ΡΡΠΎ Π·Π°ΠΊΠ»ΡΡΠ΅Π½Π½ΡΠΉ Π² ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅Π½Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΡΠ°Π·Π΄Π΅Π»Π΅Π½Π½ΡΡ Π·Π°ΠΏΡΡΡΠΌΠΈ. Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠΎΠ³ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ:
type week_days = (Mon, Tue, Wed, Thu, Fri); var work_days: set of week_days; lett: set of 'A'..'Z'; begin work_days := [Mon, Wed, Thu]; lett := ['C', 'E'..'M', 'Z'] end.
Π‘Π»Π΅Π΄ΡΠ΅Ρ ΠΏΠΎΠΌΠ½ΠΈΡΡ, ΡΡΠΎ ΠΏΡΠΈ Π·Π°Π΄Π°Π½ΠΈΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΠΏΠΎΡΡΠ΄ΠΎΠΊ Π΅Π³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π±Π΅Π·ΡΠ°Π·Π»ΠΈΡΠ΅Π½, Π½ΠΎ ΠΏΡΠΈ Π·Π°Π΄Π°Π½ΠΈΠΈ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° ΡΠ°ΠΊΠΎΠΉ ΠΏΠΎΡΡΠ΄ΠΎΠΊ Π²Π°ΠΆΠ΅Π½.
ΠΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π½Π΅Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΡΡΡΠΌ (ΠΈΠ»ΠΈ Π½ΡΠ»Ρ-ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ). Π ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΠ°ΡΠΊΠ°Π»Ρ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°Π΅ΡΡΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠΌΠΈ ΡΠΊΠΎΠ±ΠΊΠ°ΠΌΠΈ, ΠΌΠ΅ΠΆΠ΄Ρ ΠΊΠΎΡΠΎΡΡΠΌΠΈ Π½Π΅Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ²:
ΠΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΎ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠΎΠΉ, Π΄Π»Ρ ΡΠ΅Π³ΠΎ Π² ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΏΠΎΡΠ»Π΅ Π·Π½Π°ΠΊΠ° ΡΠ°Π²Π΅Π½ΡΡΠ²Π° ΡΠ»Π΅Π΄ΡΠ΅Ρ ΡΠΊΠ°Π·Π°ΡΡ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ:
const lett: set of ['Π°'..'Ρ'] = ['Π°', 'Π΅', 'ΠΈ', 'ΠΎ', 'Ρ', 'Ρ', 'Ρ', 'Ρ', 'Ρ'];
Π Π΄Π°Π½Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΎΠΏΠΈΡΡΠ²Π°Π΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ, ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ Π±ΡΠΊΠ²Ρ ΡΡΡΡΠΊΠΎΠ³ΠΎ Π°Π»ΡΠ°Π²ΠΈΡΠ°, Ρ Π·Π°ΠΏΠΈΡΡΡ Π² Π½Π΅Π³ΠΎ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π³Π»Π°ΡΠ½ΡΡ Π±ΡΠΊΠ².
ΠΠΎΠ½ΡΡΡΡΠΈΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°, ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΏΡΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠΈ, ΡΡΠΎ ΠΈΡ
ΡΠ΅ΠΊΡΡΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠΏΠ°Π΄Π°ΡΡ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°. Π’Π°ΠΊ, Π΅ΡΠ»ΠΈ ch2
ΠΈ ch3
ΠΈΠΌΠ΅ΡΡ ΡΠΈΠΏ char
, ΡΠΎ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠ° ΡΠ»Π΅Π΄ΡΡΡΠ°Ρ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ²:
ch2 := 'A'; ch3 := 'K'; chs := [ch2, ch3, 'M'];
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ [‘A’, ‘K’, ‘M’].
ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π½Π΅Π»ΡΠ·Ρ Π²Π²ΠΎΠ΄ΠΈΡΡ ΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ. ΠΠ»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π²Π²ΠΎΠ΄Π°-Π²ΡΠ²ΠΎΠ΄Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅. Π ΡΠΎ ΠΆΠ΅ Π²ΡΠ΅ΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΠΊΠ°ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ².
ΠΠ°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ Π²ΡΠΏΠΎΠ»Π½ΠΈΠΌΡ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ (+), ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ (*) ΠΈ ΡΠ°Π·Π½ΠΎΡΡΡ (-).
ΠΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Π΄Π²ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² A ΠΈ B (A + B) β ΡΡΠΎ Π½ΠΎΠ²ΠΎΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ, ΡΠΎΡΡΠΎΡΡΠ΅Π΅ ΠΈΠ· ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ A ΠΈΠ»ΠΈ B, Π»ΠΈΠ±ΠΎ ΡΠΎΠΌΡ ΠΈ Π΄ΡΡΠ³ΠΎΠΌΡ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ.
var chs1, chs2, chs3: set of char; begin chs1 := ['a', 'b', 'd']; chs2 := ['m', 'd', 'e']; chs3 := chs1 + chs2 + ['k', 'n']; end.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ: chs3 = ['a', 'b', 'd', 'm', 'e', 'k', 'n'].
ΠΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄Π²ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² A ΠΈ B (A * B) β ΡΡΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ, ΡΠΎΡΡΠΎΡΡΠ΅Π΅ ΠΈΠ· ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌ A ΠΈ B.
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ: chs3 = [‘d’].
Π Π°Π·Π½ΠΎΡΡΡ Π΄Π²ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² A ΠΈ B (A β B) β ΡΡΠΎ Π½ΠΎΠ²ΠΎΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ, ΡΠΎΡΡΠΎΡΡΠ΅Π΅ ΠΈΠ· ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° A, Π½Π΅ Π²ΠΎΡΠ΅Π΄ΡΠΈΡ Π² ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ B.
chs1 := ['a', 'e', 't']; chs2 := chs1 β ['e'] { ['a', 't'] } chs3 := ['m', 'n', 't'] β chs2 { ['m', 'n'] }
ΠΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡΠΌΠΈ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ, ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΊ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌ ΠΈΠ»ΠΈ ΡΠ΄Π°Π»ΡΡΡ ΠΈΡ .
ΠΠ»Ρ Π²ΡΡΠ°Π²ΠΊΠΈ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΏΡΠΈ ΡΠ°Π±ΠΎΡΠ΅ Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ Π² Pascal Π²Π²Π΅Π΄Π΅Π½Ρ Π΄Π²Π΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
include (ΠΈΠΌΡ_ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°, ΡΠ»Π΅ΠΌΠ΅Π½Ρ) exclude (ΠΈΠΌΡ_ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°, ΡΠ»Π΅ΠΌΠ΅Π½Ρ)
ΠΠ΅ΡΠ²Π°Ρ ΠΈΠ· Π½ΠΈΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π² ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ, Π° Π²ΡΠΎΡΠ°Ρ ΡΠ΄Π°Π»ΠΈΡΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ:
include (chs1, 'g'); { Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ chs1 + ['g'] } exclude (chs2, 'a'); { Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ chs2 - ['a'] }
ΠΠ°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠ΅ΡΡΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ: =, <>, >=, <=.
ΠΠ²Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° A ΠΈ B ΡΠ°Π²Π½Ρ (A = B), Π΅ΡΠ»ΠΈ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° A ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° B ΠΈ Π½Π°ΠΎΠ±ΠΎΡΠΎΡ.
ΠΠ²Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° A ΠΈ B Π½Π΅ ΡΠ°Π²Π½Ρ (A <> B), Π΅ΡΠ»ΠΈ ΠΎΠ½ΠΈ ΠΎΡΠ»ΠΈΡΠ°ΡΡΡΡ Ρ ΠΎΡΡ Π±Ρ ΠΎΠ΄Π½ΠΈΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠΌ.
ΠΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ A ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ΄ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° B (A <= B, ΠΈΠ»ΠΈ B >= A), Π΅ΡΠ»ΠΈ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΈΠ· A ΠΏΡΠΈΡΡΡΡΡΠ²ΡΠ΅Ρ Π² B.
ΠΠΌΠ΅Π΅ΡΡΡ ΡΠ°ΠΊΠΆΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²ΡΡΡΠ½ΠΈΡΡ, ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ Π»ΠΈ Π΄Π°Π½Π½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠΌΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΡΠ»ΡΠΆΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ in. ΠΡΡΡΡ A β ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π±Π°Π·ΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°, Π° x β ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ (ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ°, Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅) ΡΡΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. Π’ΠΎΠ³Π΄Π° Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ x in A ΠΈΡΡΠΈΠ½Π½ΠΎ, Π΅ΡΠ»ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ x ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° A.
ΠΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ in Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ true ΠΈΠ»ΠΈ false.
Π ΡΠ»ΠΎΠΆΠ½ΡΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡΡ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΠΈΠΌΠ΅ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΈΠΎΡΠΈΡΠ΅ΡΡ:
Π Pascal Π½Π°Π΄ ΡΠ΅Π»ΡΠΌΠΈ ΡΠΈΠΏΠ°ΠΌΠΈ (byte, shortint, word, integer, longint ΠΈ ΠΈΡ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Ρ) Π΄ΠΎΠΏΡΡΡΠΈΠΌΡ ΠΏΠΎΠ±ΠΈΡΠΎΠ²ΡΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ.
ΠΠ°Π΄ Π±ΠΈΡΠ°ΠΌΠΈ Π΄Π²ΡΡ ΡΠ΅Π»ΡΡ ΠΎΠΏΠ΅ΡΠ°Π½Π΄ΠΎΠ² ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠ°Π½Π΅Π΅ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½Π½ΡΠ΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ: not, and, or, xor. ΠΡΠ»ΠΈΡΠΈΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΠΎΠ±ΠΈΡΠΎΠ²ΡΠΌΠΈ ΠΈ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡΠΌΠΈ ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΏΠΎΠ±ΠΈΡΠΎΠ²ΡΠ΅ (ΠΏΠΎΡΠ°Π·ΡΡΠ΄Π½ΡΠ΅) ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π½Π°Π΄ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΌΠΈ Π±ΠΈΡΠ°ΠΌΠΈ ΠΎΠΏΠ΅ΡΠ°Π½Π΄ΠΎΠ², Π° Π½Π΅ Π½Π°Π΄ ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ Π² Π΄Π΅ΡΡΡΠΈΡΠ½ΠΎΠΌ (ΠΎΠ±ΡΡΠ½ΠΎ) ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠΈ.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠΈΡΠ»ΠΎ 5 Π² Π΄Π²ΠΎΠΈΡΠ½ΠΎΠΌ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠΈ (Π² ΠΎΠ΄Π½ΠΎΠΌ Π±Π°ΠΉΡΠ΅) ΠΈΠΌΠ΅Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 00000101. ΠΠΏΠ΅ΡΠ°ΡΠΈΡ not ΠΈΠ½Π²Π΅ΡΡΠΈΡΡΠ΅Ρ Π±ΠΈΡΡ ΠΈ ΠΌΡ ΠΏΠΎΠ»ΡΡΠΈΠΌ 11111010, Ρ.Π΅ ΡΠΈΡΠ»ΠΎ 250. ΠΡΠ»ΠΈ ΠΏΠΎΠ±ΠΈΡΠΎΠ²ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ or ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊ ΡΠΈΡΠ»Π°ΠΌ 5 (00000101) ΠΈ 3 (00000011), ΡΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ ΡΠΈΡΠ»ΠΎ 7 (00000111).
Π ΠΠ°ΡΠΊΠ°Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Ρ Π΅ΡΠ΅ Π΄Π²Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ Π΄Π°Π½Π½ΡΠΌΠΈ ΡΠ΅Π»ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°, ΠΈΠΌΠ΅ΡΡΠΈΠ΅ ΡΠΎΡ ΠΆΠ΅ ΡΡΠΎΠ²Π΅Π½Ρ ΠΏΡΠΈΠΎΡΠΈΡΠ΅ΡΠ°, ΡΡΠΎ ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ and, *, /, div ΠΈ mod. ΠΡΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ shl ΠΈ shr, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ΄Π²ΠΈΠ³Π°ΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π±ΠΈΡΠΎΠ² Π½Π° Π·Π°Π΄Π°Π½Π½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΏΠΎΠ·ΠΈΡΠΈΠΉ Π²Π»Π΅Π²ΠΎ ΠΈΠ»ΠΈ Π²ΠΏΡΠ°Π²ΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ. ΠΡΠΈ ΡΡΠΎΠΌ Π±ΠΈΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΡΡ ΠΎΠ΄ΡΡ Π·Π° ΡΠ°Π·ΡΡΠ΄Π½ΡΡ ΡΠ΅ΡΠΊΡ, ΡΠ΅ΡΡΡΡΡΡ. ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ shl ΠΎΡΠ²ΠΎΠ±ΠΎΠ΄ΠΈΠ²ΡΠΈΠ΅ΡΡ ΡΠΏΡΠ°Π²Π° Π±ΠΈΡΡ Π·Π°ΠΏΠΎΠ»Π½ΡΡΡΡΡ Π½ΡΠ»ΡΠΌΠΈ. ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ shr ΠΎΡΠ²ΠΎΠ±ΠΎΠ΄ΠΈΠ²ΡΠΈΠ΅ΡΡ ΡΠ»Π΅Π²Π° Π±ΠΈΡΡ Π·Π°ΠΏΠΎΠ»Π½ΡΡΡΡΡ Π΅Π΄ΠΈΠ½ΠΈΡΠ°ΠΌΠΈ ΠΏΡΠΈ ΡΠ΄Π²ΠΈΠ³Π΅ Π²ΠΏΡΠ°Π²ΠΎ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΈ Π½ΡΠ»ΡΠΌΠΈ Π² ΡΠ»ΡΡΠ°Π΅ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ.
Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ shl Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π° Π·Π°ΠΌΠ΅Π½Π° ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠ΅Π»ΡΡ ΡΠΈΡΠ΅Π» Π½Π° ΡΡΠ΅ΠΏΠ΅Π½ΠΈ Π΄Π²ΠΎΠΉΠΊΠΈ. Π‘Π»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠ°ΡΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠΉ ΠΏΡΠΈΠ²ΠΎΠ΄ΡΡ ΠΊ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΠΎΠΌΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ: (a shl 1) = a * 2, (a shl 2) = a * 4, (a shl3) = a * 8.
ΠΡΠΈΠΌΠ΅Ρ ΠΏΠΎΠ±ΠΈΡΠΎΠ²ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΈ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ΄Π²ΠΈΠ³Π°
var A, B: byte; begin A := 11; {00001011} B := 6; {00000110} writeln('A=', A); writeln('B=', B); writeln('not A = ', not A); {11110100 = 244} writeln('A and B = ', A and B); {00000010 = 2} writeln('A or B = ', A or B); {00001111 = 15} writeln('A xor B = ', A xor B); {00001101 = 13} writeln('A shl 1 = ', A shl 1); {00010110 = 22} writeln('B shr 2 = ', B shr 2); {00000001 = 1} end.
ΠΠΏΠ΅ΡΠ°ΡΠΈΡ and ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΠ΅Π³Π΄Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΡ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· Π΄Π²ΡΡ ΡΠ΅Π»Π΅ΠΉ: ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ Π½Π°Π»ΠΈΡΠΈΠ΅ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΡΡ Π² Π΅Π΄ΠΈΠ½ΠΈΡΡ Π±ΠΈΡΠΎΠ² ΠΈΠ»ΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²ΠΈΡΡ ΠΎΠ±Π½ΡΠ»Π΅Π½ΠΈΠ΅ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ Π±ΠΈΡΠΎΠ².
ΠΠΎΠ΄ΠΎΠ±Π½Π°Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° Π½ΡΠΆΠ½Π°, Π΅ΡΠ»ΠΈ ΡΠΈΡΠ»ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ Π½Π°Π±ΠΎΡ ΠΏΡΠΈΠ·Π½Π°ΠΊΠΎΠ² Ρ Π΄Π²ΡΠΌΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠΌΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ (Π½Π°Π±ΠΎΡ ΡΠ»Π°Π³ΠΎΠ²). Π’Π°ΠΊ, ΠΌΠ½ΠΎΠ³ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΠ½ΡΠ΅ ΡΡΠ΅ΠΉΠΊΠΈ ΠΏΠ°ΠΌΡΡΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΠΊΠΎΠ½ΡΠΈΠ³ΡΡΠ°ΡΠΈΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ΠΈΠ»ΠΈ Π΅Π³ΠΎ ΡΠΎΡΡΠΎΡΠ½ΠΈΠΈ. ΠΡΠΈ ΡΡΠΎΠΌ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π±ΠΈΡΠ° Ρ ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΡΠΌ Π½ΠΎΠΌΠ΅ΡΠΎΠΌ Π² 1 ΡΡΠ°ΠΊΡΡΠ΅ΡΡΡ ΠΊΠ°ΠΊ Π²ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΊΠ°ΠΊΠΎΠ³ΠΎ-Π»ΠΈΠ±ΠΎ ΡΠ΅ΠΆΠΈΠΌΠ°, Π° Π² 0 β Π²ΡΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΡΡΠΎΠ³ΠΎ ΡΠ΅ΠΆΠΈΠΌΠ°.
ΠΡΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ a ΠΈΠΌΠ΅Π΅Ρ ΡΠΈΠΏ byte ΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ Π±Π°ΠΉΡΠΎΠΌ Ρ Π²ΠΎΡΠ΅ΠΌΡΡ ΡΠ»Π°Π³Π°ΠΌΠΈ. ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅ Π±ΠΈΡΠ° Ρ Π½ΠΎΠΌΠ΅ΡΠΎΠΌ 5 (Π±ΠΈΡΡ Π½ΡΠΌΠ΅ΡΡΡΡΡΡ ΡΠΏΡΠ°Π²Π° Π½Π°Π»Π΅Π²ΠΎ ΠΎΡ 0 Π΄ΠΎ 7). ΠΠ΄ΠΈΠ½ΠΈΡΠ° Π² Π±ΠΈΡΠ΅ 5 β ΡΡΠΎ ΠΏΡΡΠ°Ρ ΡΡΠ΅ΠΏΠ΅Π½Ρ ΡΠΈΡΠ»Π° 2, Ρ.Π΅. 32 (00100000). ΠΠΎΡΡΠΎΠΌΡ, Π΅ΡΠ»ΠΈ Π² ΠΏΡΡΠΎΠΌ Π±ΠΈΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ a ΡΡΠΎΠΈΡ Π΅Π΄ΠΈΠ½ΠΈΡΠ°, ΡΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ (a and 32) = 32, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ΅ Π²Π΅ΡΠ²Π»Π΅Π½ΠΈΡ if. ΠΡΠ»ΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΡΡ Π² Π΅Π΄ΠΈΠ½ΠΈΡΡ Π±ΠΈΡΠΎΠ², ΡΠΎ Π½ΡΠΆΠ½ΠΎ Π²ΡΡΠΈΡΠ»ΠΈΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΡΠΈΡΠ»ΠΎ ΠΊΠ°ΠΊ ΡΡΠΌΠΌΡ ΡΡΠ΅ΠΏΠ΅Π½Π΅ΠΉ ΡΠΈΡΠ»Π° 2, Π³Π΄Π΅ ΠΏΠΎΠΊΠ°Π·Π°ΡΠ΅Π»ΠΈ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ ΡΠ°Π²Π½Ρ Π½ΠΎΠΌΠ΅ΡΠ°ΠΌ Π±ΠΈΡΠΎΠ², ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΡΡ Π² 1. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΄Π»Ρ Π±ΠΈΡΠΎΠ² 5, 2 ΠΈ 0 ΠΈΠΌΠ΅Π΅ΠΌ 32+4+1=37. ΠΡΠ»ΠΈ a ΠΈΠΌΠ΅Π΅Ρ ΡΡΠ΅Π΄ΠΈ ΠΏΡΠΎΡΠΈΡ Π΅Π΄ΠΈΠ½ΠΈΡΡ Π² Π±ΠΈΡΠ°Ρ 5, 2, 0, ΡΠΎ Π²ΡΠΏΠΎΠ»Π½ΠΈΡΡΡ ΡΡΠ»ΠΎΠ²ΠΈΠ΅ (a and 37) = 37.
ΠΡΡΡΡ Π½ΡΠΆΠ½ΠΎ ΠΎΠ±Π½ΡΠ»ΠΈΡΡ ΠΊΠ°ΠΊΠΎΠΉ-Π»ΠΈΠ±ΠΎ Π±ΠΈΡ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ a ΡΠΈΠΏΠ° byte (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π±ΠΈΡ 3). ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ ΡΠ½Π°ΡΠ°Π»Π° ΡΠΈΡΠ»ΠΎ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π΅ Π΅Π΄ΠΈΠ½ΠΈΡΡ Π²ΠΎ Π²ΡΠ΅Ρ Π±ΠΈΡΠ°Ρ , ΠΊΡΠΎΠΌΠ΅ ΡΡΠ΅ΡΡΠ΅Π³ΠΎ. ΠΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π² ΡΠΈΠΏ byte, ΡΠ°Π²Π½ΡΠ΅ΡΡΡ 255. Π§ΡΠΎΠ±Ρ Π² Π½Π΅ΠΌ ΠΎΠ±Π½ΡΠ»ΠΈΡΡ ΡΡΠ΅ΡΠΈΠΉ Π±ΠΈΡ, Π²ΡΡΡΠ΅ΠΌ ΠΈΠ· ΡΡΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° ΡΡΠ΅ΡΡΡ ΡΡΠ΅ΠΏΠ΅Π½Ρ ΡΠΈΡΠ»Π° 2 (255-8=247). ΠΡΠ»ΠΈ ΡΡΠΎ ΡΠΈΡΠ»ΠΎ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈ ΡΠΌΠ½ΠΎΠΆΠΈΡΡ Π½Π° a, ΡΠΎ Π΅Π³ΠΎ Π΅Π΄ΠΈΠ½ΠΈΡΡ Π½ΠΈΠΊΠ°ΠΊ Π½Π΅ ΡΠΊΠ°ΠΆΡΡΡΡ Π½Π° ΡΠΎΡΡΠΎΡΠ½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ a, Π° Π½ΡΠ»Ρ Π² ΡΡΠ΅ΡΡΠ΅ΠΌ Π±ΠΈΡΠ΅ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ΅ΡΡΠ΅Π³ΠΎ Π±ΠΈΡΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ a Π΄Π°ΡΡ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ 0. ΠΡΠ°ΠΊ, ΠΈΠΌΠ΅Π΅ΠΌ a:= a and (255-8). ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±Π½ΡΠ»ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π±ΠΈΡΠΎΠ².
ΠΠΏΠ΅ΡΠ°ΡΠΈΡ or ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ΅ Π² Π΅Π΄ΠΈΠ½ΠΈΡΡ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΡ Π±ΠΈΡΠΎΠ² Π΄Π²ΠΎΠΈΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠ΅Π»ΡΡ ΡΠΈΡΠ΅Π». Π’Π°ΠΊ, ΡΡΠΎΠ±Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π±ΠΈΡ 4 ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ a Π² Π΅Π΄ΠΈΠ½ΠΈΡΡ Π±Π΅Π· ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ Π±ΠΈΡΠΎΠ², ΡΠ»Π΅Π΄ΡΠ΅Ρ Π·Π°ΠΏΠΈΡΠ°ΡΡ a:= a or 16, Π³Π΄Π΅ 16 β ΡΠ΅ΡΠ²Π΅ΡΡΠ°Ρ ΡΡΠ΅ΠΏΠ΅Π½Ρ ΡΠΈΡΠ»Π° 2. ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡΡΡ Π² Π΅Π΄ΠΈΠ½ΠΈΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π±ΠΈΡΠΎΠ².
ΠΠΏΠ΅ΡΠ°ΡΠΈΡ xor ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ Π΄Π»Ρ ΡΠΌΠ΅Π½Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π±ΠΈΡΠ° (ΠΈΠ»ΠΈ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π±ΠΈΡΠΎΠ²) Π½Π° ΠΏΡΠΎΡΠΈΠ²ΠΎΠΏΠΎΠ»ΠΎΠΆΠ½ΠΎΠ΅ (1 Π½Π° 0 ΠΈΠ»ΠΈ 0 Π½Π° 1). Π’Π°ΠΊ, ΡΡΠΎΠ±Ρ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠΈΡΡ Π² ΠΏΡΠΎΡΠΈΠ²ΠΎΠΏΠΎΠ»ΠΎΠΆΠ½ΠΎΠ΅ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅ 3-ΠΉ Π±ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ a, ΡΠ»Π΅Π΄ΡΠ΅Ρ Π·Π°ΠΏΠΈΡΠ°ΡΡ a:= a xor 8, Π³Π΄Π΅ 8 β ΡΡΠ΅ΡΡΡ ΡΡΠ΅ΠΏΠ΅Π½Ρ ΡΠΈΡΠ»Π° 2.
Pascal β ΡΠ·ΡΠΊ ΡΠΎ ΡΡΡΠΎΠ³ΠΎΠΉ ΡΠΈΠΏΠΈΠ·Π°ΡΠΈΠ΅ΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ . ΠΡΠΎ Π·Π½Π°ΡΠΈΡ, ΡΡΠΎ ΠΌΡ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΡΠΈΠΏ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΠΈ Π½Π΅ ΠΌΠΎΠΆΠ΅ΠΌ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΄ΡΡΠ³ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° (Π΅ΡΠ»ΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ½ΠΈ Π½Π΅ ΡΠΊΠ²ΠΈΠ²Π°Π»Π΅Π½ΡΠ½Ρ).
Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠΈΠΌΠ΅ΡΠ° Π²ΠΎΠ·ΡΠΌΠ΅ΠΌ ΡΠ°ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π²ΡΡΠΈΡΠ»ΡΠ΅Ρ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΊΡΡΠ³Π° ΠΏΠΎ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡ ΡΠ°Π΄ΠΈΡΡΡ:
S := r*r*3.14;
ΠΡΠ»ΠΈ ΠΌΡ ΡΠΊΠ°ΠΆΠ΅ΠΌ, ΡΡΠΎ Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ S ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠΉ ΡΠΈΠΏ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π±ΡΠ΄Π΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π½Π΅ Π²Π΅ΡΠ½ΠΎ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ r*r*3.14Β Π±ΡΠ΄Π΅Ρ Π΄ΡΠΎΠ±Ρ, ΠΈ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π΄ΡΠΎΠ±Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΌΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΠΌ.
ΠΡΠ΅ ΠΎΠ΄ΠΈΠ½ ΠΏΡΠΈΠΌΠ΅Ρ. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΊΠ»Π°Π΄ΡΠ²Π°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΄Π²ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ :
a := 5;
b := 4;
c := a+b;
ΠΡΠ»ΠΈ ΠΌΡ ΡΠΊΠ°ΠΆΠ΅ΠΌ, ΡΡΠΎ a, b ΠΈ c ΡΠ²Π»ΡΡΡΡΡ ΡΠΈΡΠ»Π°ΠΌΠΈ, ΡΠΎ Π²ΠΏΠΎΠ»Π½Π΅ Π»ΠΎΠ³ΠΈΡΠ½ΠΎ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΡΡ, ΡΡΠΎ ΠΏΠΎΡΠ»Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ c ΡΡΠ°Π½Π΅Ρ ΡΠ°Π²Π½ΠΎ 9-ΡΠΈ. ΠΠΎ ΡΡΠΎ Π±ΡΠ΄Π΅Ρ, Π΅ΡΠ»ΠΈ a ΠΈ b ΡΠ²Π»ΡΡΡΡΡ Π½Π΅ ΡΠΈΡΠ»Π°ΠΌΠΈ, Π° ΠΏΡΠΎΡΡΡΠΌΠΈ ΡΠΈΠΌΠ²ΠΎΠ»Π°ΠΌΠΈ, Π° c β ΡΡΡΠΎΠΊΠΎΠΉ?
a := β5β;
b := β4β;
c := a+b;
Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΌΡ Π½Π΅ ΠΌΠΎΠΆΠ΅ΠΌ ΡΠ»ΠΎΠΆΠΈΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π΄Π²Π° Π·Π½Π°ΡΠ΅Π½ΠΈΡ (Π½Ρ ΠΏΡΠ°Π²Π΄Π°, ΠΌΡ ΠΆΠ΅ Π½Π΅ ΠΌΠΎΠΆΠ΅ΠΌ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠ»ΠΎΠΆΠΈΡΡ Π΄Π²Π΅ Π±ΡΠΊΠ²Ρ), ΠΈ ΡΠΈΠΌΠ²ΠΎΠ»Ρ ΠΏΡΠΎΡΡΠΎ ΠΏΠΎΠ΄ΡΡΠ°Π²ΡΡΡΡ Π΄ΡΡΠ³ ΠΊ Π΄ΡΡΠ³Ρ, ΡΠΎ Π΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ c Π±ΡΠ΄Π΅Ρ ΡΠ°Π²Π½ΠΎ β54β.
ΠΡΠΎΠΌΠ΅ ΡΡΠΎΠ³ΠΎ, ΠΏΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ Π²ΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π±Π°ΠΉΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ ΡΠΈΠΏΠ° ΡΡΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ. Π Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Ρ ΡΡΠΈΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎΠΌ Π±Π°ΠΉΡ. Π ΠΏΡΠΈΠΌΠ΅ΡΡ, ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ Ρ ΡΠΈΠΏΠΎΠΌ Π΄Π°Π½Π½ΡΡ byte Π²ΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ 1 Π±Π°ΠΉΡ ΠΏΠ°ΠΌΡΡΠΈ, ΠΈ ΠΎΠ½Π° ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΡ 0 Π΄ΠΎ 255, Π²ΡΠ΅Π³ΠΎ 256, ΡΡΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎΠΌ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ², ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΊΠΎΠ΄ΠΈΡΠΎΠ²Π°ΡΡ ΠΎΠ΄Π½ΠΈΠΌ Π±Π°ΠΉΡΠΎΠΌ. ΠΡΠ»ΠΈ ΠΆΠ΅ ΠΌΡ ΡΠΊΠ°ΠΆΠ΅ΠΌ Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠΈΠΏ byte, Π½ΠΎ ΠΏΡΠΈΡΠ²ΠΎΠΈΠΌ Π΅ΠΉ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊ ΠΏΡΠΈΠΌΠ΅ΡΡ, 1000, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΠ°ΡΡ Π½Π΅ Π±ΡΠ΄Π΅Ρ.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π»ΡΠ±ΠΎΠ΅ ΡΠ΅Π»ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΡΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. Π’Π°ΠΊΠΆΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΌ ΡΠΈΠΏΠΎΠΌ.
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° (Π±Π°ΠΉΡ) | ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ |
byte | 1 | 0..255 |
shortint | 1 | -128..127 |
integer | 2 | -32768..32767 |
word | 2 | 0..65536 |
longint | 4 | -2147483648..2147483647 |
Π Π·Π°Π΄Π°Π½ΠΈΡΡ ΠΠΠ,Β ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ integer.
Π Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠΌΡ ΡΠΈΠΏΡ ΠΎΡΠ½ΠΎΡΡΡ Π΄ΡΠΎΠ±Π½ΡΠ΅ ΡΠΈΡΠ»Π° ΠΈ ΡΠΈΡΠ»Π° Ρ ΠΏΠ»Π°Π²Π°ΡΡΠ΅ΠΉ Π·Π°ΠΏΡΡΠΎΠΉ. Π’Π΅ΠΌ Π½Π΅ ΠΌΠ΅Π½Π΅Π΅,Β ΠΌΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠΌΡ ΡΠΈΠΏΡ ΡΠ΅Π»ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅.
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° (Π±Π°ΠΉΡ) | ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ |
single | 4 | 1.5*10-45 — 3.4*1038 |
real | 6 | 2.9*10-39 — 1.7*1038 |
double | 8 | 5*10-324 — 1.7*10308 |
extended | 10 | 3.4*10-4932 — 1.1*104932 |
Π Π·Π°Π΄Π°Π½ΠΈΡΡ ΠΠΠ, ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ real.
ΠΡΠ±ΠΎΠΉ ΠΎΠ΄ΠΈΠ½ΠΎΡΠ½ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ».
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° (Π±Π°ΠΉΡ) | ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ |
char | 1 | ΠΡΠ±ΠΎΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΠΊΠΎΠ΄ΠΈΡΠΎΠ²ΠΊΠΈ ASCII |
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠΈΠΏΠ° char ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ Π»ΡΠ±ΡΡ Π±ΡΠΊΠ²Ρ, ΡΠΈΡΡΡ, ΠΈΠ»ΠΈ Π»ΡΠ±ΠΎΠΉ Π΄ΡΡΠ³ΠΎΠΉ ΡΠΈΠΌΠ²ΠΎΠ» ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΉ ΠΊΠΎΠ΄ΠΈΡΠΎΠ²ΠΊΠΈ. Π’Π°ΠΊΠΆΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΌ ΡΠΈΠΏΠΎΠΌ.
ΠΡΠ»ΠΈ char —Β ΡΡΠΎ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½ ΡΠΈΠΌΠ²ΠΎΠ»,Β ΡΠΎ ΡΡΡΠΎΠΊΠ° — ΡΡΠΎ Π½Π°Π±ΠΎΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ². Π‘ΡΡΠΎΠΊΠΎΠΉ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ, ΠΊ ΠΏΡΠΈΠΌΠ΅ΡΡ,Β ΡΠ»ΠΎΠ²ΠΎ, ΡΠΎΡΡΠΎΡΡΠ΅Π΅ ΠΈΠ· Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ Π±ΡΠΊΠ². Π’Π°ΠΊΠΆΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΎΡΠ½ΠΎΡΡΡ ΠΊ ΡΡΡΡΠΊΡΡΡΠ½ΡΠΌ ΡΠΈΠΏΠ°ΠΌ.
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° (Π±Π°ΠΉΡ) | ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ |
string | 256 | 255 ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΊΠΎΠ΄ΠΈΡΠΎΠ²ΠΊΠΈ ASCII |
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠΈΠΏΠ° ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π²Π° Π·Π½Π°ΡΠ΅Π½ΠΈΡ: true ΠΈΠ»ΠΈ false (ΠΈΡΡΠΈΠ½Π° ΠΈΠ»ΠΈ Π»ΠΎΠΆΡ). Π―Π²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΠΌ ΡΠΈΠΏΠΎΠΌ.
Π’ΠΈΠΏ | ΠΠ»ΠΈΠ½Π° (Π±Π°ΠΉΡ) | ΠΠΈΠ°ΠΏΠ°Π·ΠΎΠ½ |
boolean | 1 | true, false |
ΠΠ½ΡΠ΅ΡΠ²Π°Π»ΡΠ½ΡΠΉ ΡΠΈΠΏ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ, ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, Π΄ΠΎ Π΄ΡΡΠ³ΠΎΠ³ΠΎ. Π ΠΏΡΠΈΠΌΠ΅ΡΡ,Β ΠΌΡ Π·Π½Π°Π΅ΠΌ, ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΡ 5 Π΄ΠΎ 25. ΠΡ ΠΌΠΎΠΆΠ΅ΠΌ ΠΎΠ±ΡΡΠ²ΠΈΡΡ Π΅Ρ ΡΠΈΠΏ ΡΠ°ΠΊ:
var
a: 5..25;
Β
ΠΡΠ±Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, Π½Π°ΠΏΠΈΡΠ°Π½Π½Π°Ρ Π½Π° Π»ΡΠ±ΠΎΠΌ ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΏΠΎ Π±ΠΎΠ»ΡΡΠΎΠΌΡ ΡΡΠ΅ΡΡ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ . Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π΄Π°Π½Π½ΡΡ ΠΌΠΎΠ³ΡΡ Π²ΡΡΡΡΠΏΠ°ΡΡ ΡΠΈΡΠ»Π°, ΡΠ΅ΠΊΡΡΡ, Π³ΡΠ°ΡΠΈΠΊΠ°, Π·Π²ΡΠΊ ΠΈ Π΄Ρ. ΠΠ΄Π½ΠΈ Π΄Π°Π½Π½ΡΠ΅ ΡΠ²Π»ΡΡΡΡΡ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ, Π΄ΡΡΠ³ΠΈΠ΅ β ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΡΡ ΠΏΡΡΠ΅ΠΌ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ.
ΠΠ°Π½Π½ΡΠ΅ Ρ ΡΠ°Π½ΡΡΡΡ Π² ΠΏΠ°ΠΌΡΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΎΠ±ΡΠ°ΡΠ°Π΅ΡΡΡ ΠΊ Π½ΠΈΠΌ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΈΠΌΠ΅Π½ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , ΡΠ²ΡΠ·Π°Π½Π½ΡΡ Ρ ΡΡΠ°ΡΡΠΊΠ°ΠΌΠΈ ΠΏΠ°ΠΌΡΡΠΈ, Π³Π΄Π΅ Ρ ΡΠ°Π½ΡΡΡΡ Π΄Π°Π½Π½ΡΠ΅.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ Π΄ΠΎ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ΄Π΅ΡΡ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΡΡ ΠΈΠΌΠ΅Π½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΈ ΡΠΈΠΏ Ρ ΡΠ°Π½ΠΈΠΌΡΡ Π² Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ .
Π ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΠ°ΡΠΊΠ°Π»Ρ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΌΠ½ΠΎΠ³ΠΎ ΡΠΈΠΏΠΎΠ² Π΄Π°Π½Π½ΡΡ . ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΡΠ°ΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠΆΠ΅Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΡΠ²ΠΎΠΈ ΡΠΈΠΏΡ.
Π’ΠΈΠΏ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ, ΠΊΠ°ΠΊΠΈΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Ρ ΡΠ°Π½ΠΈΡΡ Π² ΡΠ²ΡΠ·Π°Π½Π½ΠΎΠΉ Ρ Π½Π΅ΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ ΠΏΠ°ΠΌΡΡΠΈ.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠΈΠΏΠ° integer ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠ²ΡΠ·Π°Π½Ρ ΡΠΎΠ»ΡΠΊΠΎ Ρ ΡΠ΅Π»ΡΠΌΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ ΠΎΠ±ΡΡΠ½ΠΎ Π² Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅ ΠΎΡ -32768 Π΄ΠΎ 32767. Π Pascal Π΅ΡΡΡ Π΄ΡΡΠ³ΠΈΠ΅ ΡΠ΅Π»ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΡΠΈΠΏΡ (byte, longint).
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΡΠΈΠΏΠ° real Ρ ΡΠ°Π½ΡΡ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ (Π΄ΡΠΎΠ±Π½ΡΠ΅) ΡΠΈΡΠ»Π°.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π±ΡΠ»Π΅Π²ΡΠΊΠΎΠ³ΠΎ (Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ) ΡΠΈΠΏΠ° (boolean) ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π²Π° Π·Π½Π°ΡΠ΅Π½ΠΈΡ — true (1, ΠΏΡΠ°Π²Π΄Π°) ΠΈΠ»ΠΈ false (0, Π»ΠΎΠΆΡ).
Π‘ΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΠΉ ΡΠΈΠΏ (char) ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ· ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Π½ΠΎΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ².
ΠΠ½ΡΠ΅ΡΠ²Π°Π»ΡΠ½ΡΠΉ ΡΠΈΠΏ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΈ ΡΠΎΡΠΌΠΈΡΡΠ΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΈΠ· ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΡΡ ΡΠΈΠΏΠΎΠ². ΠΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΠΎΠ΄ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π² ΠΊΠΎΠ½ΠΊΡΠ΅ΡΠ½ΠΎΠΌ Π΄ΠΈΠ°ΠΏΠ°Π·ΠΎΠ½Π΅.
ΠΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ ΠΏΡΠΎΡΡΡΠΌ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΡΠΎ ΡΠ°ΠΊ Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΠΉ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΡΠ΅ΠΌΡΠΉ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ .
ΠΡΠ΅ Π²ΡΡΠ΅ΠΎΠΏΠΈΡΠ°Π½Π½ΠΎΠ΅ β ΡΡΠΎ ΠΏΡΠΎΡΡΡΠ΅ ΡΠΈΠΏΡ Π΄Π°Π½Π½ΡΡ . ΠΠΎ Π±ΡΠ²Π°ΡΡ ΠΈ ΡΠ»ΠΎΠΆΠ½ΡΠ΅, ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Π±Π°Π·ΠΈΡΡΡΡΡΡ Π½Π° ΠΏΡΠΎΡΡΡΡ ΡΠΈΠΏΠ°Ρ .
ΠΠ°ΡΡΠΈΠ² β ΡΡΠΎ ΡΡΡΡΠΊΡΡΡΠ°, Π·Π°Π½ΠΈΠΌΠ°ΡΡΠ°Ρ Π² ΠΏΠ°ΠΌΡΡΠΈ Π΅Π΄ΠΈΠ½ΡΡ ΠΎΠ±Π»Π°ΡΡΡ ΠΈ ΡΠΎΡΡΠΎΡΡΠ°Ρ ΠΈΠ· ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°.
Π‘ΡΡΠΎΠΊΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ². ΠΡΠΈΡΠ΅ΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΠΈΡ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π±ΠΎΠ»ΡΡΠ΅ 255 Π²ΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ. Π’Π°ΠΊΠΎΠ΅ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ΅ΡΡΠΎΠΉ Pascal.
ΠΠ°ΠΏΠΈΡΡ β ΡΡΠΎ ΡΡΡΡΠΊΡΡΡΠ°, ΡΠΎΡΡΠΎΡΡΠ°Ρ ΠΈΠ· ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΡ ΠΏΠΎΠ»ΡΠΌΠΈ. Π ΡΠ°Π·Π½ΡΡ ΠΏΠΎΠ»ΡΡ Π·Π°ΠΏΠΈΡΠΈ Π΄Π°Π½Π½ΡΠ΅ ΠΌΠΎΠ³ΡΡ ΠΈΠΌΠ΅ΡΡ ΡΠ°Π·Π½ΡΠΉ ΡΠΈΠΏ.
ΠΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΡΠΎΠ±ΠΎΠΉ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², Π½ΠΎ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈ ΡΠΎΠ³ΠΎ ΠΆΠ΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΠΈΠΏΠ°.
Π€Π°ΠΉΠ»Ρ Π΄Π»Ρ Pascal ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΡΠΎΠ±ΠΎΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΠΎΠ΄Π½ΠΎΡΠΈΠΏΠ½ΡΡ Π΄Π°Π½Π½ΡΡ , ΠΊΠΎΡΠΎΡΡΠ΅ Ρ ΡΠ°Π½ΡΡΡΡ Π½Π° ΡΡΡΡΠΎΠΉΡΡΠ²Π°Ρ Π²Π½Π΅ΡΠ½Π΅ΠΉ ΠΏΠ°ΠΌΡΡΠΈ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΆΠ΅ΡΡΠΊΠΎΠΌ Π΄ΠΈΡΠΊΠ΅).
ΠΠΎΠ½ΡΡΠΈΠ΅ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ ΠΊΠ°ΠΊ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ²ΡΠ·Π°Π½ΠΎ Ρ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΌ Ρ ΡΠ°Π½Π΅Π½ΠΈΠ΅ΠΌ Π΄Π°Π½Π½ΡΡ Π² ΠΏΠ°ΠΌΡΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°. Π§Π°ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΈΠΏΠΎΠ² Π΄Π°Π½Π½ΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΠΌ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ, ΡΠ΅ΠΌ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ .
ΠΠΎΠ΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ Π² ΠΠ°ΡΠΊΠ°Π»Π΅ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅ΡΡΡ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ Π²Π·Π°ΠΈΠΌΠΎΡΠ²ΡΠ·Π°Π½Π½ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°. ΠΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΠΏΠΎΡΡΠ΄ΠΊΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π΄Π°Π½Π½ΡΡ ΠΈ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ΠΌ ΠΈ/ΠΈΠ»ΠΈ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠΌ. Π‘Π»ΡΠΆΠ΅Π±Π½ΡΠ΅ ΡΠ»ΠΎΠ²Π° Set Of Π³ΠΎΠ²ΠΎΡΡΡ, ΡΡΠΎ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠΈΠΏ:
Type <ΠΈΠΌΡ ΡΠΈΠΏΠ°> = Set Of <Π±Π°Π·ΠΎΠ²ΡΠΉ ΡΠΈΠΏ>;
Π Π°Π·ΠΌΠ΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΠΌΠΎΠΆΠ΅Ρ ΠΌΠ΅Π½ΡΡΡΡΡ, Π½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π² Π½Π΅ΠΌ, ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΡΠ΅Π²ΡΡΠ°ΡΡ 256. ΠΠΎΡΡΠΎΠΌΡ Π΅ΡΠ»ΠΈ Π½ΡΠΆΠ½ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ, ΡΠΎΡΡΠΎΡΡΠ΅Π΅ ΠΈΠ· ΡΠΈΡΠ΅Π», ΡΠΎ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π²Ρ ΠΎΠ΄ΡΡΠΈΠ΅ Π² ΡΠΈΠΏ byte (ΠΎΡ 0 Π΄ΠΎ 255).
Π ΠΠ°ΡΠΊΠ°Π»Π΅ Π΄Π»Ρ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠ΅, ΠΊΠ°ΠΊ ΡΠΆΠ΅ Π±ΡΠ»ΠΎ ΡΠΊΠ°Π·Π°Π½ΠΎ ΡΠ°Π½Π΅Π΅, Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠΌ ΠΈ/ΠΈΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ΠΌ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ:
[βAβ, βBβ, βCβ] [0, 1, 2, 5, 9] [1..9] [1, 2, 3, 10..20]ΠΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² Π½Π΅ ΠΈΠΌΠ΅ΡΡ ΠΈΠ½Π΄Π΅ΠΊΡΠΎΠ² (Π½ΠΎΠΌΠ΅ΡΠΎΠ²), ΠΈ ΠΏΠΎΡΡΠΎΠΌΡ ΠΏΠΎΡΡΠ΄ΠΎΠΊ Π½Π΅ Π²Π°ΠΆΠ΅Π½. ΠΠΎΠ·ΡΠΌΠ΅ΠΌ, ΠΊ ΠΏΡΠΈΠΌΠ΅ΡΡ, Π΄Π²Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°: [2, 3, 5] ΠΈ [3, 5, 2], Π½Π΅ ΡΠΌΠΎΡΡΡ Π½Π° ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΠΎΠ½ΠΈ ΡΠΎΠΆΠ΄Π΅ΡΡΠ²Π΅Π½Π½Ρ.
Π‘ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΠ° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΠΊΠ°ΠΊΠΈΠ΅-Π»ΠΈΠ±ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ:
I:=[1, 2, 3, 5, 8];
C:=[βbβ, βdβ, βfβ];
B: = [True, False];
Π Π―Π Pascal Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ ΠΏΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ.
ΠΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² A ΠΈ B ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ C, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΠ±ΡΠΈΠ΅ ΠΈΠ»ΠΈ Ρ ΠΎΡΡ Π±Ρ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ· Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ.
ΠΡΠΈΠΌΠ΅Ρ:
[1, 2, 3, 4] + [3, 4, 5] = [1, 2, 3, 4, 5] [βAβ, βBβ, βCβ, βDβ] + [βBβ, βEβ, βGβ] = [βAβ, βBβ, βCβ, βDβ, βEβ, βGβ]ΠΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² A ΠΈ B ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ C, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΎΠ±ΠΎΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ².
ΠΡΠΈΠΌΠ΅Ρ:
[1, 2, 3, 4] * [3, 4, 5] = [3, 4] [βAβ, βBβ, βCβ, βDβ] * [βBβ, βEβ, βGβ] = [βBβ]Π Π°Π·Π½ΠΎΡΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² A ΠΈ B ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ C, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° A, Π½Π΅ Π²ΠΎΡΠ΅Π΄ΡΠΈΠ΅ Π² ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ B.
ΠΡΠΈΠΌΠ΅Ρ:
[1, 2, 3, 4] β [3, 4, 5] = [1, 2] [βAβ, βBβ, βCβ, βDβ] β [βBβ, βEβ, βGβ] = [βAβ, βCβ, βDβ]ΠΠ²Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΡΡΠΈΡΠ°ΡΡΡΡ ΡΠ°Π²Π½ΡΠΌΠΈ, Π΅ΡΠ»ΠΈ ΠΎΠ½ΠΈ ΡΠΎΡΡΠΎΡΡ ΠΈΠ· ΠΎΠ΄Π½ΠΈΡ ΠΈ ΡΠ΅Ρ ΠΆΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ².
ΠΡΠΈΠΌΠ΅Ρ:[1, 2, 3, 4] = [2, 1, 4, 3] => True
[βAβ, βBβ, βCβ, βDβ] = [βBβ, βEβ, βGβ] => False
ΠΠ²Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΡΡΠΈΡΠ°ΡΡΡΡ Π½Π΅ΡΠ°Π²Π½ΡΠΌΠΈ, Π΅ΡΠ»ΠΈ ΠΎΠ½ΠΈ ΡΠΎΡΡΠΎΡΡ ΠΈΠ· ΡΠ°Π·Π½ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ².
ΠΡΠΈΠΌΠ΅Ρ:
[1, 2, 3, 4] [2, 1, 4, 3] => FalseΠΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΈΡΡΠΈΠ½Ρ, Π΅ΡΠ»ΠΈ Π²ΡΠΎΡΠΎΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ΄ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°.
ΠΡΠΈΠΌΠ΅Ρ:
[1, 2, 3, 4] >= [2, 1] => TrueΠΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΈΡΡΠΈΠ½Ρ, Π΅ΡΠ»ΠΈ ΠΏΠ΅ΡΠ²ΠΎΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΠ΄ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ Π²ΡΠΎΡΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°.
ΠΡΠΈΠΌΠ΅Ρ:
[1, 2, 3, 4] >= [2, 1] => FalseΠΡΠΎΠ²Π΅ΡΡΠ΅Ρ Π½Π°Π»ΠΈΡΠΈΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π² Π·Π°Π΄Π°Π½Π½ΠΎΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π΅:
ΠΡΠΈΠΌΠ΅Ρ:
1 In [1, 2, 3, 4] => True
B In [βAβ, βGβ] => False
ΠΠ»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π² ΠΠ°ΡΠΊΠ°Π»Ρ Π΅ΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ Include:
Include(<ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ>, <ΡΠ»Π΅ΠΌΠ΅Π½Ρ>)
ΠΠ»Ρ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΠΈΠ· ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΠΊΠ°ΠΊΠΎΠ³ΠΎ-Π»ΠΈΠ±ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΎΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ΅ΠΉ Exclude:
Exclude(<ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ>, <ΡΠ»Π΅ΠΌΠ΅Π½Ρ>)
ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠΎΠΌΠ½ΠΈΡΡ, ΡΡΠΎ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌΡΠΉ/ΡΠ΄Π°Π»ΡΠ΅ΠΌΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΡΠΎΠΆΠ΄Π΅ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ ΡΠΈΠΏΠ°.
ΠΠΎΡ ΠΎΠΆΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ:90000 90001. . 90002 90003 90004 90005 () 90006 90005 90006 90004 90010 90011 90012 90013 90014 90006 90010 90003 90005 90019 integer 90020 90006 90005 2 90006 90005 -32768..32767 90006 90005 +, -, /, *, Div, Mod, 90027> =, <=, =, <>, <,> 90006 90010 90011 90005 90019 byte 90020 90006 90005 1 90006 90005 0..255 90006 90005 +, -, /, *, Div, Mod, 90027> =, <=, =, <>, <,> 90006 90010 90011 90005 90019 word 90020 90006 90005 2 90006 90005 0..65535 90006 90005 +, -, /, *, Div, Mod, 90027> =, <=, =, <>, <,> 90006 90010 90011 90005 90019 shortint 90020 90006 90005 1 90006 90005 -128..127 90006 90005 +, -, /, *, Div, Mod, 90027> =, <=, =, <>, <,> 90006 90010 90011 90005 90019 longint 90020 90006 90005 4 90006 90005 -2147483648..2147483647 90006 90005 +, -, /, *, Div, Mod, 90027> =, <=, =, <>, <,> 90006 90010 90011 90012 90013 90014 90006 90010 90011 90005 90019 real 90020 90006 90005 6 90006 90005 2,9×10 90096 -39 90097 — 1,7×10 90096 38 90097 90006 90005 +, -, /, *, 90027> =, <=, =, <>, <,> 90006 90010 90011 90005 90019 single 90020 90006 90005 4 90006 90005 1,5×10 90096 -45 90097 — 3,4×10 90096 38 90097 90006 90005 +, -, /, *, 90027> =, <=, =, <>, <,> 90006 90010 90011 90005 90019 double 90020 90006 90005 8 90006 90005 5×10 90096 -324 90097 — 1,7×10 90096 308 90097 90006 90005 +, -, /, *, 90027> =, <=, =, <>, <,> 90006 90010 90011 90005 90019 extended 90020 90006 90005 10 90006 90005 3,4×10 90096 -4932 90097 — 1,1×10 90096 4932 90097 90006 90005 +, -, /, *, 90027> =, <=, =, <>, <,> 90006 90010 90011 90012 90013 90014 90006 90010 90011 90005 90019 boolean 90020 90006 90005 1 90006 90005 true, false 90006 90005 Not, And, Or, Xor, 90027> =, <=, =, <>, <,> 90006 90010 90011 90012 90013 90014 90006 90010 90011 90005 90019 char 90020 90006 90005 1 90006 90005 ASCII 90006 90005 +, 90027> =, <=, =, <>, <,> 90006 90010 90194.