home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS 1
/
BBS#1.iso
/
document
/
pas60pg.lzh
/
PG06.MY
< prev
next >
Wrap
Text File
|
1991-02-01
|
36KB
|
895 lines
âïÇéÇ 6.
é¢ÉÇåàìêƒ.
éδαáªÑ¡¿∩ ß«ßΓ«∩Γ ¿º «»ÑαáΓ«α«ó ¿ «»Ñαá¡ñ«ó. ü«½∞Φ¿¡ßΓó«
«»ÑαáΓ«α«ó ó ∩ºδ¬Ñ Åá߬á½∞ ∩ó½∩εΓß∩ í¿¡áα¡δ¼¿, Γ« ÑßΓ∞ ß«ñÑαªáΓ ñóá
«»Ñαá¡ñá. ÄßΓá½∞¡δÑ «»ÑαáΓ«αδ ∩ó½∩εΓß∩ π¡áα¡δ¼¿ ¿ ß«ñÑαªáΓ Γ«½∞¬«
«ñ¿¡ «»Ñαá¡ñ. é í¿¡áα¡δσ «»ÑαáΓ«αáσ ¿ß»«½∞ºπÑΓß∩ «íδτ¡«Ñ
á½úÑíαá¿τÑ߬«Ñ »αÑñßΓáó½Ñ¡¿Ñ, ¡á»α¿¼Ñα: A + B. é π¡áα¡δσ «»ÑαáΓ«αáσ
«»Ñαᵿ∩ óßÑúñá »αÑñΦÑßΓóπÑΓ «»Ñαá¡ñπ, ¡á»α¿¼Ñα, -B.
é í«½ÑÑ ß½«ª¡δσ óδαáªÑ¡¿∩σ »«α∩ñ«¬, ó ¬«Γ«α«¼ óδ»«½¡∩εΓß∩
«»Ñαᵿ¿, ß««ΓóÑΓßΓóπÑΓ »α¿«α¿ΓÑΓπ «»Ñαᵿ⌐ (ß¼. Γáí½¿µπ 6.1).
Æáí½¿µá 6.1. Åα¿«α¿ΓÑΓ «»ÑαáΓ«α«ó.
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«αδ Åα¿«α¿ΓÑΓ èáΓÑú«α¿∩
───────────────────────────────────────────────────────────────────
@, not »Ñαóδ⌐ (óδßΦ¿⌐) π¡áα¡δÑ «»ÑαáΓ«αδ
*,/,div,mod, óΓ«α«⌐ «»ÑαáΓ«αδ π¼¡«ªÑ¡¿∩
and,shl,shr
+,-,or,xor ΓαÑΓ¿⌐ «»ÑαáΓ«αδ ß½«ªÑ¡¿∩
=, <>, <, >, τÑΓóÑαΓδ⌐ «»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿∩
<=, >=, in (¡¿ºΦ¿⌐)
───────────────────────────────────────────────────────────────────
ä½∩ «»αÑñѽѡ¿∩ ßΓáαΦ¿¡ßΓóá «»ÑαáΓ«α«ó ¿¼ÑÑΓß∩ Γα¿ «ß¡«ó¡δσ
»αáó¿½á:
1. Ä»Ñαá¡ñ, ¡áσ«ñ∩Θ¿⌐ß∩ ¼Ñªñπ ñóπ¼∩ «»ÑαáΓ«αἿ ß αẽ¿τ¡δ¼¿
»α¿«α¿ΓÑΓἿ, ßó∩ºδóáÑΓß∩ ß «»ÑαáΓ«α«¼, ¿¼ÑεΘ¿¼ í«½ÑÑ óδß«¬¿⌐
»α¿«α¿ΓÑΓ.
2. Ä»Ñαá¡ñ, ¡áσ«ñ∩Θ¿⌐ß∩ ¼Ñªñπ ñóπ¼∩ «»ÑαáΓ«αἿ ß αáó¡δ¼¿
»α¿«α¿ΓÑΓἿ, ßó∩ºδóáÑΓß∩ ß «»ÑαáΓ«α«¼, ¬«Γ«αδ⌐ ¡áσ«ñ¿Γß∩ ß½Ñóá «Γ
¡Ñú«.
3. éδαáªÑ¡¿Ñ, ºá¬½ετÑ¡¡«Ñ ó ߬«í¬¿, »ÑαÑñ óδ»«½¡Ñ¡¿Ñ¼
óδτ¿ß½∩ÑΓß∩, ¬á¬ «Γñѽ∞¡δ⌐ «»Ñαá¡ñ.
Ä»ÑαáΓ«αδ ß αáó¡δ¼ »α¿«α¿ΓÑΓ«¼ «íδτ¡« óδ»«½¡∩εΓß∩ ß½Ñóá
¡á»αáó«, σ«Γ∩ ¿¡«úñá ¬«¼»¿½∩Γ«α »α¿ úÑ¡Ñαᵿ¿ «»Γ¿¼á½∞¡«ú« ¬«ñá
¼«ªÑΓ »ÑαÑπ»«α∩ñ«τ¿Γ∞ «»Ñαá¡ñδ.
æ¿¡Γá¬ß¿ß óδαáªÑ¡¿⌐.
Åαáó¿½á «»αÑñѽ∩εΘ¿Ñ »«α∩ñ«¬ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«α«ó, óδΓѬáεΓ
¿º ß¿¡Γá¬ß¿ßá óδαáªÑ¡¿⌐, ¬«Γ«αδÑ ßΓα«∩Γß∩ ¿º ¼¡«ª¿ΓѽÑ⌐, ΓÑମó ¿
»α«ßΓδσ óδαáªÑ¡¿⌐.
î¡«ª¿Γѽ∞ ¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß:
┌───────────────┐
¼¡«ª¿Γѽ∞ ───┬──┬───────────÷│ßßδ½¬á ¡á »ÑαÑ-├───────────÷
│ │ ° │ ¼Ñ¡¡πε │ °
│ │ │ └───────────────┘ │
│ │ ┌─┐ │ ┌─────────────┐ │
│ └─÷│@│─┴──┬─÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├────────┤
│ └─┘ │ │ »α«µÑñπαδ │ │
│ │ └─────────────┘ │
│ │ ┌─────────────┐ │
│ └─÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├────────┤
│ │ Σπ¡¬µ¿¿ │ │
│ └─────────────┘ │
│ ┌─────────┐ │
├────÷│¬«¡ßΓá¡Γá├──────────────────────┤
│ │íѺ º¡á¬á│ │
│ └─────────┘ │
│ ┌─┐ ┌─────────┐ ┌─┐ │
├────÷│(├──────÷│óδαáªÑ¡¿Ñ│────÷│)├────┤
│ └─┘ └─────────┘ └─┘ │
│ ┌───┐ ┌─────────┐ │
├────÷│not├────÷│¼¡«ª¿Γѽ∞├────────────┤
│ └───┘ └─────────┘ │
│ ┌────┐ ┌─────────┐ │
├────÷│º¡á¬├───÷│¼¡«ª¿Γѽ∞├────────────┤
│ └────┘ └─────────┘ │
│ ┌─────────┐ │
├────÷│ó맮ó ├──────────────────────┤
│ │Σπ¡¬µ¿¿ │ │
│ └─────────┘ │
│ ┌─────────┐ │
├────÷│ß«ºñá¡¿Ñ ├──────────────────────┤
│ │¼¡«ªÑßΓóá│ │
│ └─────────┘ │
│ ┌──────────────┐ │
└────÷│»α¿óÑñÑ¡¿Ñ ├─────────────────┘
│Γ¿»á º¡áτÑ¡¿∩ │
└──────────────┘
é맮ó Σπ¡¬µ¿¿ á¬Γ¿ó¿º¿απÑΓ Σπ¡¬µ¿ε ¿ »αÑñßΓáó½∩ÑΓ ß«í«⌐
º¡áτÑ¡¿∩, ó«ºóαáΘáѼδÑ Σπ¡¬µ¿Ñ⌐ (ß¼. ñá½ÑÑ ó φΓ«⌐ ú½áóÑ αáºñѽ
"é맮óδ Σπ¡¬µ¿⌐"). Ä»¿ßáΓѽ∞ ¼¡«ªÑßΓóá »αÑñßΓáó½∩ÑΓ ß«í«⌐ º¡áτÑ¡¿Ñ
Γ¿»á ¼¡«ªÑßΓóá (ß¼. αáºñѽ "ÄíΩ∩ó½Ñ¡¿Ñ ¼¡«ªÑßΓó). Åα¿óÑñÑ¡¿Ñ Γ¿»á
¿º¼Ñ¡∩ÑΓ Γ¿» º¡áτÑ¡¿∩ (ß¼. "Åα¿óÑñÑ¡¿Ñ Γ¿»á"). è«¡ßΓá¡Γá íѺ º¡á¬á
¿¼ÑÑΓ ß½ÑñπεΘ¿⌐ ß¿¡Γá¬ß¿ß:
┌─────────┐
¬«¡ßΓá¡Γá íѺ º¡á¬á ───┬────÷│ τ¿ß½« ├─────────────÷
│ │íѺ º¡á¬á│ °
│ └─────────┘ │
│ ┌──────────┐ │
├────÷│ß¿¼ó«½∞¡á∩├────────┤
│ │ ßΓ᫬á │ │
│ └──────────┘ │
│ ┌─────────────┐ │
├────÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├─────┤
│ │ ¬«¡ßΓá¡Γδ│ │
│ └─────────────┘ │
│ ┌───┐ │
└────÷│nil├───────────────┘
└───┘
ìѬ«Γ«αδÑ »α¿¼Ñαδ ¼¡«ª¿ΓѽÑ⌐ ¼«úπΓ ó¬½ετáΓ∞ ó ßÑí∩:
X (ßßδ½¬á ¡á »ÑαѼѡ¡πε)
@X (π¬áºáΓѽ∞ ¡á »ÑαѼѡ¡πε)
15 (¬«¡ßΓá¡Γá íѺ º¡á¬á)
(X + Z + 2) (»«ñóδαáªÑ¡¿Ñ)
sin(X/2) (ó맮ó Σπ¡¬µ¿¿)
['0'..'9', 'A'..'Z'] (ß«ºñá¡¿Ñ ¼¡«ªÑßΓóá)
not Done («Γα¿µá¡¿Ñ ½«ú¿τÑ߬«⌐ »ÑαѼѡ¡«⌐)
Char(Digit + 48) (»α¿óÑñÑ¡¿Ñ Γ¿»á)
ÆÑα¼δ ¿ß»«½∞ºπεΓß∩ ó «»Ñαᵿ∩σ π¼¡«ªÑ¡¿∩ ¡á ¼¡«ª¿Γѽ∞:
┌─────────┐
ΓÑα¼ ────────÷│¼¡«ª¿Γѽ∞├───┬──────÷
° └─────────┘ │
│ ┌───┐ │
├─────┤ * │≈────────┤
│ └───┘ │
│ ┌───┐ │
├─────┤ / │≈────────┤
│ └───┘ │
│ ┌───┐ │
├─────┤div│≈────────│
│ └───┘ │
│ ┌───┐ │
├─────┤mod│≈────────│
│ └───┘ │
│ ┌───┐ │
├─────┤and│≈────────│
│ └───┘ │
│ ┌───┐ │
├─────┤shl│≈────────│
│ └───┘ │
│ ┌───┐ │
└─────┤shr│≈────────┘
└───┘
Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó ΓÑମó:
X*Y
Z/(I-Z)
Done or Error
(X <= Z) and (Y < Z)
é »α«ßΓδσ óδαáªÑ¡¿∩σ ¬ ΓÑα¼á¼ »α¿¼Ñ¡∩εΓß∩ «»ÑαáΓ«αδ ß½«ªÑ¡¿∩ ¿
»α¿ßóá¿óá¡¿∩ º¡á¬á.
┌───────┐
»α«ßΓ«Ñ óδαáªÑ¡¿Ñ ────────÷│ ΓÑα¼ ├───┬────÷
° └───────┘ │
│ ┌───┐ │
├─────┤ + │≈──────┤
│ └───┘ │
│ ┌───┐ │
├─────┤ - │≈──────┤
│ └───┘ │
│ ┌───┐ │
├─────┤ or│≈──────│
│ └───┘ │
│ ┌───┐ │
└─────┤xor│≈──────┘
└───┘
Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó »α«ßΓδσ óδαáªÑ¡¿⌐:
X + Y
-X
Hue1 + Hue2
I * J + 1
é óδαáªÑ¡¿∩σ ¬ »α«ßΓδ¼ óδαáªÑ¡¿∩¼ »α¿¼Ñ¡∩εΓß∩ «»ÑαáΓ«αδ
«Γ¡«ΦÑ¡¿∩:
┌─────────┐
óδαáªÑ¡¿Ñ ────÷│¼¡«ª¿Γѽ∞├──┬───────────────────────────────÷
└─────────┘ │ °
│ ┌───┐ ┌─────────┐ │
├─÷│ < ├──────÷│ »α«ßΓ«Ñ ├──┘
│ └───┘ ° │óδαáªÑ¡¿Ñ│
│ ┌───┐ │ └─────────┘
├─÷│<= ├──┤
│ └───┘ │
│ ┌───┐ │
├─÷│ > ├──┤
│ └───┘ │
│ ┌───┐ │
├─÷│>= ├──┤
│ └───┘ │
│ ┌───┐ │
├─÷│ = ├──┤
│ └───┘ │
│ ┌───┐ │
├─÷│<> ├──┤
│ └───┘ │
│ ┌───┐ │
└─÷│in ├──┘
└───┘
Åα¿óÑñѼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ óδαáªÑ¡¿⌐:
X = 1.5
Done <> Error
(I < J) = (J < K)
æ in ìue1
Ä»ÑαáΓ«αδ.
Ä»ÑαáΓ«αδ »«ñαáºñѽ∩εΓß∩ ¡á áα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»ÑαáΓ«αδ,
½«ú¿τÑ߬¿Ñ «»ÑαáΓ«αδ, ßΓ᫬«óδÑ «»ÑαáΓ«αδ, «»ÑαáΓ«αδ ¡áñ
¼¡«ªÑßΓó«¼, «»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿∩ ¿ «»ÑαáΓ«α @.
Çα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»ÑαáΓ«αδ.
é ß½ÑñπεΘÑ⌐ Γáí½¿µÑ »α¿óÑñÑ¡δ Γ¿»δ «»Ñαá¡ñ«ó ¿ αѺπ½∞ΓáΓδ ñ½∩
í¿¡áα¡δσ ¿ π¡áα¡δσ áα¿Σ¼ÑΓ¿τÑ߬¿σ «»Ñαᵿ⌐.
Æáí½¿µá 6.2. ü¿¡áα¡δÑ áα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»Ñαᵿ¿.
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«α Ä»Ñαᵿ∩ Æ¿» «»Ñαá¡ñ«ó Æ¿» αѺπ½∞ΓáΓá
───────────────────────────────────────────────────────────────────
+ ß½«ªÑ¡¿Ñ µÑ½δ⌐ µÑ½δ⌐
óÑΘÑßΓóÑ¡¡δ⌐ óÑΘÑßΓóÑ¡¡δ⌐
- óδτ¿Γá¡¿Ñ µÑ½δ⌐ µÑ½δ⌐
óÑΘÑßΓóÑ¡¡δ⌐ óÑΘÑßΓóÑ¡¡δ⌐
* π¼¡«ªÑ¡¿Ñ µÑ½δ⌐ µÑ½δ⌐
óÑΘÑßΓóÑ¡¡δ⌐ óÑΘÑßΓóÑ¡¡δ⌐
/ ñѽѡ¿Ñ µÑ½δ⌐ óÑΘÑßΓóÑ¡¡δ⌐
óÑΘÑßΓóÑ¡¡δ⌐ óÑΘÑßΓóÑ¡¡δ⌐
div µÑ½«τ¿ß½Ñ¡- µÑ½δ⌐ µÑ½δ⌐
¡«Ñ ñѽѡ¿Ñ
mod «ßΓáΓ«¬ µÑ½δ⌐ µÑ½δ⌐
───────────────────────────────────────────────────────────────────
Åα¿¼Ñτá¡¿Ñ: Ä»ÑαáΓ«α + ΓᬠªÑ ¿ß»«½∞ºπÑΓß∩ ñ½∩ αáí«Γδ ß«
ßΓα«¬á¼¿ ¿ ¼¡«ªÑßΓóἿ. Ä»ÑαáΓ«αδ +, - ¿ * ΓᬠªÑ ¿ß»«½∞ºπεΓß∩ ñ½∩
αáí«Γδ ß ¼¡«ªÑßΓóἿ.
Æáí½¿µá 6.3. ô¡áα¡δÑ áα¿Σ¼ÑΓ¿τÑ߬¿Ñ «»Ñαᵿ¿.
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«α Ä»Ñαᵿ∩ Æ¿» «»Ñαá¡ñ«ó Æ¿» αѺπ½∞ΓáΓá
───────────────────────────────────────────────────────────────────
+ ß«σαá¡Ñ¡¿Ñ µÑ½δ⌐ µÑ½δ⌐
º¡á¬á óÑΘÑßΓóÑ¡¡δ⌐ óÑΘÑßΓóÑ¡¡δ⌐
- «Γα¿µá¡¿Ñ µÑ½δ⌐ µÑ½δ⌐
º¡á¬á óÑΘÑßΓóÑ¡¡δ⌐ óÑΘÑßΓóÑ¡¡δ⌐
───────────────────────────────────────────────────────────────────
ïεí«⌐ «»Ñαá¡ñ, Γ¿» ¬«Γ«α«ú« ∩ó½∩ÑΓß∩ »«ññ¿á»áº«¡«¼ »«α∩ñ¬«ó«ú«
Γ¿»á «íαáíáΓδóáÑΓß∩ ΓᬪÑ, ¬á¬ Ñß½¿ íδ «¡ íδ½ »«α∩ñ¬«óδ⌐ Γ¿»á.
àß½¿ «íá «»Ñαá¡ñá ó «»ÑαáΓ«αáσ +, -, *, div ¿½¿ mod ∩ó½∩εΓß∩
«»Ñαá¡ñἿ µÑ½«ú« Γ¿»á, Γ« Γ¿» αѺπ½∞ΓáΓá íπñÑΓ Γᬿ¼ ªÑ, ¬á¬ «íΘ¿⌐
Γ¿» «í«¿σ «»Ñαá¡ñ«ó. (ÄíΩ∩ó½Ñ¡¿Ñ «íΘÑú« Γ¿»á ß¼. ó αáºñÑ½Ñ "ûѽδ⌐
Γ¿»" ú½áóδ 3).
àß½¿ «ñ¿¡ ¿½¿ «íá «»Ñαá¡ñá ó «»ÑαáΓ«αáσ +, -, ¿½¿ * ¿¼ÑεΓ
óÑΘÑßΓóÑ¡¡δ⌐ Γ¿», Γ« Γ¿» αѺπ½∞ΓáΓá íπñÑΓ Real, Ñß½¿ ¿ß»«½∞º«óá¡á
ñ¿αÑ¬Γ¿óá ¬«¼»¿½∩Γ«αá {$N-}, ¿½¿ Γ¿»«¼ Extended »α¿ ¿ß»«½∞º«óá¡¿¿
ñ¿αÑ¬Γ¿óδ ¬«¼»¿½∩Γ«αá {$N+}.
àß½¿ »α¿ ¿ß»«½∞º«óá¡¿¿ «»ÑαáΓ«αá ß«σαá¡Ñ¡¿∩ º¡á¬á ¿½¿
«»ÑαáΓ«αá «Γα¿µá¡¿∩ º¡á¬á «»Ñαá¡ñ ¿¼ÑÑΓ µÑ½δ⌐ Γ¿», Γ« αѺπ½∞ΓáΓ
íπñÑΓ Γ«ú« ªÑ µÑ½«ú« Γ¿»á. àß½¿ «»Ñαá¡ñ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á, Γ« Γ¿»
αѺπ½∞ΓáΓá íπñÑΓ Real ¿½¿ àxtended.
ç¡áτÑ¡¿Ñ óδαáªÑ¡¿∩ X/Y óßÑúñá íπñÑΓ Real ¿½¿ Extended
¡Ñºáó¿ß¿¼« «Γ Γ¿»«ó «»Ñαá¡ñ«ó. àß½¿ Y αáó¡« 0, Γ« 󫺡¿¬áÑΓ «Φ¿í¬á.
ç¡áτÑ¡¿Ñ óδαáªÑ¡¿∩ I div J »αÑñßΓáó½∩ÑΓ ß«í«⌐ ¼áΓѼáΓ¿τÑ߬«Ñ
τáßΓ¡«Ñ «Γ I/J, «¬απú½Ñ¡¡«Ñ ó ¡á»αáó½Ñ¡¿¿ ¬ 0 ñ« º¡áτÑ¡¿∩ µÑ½«ú«
Γ¿»á. àß½¿ J αáó¡« 0, Γ« 󫺡¿¬áÑΓ «Φ¿í¬á.
Ä»ÑαáΓ«α mod ó«ºóαáΘáÑΓ «ßΓáΓ«¬, »«½πτÑ¡¡δ⌐ »α¿ ñѽѡ¿¿ ñóπσ
Ñú« «»Ñαá¡ñ«ó, Γ« ÑßΓ∞:
I mod J = I - (I div J) * J
ç¡á¬ αѺπ½∞ΓáΓá «»ÑαáΓ«αá mod íπñÑΓ ΓѼ ªÑ, τΓ« ¿ º¡á¬ I. àß½¿
J αáó¡« 0, Γ« 󫺡¿¬áÑΓ «Φ¿í¬á.
ï«ú¿τÑ߬¿Ñ «»ÑαáΓ«αδ.
Æ¿»δ «»Ñαá¡ñ«ó ¿ αѺπ½∞ΓáΓ«ó ½«ú¿τÑ߬¿σ «»Ñαᵿ⌐ »«¬áºá¡δ ó
Γáí½¿µÑ 6.4.
Æáí½¿µá 6.4. ï«ú¿τÑ߬¿Ñ «»Ñαᵿ¿.
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«α Ä»Ñαᵿ∩ Æ¿» «»Ñαá¡ñ«ó Æ¿» αѺπ½∞ΓáΓá
───────────────────────────────────────────────────────────────────
not í¿Γ«ó«Ñ µÑ½δ⌐ µÑ½δ⌐
«Γα¿µá¡¿Ñ
and ê (í¿Γ«ó«Ñ) µÑ½δ⌐ µÑ½δ⌐
or êïê (í¿Γ«ó«Ñ) µÑ½δ⌐ µÑ½δ⌐
xor ¿ß¬½ετáεΘÑÑ µÑ½δ⌐ µÑ½δ⌐
êïê (í¿Γ«ó«Ñ)
shl ßñó¿ú ó½Ñó« µÑ½δ⌐ µÑ½δ⌐
shr ßñó¿ú ó»αáó« µÑ½δ⌐ µÑ½δ⌐
───────────────────────────────────────────────────────────────────
Åα¿¼Ñτá¡¿Ñ: Ä»ÑαáΓ«α not ∩ó½∩ÑΓß∩ π¡áα¡δ¼ «»ÑαáΓ«α«¼.
àß½¿ «»Ñαá¡ñ«¼ «»ÑαáΓ«αá not ∩ó½∩ÑΓß∩ «»Ñαá¡ñ µÑ½«ú« Γ¿»á, Γ«
αѺπ½∞ΓáΓ íπñÑΓ Γᬫú« ªÑ Γ¿»á.
àß½¿ «íá «»Ñαá¡ñá ó «»ÑαáΓ«αáσ and, or ¿½¿ xor µÑ½«ú« Γ¿»á, Γ«
Γ¿» αѺπ½∞ΓáΓá íπñÑΓ «íΘ¿¼ Γ¿»«¼ φΓ¿σ ñóπσ «»Ñαá¡ñ«ó.
Ä»Ñαᵿ¿ I shl J ¿ I shr J ßñó¿úáεΓ º¡áτÑ¡¿Ñ I ó½Ñó« ¿½¿
ó»αáó« ¡á J í¿Γ«ó. Æ¿» αѺπ½∞ΓáΓá íπñÑΓ Γᬿ¼ ªÑ, ¬á¬ Γ¿» I.
üπ½Ñó߬¿Ñ «»ÑαáΓ«αδ.
Æ¿» «»Ñαá¡ñ«ó ¿ αѺπ½∞ΓáΓ«ó ñ½∩ Boolean «»Ñαᵿ⌐ »«¬áºá¡δ ó
Γáí½¿µÑ 6.5.
Æáí½¿µá 6.5 üπ½Ñó߬¿Ñ «»Ñαᵿ¿.
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«α Ä»Ñαᵿ∩ Æ¿» «»Ñαá¡ñ«ó Æ¿» αѺπ½∞ΓáΓá
───────────────────────────────────────────────────────────────────
not «Γα¿µá¡¿Ñ Boolean Boolean
and ½«ú¿τÑ߬«Ñ ê Boolean Boolean
or ½«ú¿τÑ߬«Ñ êïê Boolean Boolean
xor ½«ú¿τÑ߬«Ñ Boolean Boolean
¿ß¬½ετáεΘÑÑ
êïê
───────────────────────────────────────────────────────────────────
Åα¿¼Ñτá¡¿Ñ: «»ÑαáΓ«α not ∩ó½∩ÑΓß∩ π¡áα¡δ¼ «»ÑαáΓ«α«¼.
ÉѺπ½∞ΓáΓδ φΓ¿σ «»Ñαᵿ⌐ ß««ΓóÑΓßΓóπεΓ «íδτ¡«⌐ íπ½Ñó«⌐ ½«ú¿¬Ñ.
ìá»α¿¼Ñα, óδαáªÑ¡¿Ñ Ç and é »α¿¡¿¼áÑΓ º¡áτÑ¡¿Ñ True Γ«½∞¬« ó Γ«¼
ß½πτáÑ, Ñß½¿ «íá «»Ñαá¡ñá ¿¼ÑÑεΓ º¡áτÑ¡¿Ñ True.
é Turbo Pascal »«ññÑনóáεΓß∩ ñóÑ αẽ¿τ¡δÑ ¼«ñѽ¿ úÑ¡Ñαᵿ¿
¬«ñá ñ½∩ «»Ñαᵿ⌐ or ¿ and - »«½¡«Ñ óδτ¿ß½Ñ¡¿Ñ ¿ óδτ¿ß½Ñ¡¿Ñ »«
¬«α«Γ¬«⌐ ßσÑ¼Ñ (τáßΓ¿τ¡«Ñ óδτ¿ß½Ñ¡¿Ñ).
Åα¿ »«½¡«¼ óδτ¿ß½Ñ¡¿¿ »«ñαáºπ¼ÑóáÑΓß∩, τΓ« ¬áªñδ⌐ «»Ñαá¡ñ
íπ½Ñó߬«ú« óδαáªÑ¡¿∩, »«ßΓα«Ñ¡¡δ⌐ ß »«¼«Θ∞ε «»ÑαáΓ«α«ó or ¿ and,
óßÑúñá íπñÑΓ óδτ¿ß½∩Γ∞ß∩, ñáªÑ Ñß½¿ αѺπ½∞ΓáΓ óßÑú« óδαáªÑ¡¿∩ πªÑ
¿ºóÑßΓÑ¡. ¥Γá ¼«ñѽ∞ »«½Ñº¡á ó Γ«¼ ß½πτáÑ, ¬«úñá «ñ¿¡ ¿½¿ ¡Ñ߬«½∞¬«
«»Ñαá¡ñ«ó ó óδαáªÑ¡¿¿ »αÑñßΓáó½∩εΓ ß«í«⌐ Σπ¡¬µ¿¿ ß »«í«τ¡δ¼¿
φΣΣѬΓἿ, ¬«Γ«αδÑ ¿º¼Ñ¡∩εΓ ß¼δß½ »α«úαá¼¼δ.
éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσÑ¼Ñ «íÑß»Ñτ¿óáÑΓ ßΓα«ú«Ñ óδτ¿ß½Ñ¡¿Ñ
ß½Ñóá ¡á»αáó«. ¥Γ« óδτ¿ß½Ñ¡¿Ñ »αѬαáΘáÑΓß∩, ¬á¬ Γ«½∞¬« αѺπ½∞ΓáΓ
óßÑú« óδαáªÑ¡¿∩ ßΓá¡«ó¿Γß∩ «τÑó¿ñÑ¡. é« ¼¡«ú¿σ ß½πτá∩σ φΓá ¼«ñѽ∞
πñ«í¡á, »«ß¬«½∞¬π «¡á «íÑß»Ñτ¿óáÑΓ ¼¿¡¿¼á½∞¡«Ñ óαѼ∩ óδ»«½¡Ñ¡¿∩, ¿,
¬á¬ »αá󿽫, ¼¿¡¿¼á½∞¡δ⌐ «íΩѼ ¬«ñá. éδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσѼÑ
ñѽáÑΓ Γá¬ªÑ ó«º¼«ª¡δ¼ Γá¬¿Ñ ¬«¡ßΓαπ¬µ¿¿, ¬«Γ«αδÑ ó »α«Γ¿ó¡«¼
ß½πτáÑ í뫨 íδ ¡Ññ«»πßΓ¿¼δ, ¡á»α¿¼Ñα:
while (I <= Length(S)) and (S[I] <> ' ') do Inc(I);
while (P <> nil) and (P^.Value <> 5) do P := P^.Next;
é «í«¿σ ß½πτá∩σ, Ñß½¿ αѺπ½∞ΓáΓ«¼ »Ñαó«ú« óδτ¿ß½Ñ¡¿∩ íπñÑΓ
º¡áτÑ¡¿Ñ False, óΓ«α«Ñ óδτ¿ß½Ñ¡¿Ñ ¡Ñ óδ»«½¡∩ÑΓß∩.
î«ñѽ∞ε óδτ¿ß½Ñ¡¿∩ ¼«ª¡« π»αáó½∩Γ∞ ß »«¼«Θ∞ε ñ¿αÑ¬Γ¿óδ
¬«¼»¿½∩Γ«αá $B. ç¡áτÑ¡¿Ñ¼ »« π¼«½τá¡¿ε ∩ó½∩ÑΓß∩ ß«ßΓ«∩¡¿Ñ {$B-}
(»«¬á «¡« ¡Ñ íπñÑΓ ¿º¼Ñ¡Ñ¡« ß »«¼«Θ∞ε ¼Ñ¡ε ¬«¼»¿½∩Γ«αá
Options/Compiler), ¿ ó φΓ«¼ ß½πτáÑ úÑ¡Ñα¿απÑΓß∩ ¬«ñ ß óδτ¿ß½Ñ¡¿Ñ¼
»« ¬«α«Γ¬«⌐ ßσѼÑ. é ß½πτáÑ ñ¿αÑ¬Γ¿óδ {$B+} úÑ¡Ñα¿απÑΓß∩ ¬«ñ ß
»«½¡δ¼ óδτ¿ß½Ñ¡¿Ñ¼.
ū߬«½∞¬π ó ßΓá¡ñáαΓ¡«¼ Åá߬á½Ñ ¡Ñ «»αÑñѽ∩ÑΓß∩, ¬á¬πε ¼«ñѽ∞
ß½ÑñπÑΓ ¿ß»«½∞º«óáΓ∞ ñ½∩ óδτ¿ß½Ñ¡¿∩ íπ½Ñó߬¿σ óδαáªÑ¡¿⌐, Γ«
»α«úαá¼¼δ, ºáó¿ß∩Θ¿Ñ «Γ ñÑ⌐ßΓó¿∩ ¬á¬«⌐-½¿í« ¬«¡¬αÑΓ¡«⌐ ¼«ñѽ¿, ó
ñÑ⌐ßΓó¿Γѽ∞¡«ßΓ¿ ¡Ñ ∩ó½∩εΓß∩ »ÑαÑ¡«ß¿¼δ¼¿. Äñ¡á¬«, Ñß½¿
»«ªÑαΓó«óáΓ∞ »ÑαÑ¡«ß¿¼«ßΓ∞ε, Γ« «τÑ¡∞ τáßΓ« ¼«ª¡« »«½πτ¿Γ∞
º¡áτ¿Γѽ∞¡δ⌐ óδ¿úαδΦ ó« óαѼѡ¿ óδ»«½¡Ñ¡¿∩ ¿ »α«ßΓ«ΓÑ, ¬«Γ«απε
»«ºó«½∩ÑΓ »«½πτ¿Γ∞ óδτ¿ß½Ñ¡¿Ñ »« ¬«α«Γ¬«⌐ ßσѼÑ.
æΓ᫬«óδÑ «»ÑαáΓ«αδ.
Æ¿»δ «»Ñαá¡ñ«ó ¿ αѺπ½∞ΓáΓá ñ½∩ «»Ñαᵿ⌐ ß« ßΓα«¬á¼¿ »«¬áºá¡δ
ó Γáí½¿µÑ 6.6.
Æáí½¿µá 6.6. Ä»Ñαᵿ¿ ß« ßΓα«¬á¼¿.
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«α Ä»Ñαᵿ∩ Æ¿» «»Ñαá¡ñá Æ¿» αѺπ½∞ΓáΓá
───────────────────────────────────────────────────────────────────
+ ¬«¡¬áΓѡᵿ∩ ßΓ᫬«óδ⌐, ßΓ᫬«óδ⌐
ß¿¼ó«½∞¡δ⌐
¿½¿ π»á¬«óá¡¡δ⌐
ßΓ᫬«óδ⌐
───────────────────────────────────────────────────────────────────
Turbo Pascal »«ºó«½∩ÑΓ ¿ß»«½∞º«óáΓ∞ «»ÑαáΓ«α + ñ½∩ «íΩÑñ¿¡Ñ¡¿∩
ñóπσ ßΓ᫬«óδσ «»Ñαá¡ñ«ó. ÉѺπ½∞ΓáΓ«¼ «»Ñαᵿ¿ S+T, úñÑ S ¿ T ¿¼ÑεΓ
ßΓ᫬«óδ⌐ Γ¿», ß¿¼ó«½∞¡δ⌐ Γ¿» ¿½¿ π»á¬«óá¡¡δ⌐ ßΓ᫬«óδ⌐ Γ¿», íπñÑΓ
¬«¡¬áΓѡᵿ∩ S ¿ T. ÉѺπ½∞ΓáΓ íπñÑΓ ß«ó¼ÑßΓ¿¼ ß ½εíδ¼ ßΓ᫬«óδ¼
Γ¿»«¼ (¡« ¡Ñ ß ß¿¼ó«½∞¡δ¼ ¿ ¡Ñ ß π»á¬«óá¡¡δ¼ Γ¿»«¼). àß½¿ ñ½¿¡á
αѺπ½∞Γ¿απεΘÑ⌐ ßΓ᫬¿ »αÑóδΦáÑΓ 255 ß¿¼ó«½«ó, Γ« «¡á πßѬáÑΓß∩ ñ«
255 ß¿¼ó«½«ó.
Ä»ÑαáΓ«αδ ¼¡«ªÑßΓóá.
Æ¿»δ «»Ñαá¡ñ«ó ñ½∩ «»Ñαᵿ⌐ ¡áñ ¼¡«ªÑßΓóἿ »«¬áºá¡δ ó Γáí½¿µÑ
6.7.
Æáí½¿µá 6.7. Ä»Ñαᵿ¿ ¡áñ ¼¡«ªÑßΓóἿ.
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«α Ä»Ñαᵿ∩ Æ¿»δ «»Ñαá¡ñ«ó
───────────────────────────────────────────────────────────────────
+ «íΩÑñ¿¡Ñ¡¿Ñ ¼¡«ªÑßΓóá ß ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿
- αạ«ßΓ∞ ¼¡«ªÑßΓóá ß ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿
* »ÑαÑßÑτÑ¡¿Ñ ¼¡«ªÑßΓóá ß ß«ó¼ÑßΓ¿¼δ¼¿ Γ¿»á¼¿
───────────────────────────────────────────────────────────────────
ÉѺπ½∞ΓáΓδ «»Ñαᵿ⌐ ¡áñ ¼¡«ªÑßΓóἿ »«ñτ¿¡∩εΓß∩ »αáó¿½á¼
½«ú¿¬¿ ¼¡«ªÑßΓó.
- Å«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ æ »α¿¡áñ½Ñª¿Γ Ç + é Γ«½∞¬« ó Γ«¼ ß½πτáÑ,
Ñß½¿ ß »α¿¡áñ½Ñª¿Γ Ç ¿½¿ é.
- Å«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ æ »α¿¡áñ½Ñª¿Γ Ç - é Γ«½∞¬« ó Γ«¼ ß½πτáÑ,
Ñß½¿ æ »α¿¡áñ½Ñª¿Γ Ç, ¡« ¡Ñ »α¿¡áñ½Ñª¿Γ é.
- Å«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ æ »α¿¡áñ½Ñª¿Γ Ç * é Γ«½∞¬« ó Γ«¼ ß½πτáÑ,
Ñß½¿ æ »α¿¡áñ½Ñª¿Γ ¿ ¼¡«ªÑßΓóπ Ç, ¿ ¼¡«ªÑßΓóπ é.
àß½¿ ¡á¿¼Ñ¡∞ΦÑÑ »«α∩ñ¬«ó«Ñ º¡áτÑ¡¿Ñ, ¬«Γ«α«Ñ ∩ó½∩ÑΓß∩
αѺπ½∞ΓáΓ«¼ «»Ñαᵿ¿ ¡áñ ¼¡«ªÑßΓóἿ - φΓ« Ç, á ¡á¿í«½∞ΦÑÑ - é, Γ«
Γ¿»«¼ αѺπ½∞ΓáΓá íπñÑΓ set of Ç..é.
Ä»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿∩.
Æ¿»δ «»Ñαá¡ñ«ó ¿ αѺπ½∞ΓáΓ«ó ñ½∩ «»Ñαᵿ⌐ «Γ¡«ΦÑ¡¿∩ »«¬áºá¡δ ó
Γáí½¿µÑ 6.8.
Æáí½¿µá 6.8. Ä»Ñαᵿ¿ «Γ¡«ΦÑ¡¿∩.
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«α Ä»Ñαᵿ∩ Æ¿» «»Ñαá¡ñ«ó Æ¿» αѺπ½∞ΓáΓá
───────────────────────────────────────────────────────────────────
= Éáó¡« ß«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, Boolean
π¬áºáΓѽ∞, ¼¡«ªÑßΓóÑ¡-
¡δ⌐, ßΓ᫬«óδ⌐ ¿½¿ π»á-
¬«óá¡¡δ⌐ ßΓ᫬«óδ⌐
<> ìÑ αáó¡« ß«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, Boolean
π¬áºáΓѽ∞, ¼¡«ªÑßΓóÑ¡-
¡δ⌐, ßΓ᫬«óδ⌐ ¿½¿ π»á-
¬«óá¡¡δ⌐ ßΓ᫬«óδ⌐
< îÑ¡∞ΦÑ ß«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, Boolean
τѼ ßΓ᫬«óδ⌐ ¿½¿ π»á-
¬«óá¡¡δ⌐ ßΓ᫬«óδ⌐
> ü«½∞ΦÑ ß«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, Boolean
τѼ ßΓ᫬«óδ⌐ ¿½¿ π»á-
¬«óá¡¡δ⌐ ßΓ᫬«óδ⌐
<= îÑ¡∞ΦÑ ß«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, Boolean
¿½¿ ßΓ᫬«óδ⌐ ¿½¿ π»á-
αáó¡« ¬«óá¡¡δ⌐ ßΓ᫬«óδ⌐
>= ü«½∞ΦÑ ß«ó¼ÑßΓ¿¼δ⌐ »α«ßΓ«⌐, Boolean
¿½¿ ßΓ᫬«óδ⌐ ¿½¿ π»á-
αáó¡« ¬«óá¡¡δ⌐ ßΓ᫬«óδ⌐
<= Å«ñ¼¡«- ß«ó¼ÑßΓ¿¼δÑ Γ¿»δ Boolean
ªÑßΓó« ¼¡«ªÑßΓó
>= ìáñ¼¡«- ß«ó¼ÑßΓ¿¼δÑ Γ¿»δ Boolean
ªÑßΓó« ¼¡«ªÑßΓó
in ¥½Ñ¼Ñ¡Γ ½Ñóδ⌐ «»Ñαá¡ñ: ½ε- Boolean
¼¡«ªÑßΓóá í«⌐ »«α∩ñ¬«óδ⌐
Γ¿» T;
»αáóδ⌐ «»Ñαá¡ñ:
¼¡«ªÑßΓó« ¬«Γ«α«ú«
ß«ó¼ÑßΓ¿¼« ß T
───────────────────────────────────────────────────────────────────
æαáó¡Ñ¡¿Ñ »α«ßΓδσ Γ¿»«ó.
è«úñá «»Ñαá¡ñδ =, <>, <, >, <=, >= »α«ßΓδσ Γ¿»«ó, Γ« φΓ«
ñ«½ª¡δ íδΓ∞ ß«ó¼ÑßΓ¿¼δσ Γ¿»«ó. Äñ¡á¬«, Ñß½¿ «ñ¿¡ «»Ñαá¡ñ ¿¼ÑÑΓ
ñÑ⌐ßΓó¿Γѽ∞¡δ⌐ Γ¿», Γ« ñαπú«⌐ ¼«ªÑΓ íδΓ∞ µÑ½«ú« Γ¿»á.
æαáó¡Ñ¡¿Ñ ßΓ᫬.
Ä»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿∩ =, <>, <, >, <=, ¿½¿ >= ¼«úπΓ »α¿¼Ñ¡∩Γ∞ß∩
ñ½∩ ßαáó¡Ñ¡¿∩ ßΓ᫬ ß«ú½áß¡« »«α∩ñ¬π αáßΦ¿αÑ¡¡«ú« ¡áí«αá ß¿¼ó«½«ó
¬«ñá ASCII. ïεíδÑ ñóá º¡áτÑ¡¿∩ ßΓ᫬«óδσ ñá¡¡δσ ¼«ª¡« ßαáó¡¿Γ∞,
»«ß¬«½∞¬π óßÑ º¡áτÑ¡¿∩ ßΓ᫬«óδσ ñá¡¡δσ ß«ó¼ÑßΓ¿¼δ.
ç¡áτÑ¡¿∩ ß¿¼ó«½∞¡«ú« Γ¿»á ß«ó¼ÑßΓ¿¼δ ß« º¡áτÑ¡¿∩¼¿ ßΓ᫬«ó«ú«
Γ¿»á, ¿ »α¿ ¿σ ßαáó¡Ñ¡¿¿ ß¿¼ó«½∞¡«Ñ º¡áτÑ¡¿Ñ «íαáíáΓδóáÑΓß∩ ¬á¬
ßΓ᫬«ó«Ñ º¡áτÑ¡¿Ñ ñ½¿¡«⌐ 1. è«úñá ß« º¡áτÑ¡¿Ñ¼ ßΓ᫬«ó«ú« Γ¿»á
ßαáó¡¿óáÑΓß∩ π»á¬«óá¡¡«Ñ ßΓ᫬«ó«Ñ º¡áτÑ¡¿Ñ ¿º N φ½Ñ¼Ñ¡Γ«ó, Γ« «¡«
«íαáíáΓδóáÑΓß∩ ¬á¬ º¡áτÑ¡¿Ñ ßΓ᫬«ó«ú« Γ¿»á ñ½¿¡«⌐ N .
æαáó¡Ñ¡¿Ñ π»á¬«óá¡¡δσ ßΓ᫬.
Ä»ÑαáΓ«αδ «Γ¡«ΦÑ¡¿∩ =, <>, <, >, <= ¿½¿ >= ¼«úπΓ »α¿¼Ñ¡∩Γ∞ß∩
Γá¬ªÑ ñ½∩ ñóπσ π»á¬«óá¡¡δσ º¡áτÑ¡¿⌐ ßΓ᫬«ó«ú« Γ¿»á, Ñß½¿ «¡¿
ß«ñÑαªáΓ «ñ¿¡á¬«ó«Ñ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó. àß½¿ τ¿ß½« φ½Ñ¼Ñ¡Γ«ó αáó¡« N,
Γ« «»Ñαᵿ∩ ß««ΓóÑΓßΓóπÑΓ ßαáó¡Ñ¡¿ε ñóπσ ßΓ᫬, ¬áªñá∩ ¿º ¬«Γ«αδσ
¿¼ÑÑΓ ñ½¿¡π N.
æαáó¡Ñ¡¿Ñ π¬áºáΓѽÑ⌐.
ä½∩ ßαáó¡Ñ¡¿∩ «»Ñαá¡ñ«ó Γ¿»á π¬áºáΓѽ∞ ß«ó¼ÑßΓ¿¼δσ Γ¿»«ó ¼«úπΓ
¿ß»«½∞º«óáΓ∞ß∩ «»ÑαáΓ«αδ = ¿ <>. äóá π¬áºáΓѽ∩ αáó¡δ Γ«½∞¬« ó Γ«¼
ß½πτáÑ, Ñß½¿ «¡¿ ßßδ½áεΓß∩ ¡á «ñ¿¡ ¿ ëà ªÑ «íΩѬΓ.
Åα¿¼Ñτá¡¿Ñ. Åα¿ ßαáó¡Ñ¡¿¿ π¬áºáΓѽÑ⌐ ó Turbo Pascal »α«ßΓ«
ßαáó¡¿óáεΓß∩ ßÑú¼Ñ¡Γδ ¿ ß¼ÑΘÑ¡¿∩. é ß««ΓóÑΓßΓó¿¿ ß« ßσѼ«⌐
αẼÑΘÑ¡¿∩ ßÑú¼Ñ¡Γ«ó »α«µÑßß«α«ó 80σ86 ñóá ½«ú¿τÑ߬¿ αẽ¿τ¡δσ
π¬áºáΓѽ∩ ¼«úπΓ Σá¬Γ¿τÑ߬¿ π¬áºδóáΓ∞ ¡á «ñ¡π ¿ Γπ ªÑ Σ¿º¿τÑ߬πε
∩τÑ⌐¬π »á¼∩Γ¿. ìá»α¿¼Ñα, Ptr($0040, $0049) ¿ Ptr($0000, $0049)
∩ó½∩εΓß∩ π¬áºáΓѽ∩¼¿ ß «ñ¿¡á¬«ó묨 áñαÑßἿ. ô¬áºáΓѽ¿,
ó«ºóαáΘáѼδÑ ßΓá¡ñáαΓ¡δ¼¿ »α«µÑñπαἿ New ¿ GetMem, óßÑúñá
¡«α¼á½¿º«óá¡¡δ (ß¼ÑΘÑ¡¿Ñ ¡áσ«ñ¿Γß∩ ó ñ¿á»áº«¡Ñ «Γ $0000 ñ« $000F)
¿, Γᬿ¼ «íαẫ¼, óßÑúñá íπñπΓ ßαáó¡¿óáΓ∞ß∩ ¬«ααÑ¬Γ¡«. Åα¿ ß«ºñá¡¿¿
π¬áºáΓѽÑ⌐ ß »«¼«Θ∞ε ßΓá¡ñáαΓ¡«⌐ Σπ¡¬µ¿¿ Ptr ¿ »«ß½ÑñπεΘѼ
ßαáó¡Ñ¡¿¿ Γᬿσ π¬áºáΓѽÑ⌐ ¡πª¡« «ß«íπε «ßë᫪¡«ßΓ∞.
æαáó¡Ñ¡¿Ñ ¼¡«ªÑßΓó.
àß½¿ «»Ñαá¡ñἿ ∩ó½∩εΓß∩ ¼¡«ªÑßΓóá Ç ¿ é, Γ« »α¿ ¿σ ßαáó¡Ñ¡¿¿
»«½πτáεΓß∩ ß½ÑñπεΘ¿Ñ αѺπ½∞ΓáΓδ:
- éδαáªÑ¡¿Ñ Ç = é ¿ßΓ¿¡¡« Γ«½∞¬« Γ«úñá, ¬«úñá Ç ¿ é ß«ñÑαªáΓ
«ñ¡¿ ¿ ΓÑ ªÑ φ½Ñ¼Ñ¡Γδ, ó »α«Γ¿ó¡«¼ ß½πτáÑ Ç <> é.
- éδαáªÑ¡¿Ñ Ç <= é ¿ßΓ¿¡¡«, Ñß½¿ ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ ¼¡«ªÑßΓóá Ç
Γá¬ªÑ ∩ó½∩ÑΓß∩ φ½Ñ¼Ñ¡Γ«¼ ¼¡«ªÑßΓóá é.
- éδαáªÑ¡¿Ñ Ç >= é ¿ßΓ¿¡¡«, ¬«úñá ¬áªñδ⌐ φ½Ñ¼Ñ¡Γ ¼¡«ªÑßΓóá é
Γá¬ªÑ ∩ó½∩ÑΓß∩ φ½Ñ¼Ñ¡Γ«¼ ¼¡«ªÑßΓóá Ç
Åα«óÑα¬á ¡á »α¿¡áñ½Ñª¡«ßΓ∞ ¼¡«ªÑßΓóπ.
Ä»ÑαáΓ«α in ó«ºóαáΘáÑΓ ¿ßΓ¿¡¡«Ñ º¡áτÑ¡¿Ñ (True), ¬«úñá
º¡áτÑ¡¿Ñ φ½Ñ¼Ñ¡Γá »«α∩ñ¬«ó«ú« Γ¿»á ∩ó½∩ÑΓß∩ φ½Ñ¼Ñ¡Γ«¼
Γ¿»á ¼¡«ªÑßΓóá, ó »α«Γ¿ó¡«¼ ß½πτáÑ «¡ ó«ºóαáΘáÑΓ º¡áτÑ¡¿Ñ False
(½«ª¡«Ñ).
Ä»ÑαáΓ«α @.
æ »«¼«Θ∞ε «»ÑαáΓ«αá @ ¼«ª¡« ß«ºñáΓ∞ π¬áºáΓѽ∞ ¡á »ÑαѼѡ¡πε. é
Γáí½¿µÑ 6.9. »«¬áºá¡δ Γ¿»δ «»Ñαá¡ñá ¿ αѺπ½∞ΓáΓ«ó.
Æáí½¿µá 6.9. Ä»Ñαᵿ∩ ß«ºñá¡¿∩ π¬áºáΓѽ∩.
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«α Ä»Ñαᵿ∩ Æ¿» «»Ñαá¡ñá Æ¿» αѺπ½∞ΓáΓá
───────────────────────────────────────────────────────────────────
@ Σ«α¼¿α«óá¡¿Ñ ßßδ½¬á ¡á »ÑαѼѡ- π¬áºáΓѽ∞ (Γᬫ⌐ ªÑ
π¬áºáΓѽ∩ ¡πε ¿½¿ »α«µÑñπαπ ¬á¬ ß nil)
¿½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α
Σπ¡¬µ¿¿
───────────────────────────────────────────────────────────────────
Ä»ÑαáΓ«α @ ∩ó½∩ÑΓß∩ π¡áα¡δ¼ «»ÑαáΓ«α«¼, ó ¬áτÑßΓóÑ «»Ñαá¡ñá
¬«Γ«α«ú« ¿ß»«½∞ºπÑΓß∩ ßßδ½¬á ¡á ¿ñÑ¡Γ¿Σ¿¬áΓ«α »ÑαѼѡ¡«⌐, »α«µÑñπαδ
¿½¿ Σπ¡¬µ¿¿; «»Ñαá¡ñπ ó«ºóαáΘáÑΓß∩ π¬áºáΓѽ∞. Æ¿» φΓ«ú« º¡áτÑ¡¿∩
∩ó½∩ÑΓß∩ Γᬿ¼ ªÑ, ¬á¬ Γ¿» π¬áºáΓѽ∩ nil, ¿, Γᬿ¼ «íαẫ¼, Ñú«
¼«ª¡« »α¿ßó«¿Γ∞ ½εí«¼π π¬áºáΓѽε.
Åα¿¼Ñτá¡¿Ñ: ñ½∩ ¿ß»«½∞º«óá¡¿∩ «»ÑαáΓ«αá @ ñ½∩ »ÑαѼѡ¡«⌐ Γ¿»á
»α«µÑñπαá »α¿¼Ñ¡∩εΓß∩ «ß«íδÑ »αáó¿½á. ä½∩ »«½πτÑ¡¿∩ í«½ÑÑ »«½¡«⌐
¿¡Σ«α¼áµ¿¿ «íαáΓ¿ΓÑß∞ ¬ αáºñѽπ "Åα«µÑñπα¡δÑ Γ¿»δ".
êß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá @ ñ½∩ »ÑαѼѡ¡«⌐.
êß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá @ ñ½∩ «íδτ¡«⌐ »ÑαѼѡ¡«⌐ (¡Ñ
»áαá¼ÑΓαá) ¡Ñ óδºδóáÑΓ ¡¿¬á¬¿σ ºáΓαπñ¡Ñ¡¿⌐.
éóÑñѼ «íΩ∩ó½Ñ¡¿∩:
type
TwoChar = array [0 .. 1] of Char;
var
Int : Integer;
TwoCharPtr : ^TwoChar;
Γ«úñá πΓóÑαªñÑ¡¿Ñ
TwoCharPtr := @Int;
»α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« TwoCharPtr π¬áºδóáÑΓ ¡á Int. TwoCharPtr^
ßΓá¡«ó¿Γß∩ »«óΓ«α¡«⌐ ¿¡ΓÑα»αÑΓᵿÑ⌐ º¡áτÑ¡¿∩ Int, ¬á¬ Ñß½¿ íδ «¡á
íδ½á ß¿¼ó«½∞¡δ¼ ¼áßß¿ó«¼ array[0 .. 1] of Char.
êß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá @ ñ½∩ »áαá¼ÑΓαá-º¡áτÑ¡¿∩.
êß»«½∞º«óá¡¿Ñ «»Ñαᵿ¿ @ ñ½∩ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá-º¡áτÑ¡¿∩
»α¿ó«ñ¿Γ ¬ Γ«¼π, τΓ« íπñÑΓ »«ßΓα«Ñ¡ π¬áºáΓѽ∞, π¬áºδóáεΘ¿⌐ ¡á
∩τÑ⌐¬π ßΓѬá, ó ¬«Γ«α«⌐ ß«ñÑনΓß∩ Σá¬Γ¿τÑ߬«Ñ º¡áτÑ¡¿Ñ »áαá¼ÑΓαá.
ÅαÑñ»«½«ª¿¼, τΓ« Foo ∩ó½∩ÑΓß∩ Σ«α¼á½∞¡δ¼ »áαá¼ÑΓα«¼-º¡áτÑ¡¿Ñ¼
»α«µÑñπαδ, á FooPtr ∩ó½∩ÑΓß∩ »ÑαѼѡ¡«⌐ π¬áºáΓѽѼ. àß½¿ ó
»α«µÑñπαÑ óδ»«½¡∩ÑΓß∩ «»Ñαᵿ∩:
FooPtr := @Foo;
Γ« FooPtr^ íπñÑΓ ßß佬«⌐ ¡á º¡áτÑ¡¿Ñ Foo. Äñ¡á¬«, FooPtr^ ¡Ñ
π¬áºδóáÑΓ ¡á ßá¼ »áαá¼ÑΓα Foo, »«ß¬«½∞¬π «¡ π¬áºδóáÑΓ ¡á º¡áτÑ¡¿Ñ
Foo, ¬«Γ«α«Ñ í佫 óº∩Γ« ¿º Foo ¿ ß«σαá¡Ñ¡« ó ßΓѬÑ.
êß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá @ ñ½∩ »áαá¼ÑΓαá-»ÑαѼѡ¡«⌐.
Åα¿¼Ñ¡Ñ¡¿Ñ «»ÑαáΓ«αá @ ¬ »áαá¼ÑΓαπ-»ÑαѼѡ¡«⌐ »α¿óÑñÑΓ ¬ Γ«¼π,
τΓ« íπñÑΓ ßΣ«α¼¿α«óá¡ π¬áºáΓѽ∞ ¡á Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα (π¬áºáΓѽ∞
íÑαÑΓß∩ ¿º ßΓѬá). ÅαÑñ»«½«ª¿¼, τΓ« One - »áαá¼ÑΓα-»ÑαѼѡ¡á∩
»α«µÑñπαδ, Two - »ÑαѼѡ¡á∩, »ÑαÑñáóáѼá∩ ó »α«µÑñπαπ ó ¬áτÑßΓóÑ
Σá¬Γ¿τÑ߬«ú« »áαá¼ÑΓαá »ÑαѼѡ¡«⌐ One, á OnePtr ∩ó½∩ÑΓß∩ π¬áºáΓѽѼ
¡á »ÑαѼѡ¡πε. àß½¿ ó »α«µÑñπαÑ óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α:
OnePtr := @One;
Γ« OnePtr ∩ó½∩ÑΓß∩ π¬áºáΓѽѼ ¡á »ÑαѼѡ¡πε Two, á OnePtr^ - ßß佬á
¡á ßá¼π »ÑαѼѡ¡πε Two.
êß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá @ ñ½∩ »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿.
éδ ¼«ªÑΓÑ »α¿¼Ñ¡∩Γ∞ «»ÑαáΓ«α @ ¬ »α«µÑñπαÑ ¿½¿ Σπ¡¬µ¿¿, »α¿
φΓ«¼ óδ »«½πτ¿ΓÑ π¬áºáΓѽ∞ ¡á ÑÑ Γ«τ¬π óσ«ñá. é Turbo Pascal ¡Ñ
»αÑñπß¼«ΓαÑ¡ ¼Ñσá¡¿º¼ ñ½∩ ¿ß»«½∞º«óá¡¿∩ Γᬫú« π¬áºáΓѽ∩.
àñ¿¡ßΓóÑ¡¡δ¼ »α¿¼Ñ¡Ñ¡¿Ñ¼ π¬áºáΓѽ∩ »α«µÑñπαδ ¼«ªÑΓ íδΓ∞ »ÑαÑñáτá
Ñú« »α«úαá¼¼Ñ ¡á ∩ºδ¬Ñ áßßѼí½Ñα ¿½¿ ¿ß»«½∞º«óá¡¿Ñ ó inline
«»ÑαáΓ«αÑ. æ¼. "Turbo Assembler ¿ Turbo Pascal" ó ú½áóÑ 23 ñ½∩
¿¡Σ«α¼áµ¿¿ »« ¿¡ΓÑαΣÑ⌐ßπ Turbo Assembler ß Turbo Pascal.
êß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá @ ß ¼ÑΓ«ñ«¼.
éδ ¼«ªÑΓÑ »α¿¼Ñ¡¿Γ∞ @ ¬ πΓ«τ¡Ñ¡¡«¼π ¿ñÑ¡Γ¿Σ¿¬áΓ«απ ¼ÑΓ«ñá,
τΓ«íδ ß«ºñáΓ∞ π¬áºáΓѽ∞ ¡á Γ«τ¬π óσ«ñá ¼ÑΓ«ñá.
é맮ó Σπ¡¬µ¿¿.
é맮ó Σπ¡¬µ¿¿ »α¿ó«ñ¿Γ ¬ á¬Γ¿ó¿ºáµ¿¿ Σπ¡¬µ¿¿, ºáñá¡¡«⌐ ß
»«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Σπ¡¬µ¿¿. êñÑ¡Γ¿Σ¿¬áΓ«α«¼ Σπ¡¬µ¿¿ ∩ó½∩ÑΓß∩
½εí«⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¿ß»«½∞º«óá¡¡δ⌐ ñ½∩ «í«º¡áτÑ¡¿∩ Σπ¡¬µ¿¿.
àß½¿ ó ß««ΓóÑΓßΓóπεΘѼ «íΩ∩ó½Ñ¡¿¿ Σπ¡¬µ¿¿ ß«ñÑনΓß∩ ß»¿ß«¬
Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó, Γ« ó ó맮óÑ Σπ¡¬µ¿¿ ñ«½ªÑ¡ ß«ñÑαªáΓ∞ß∩
ß»¿ß«¬ Σá¬Γ¿τÑ߬¿σ »áαá¼ÑΓα«ó. èáªñδ⌐ »áαá¼ÑΓα »«ñßΓáó½∩ÑΓß∩ ó¼ÑßΓ«
ß««ΓóÑΓßΓóπεΘÑú« Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá ó ß««ΓóÑΓßΓó¿¿ ß ¡áí«α«¼
»αáó¿½, ¬«Γ«αδ⌐ óó«ñ¿Γß∩ ó ú½áóÑ 19 "éó«ñ ¿ óδó«ñ".
┌─────────────┐
ó맮ó Σπ¡¬µ¿¿ ───÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├──┬────────────────────────────÷
│ Σπ¡¬µ¿¿ │ │ °
└─────────────┘ │ ┌──────────────────┐ │
└──÷│ß»¿ß«¬ Σá¬Γ¿τÑ߬¿σ├──┘
│ »áαá¼ÑΓα«ó │
└──────────────────┘
┌───┐ ┌───────────┐ ┌───┐
ß»¿ß«¬ Σá¬Γ¿τÑ߬¿σ ─────÷│ ( ├─────÷│Σá¬Γ¿τÑ߬¿⌐├──┬─÷│ ) ├───÷
»áαá¼ÑΓα«ó └───┘ ° │ »áαá¼ÑΓα │ │ └───┘
│ └───────────┘ │
│ ┌───┐ │
└───┤ , │≈────────┘
└───┘
┌────────────┐
Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα ───┬──÷│ óδαáªÑ¡¿Ñ ├────────÷
│ └────────────┘ °
│ ┌────────────┐ │
└──÷│ ßßδ½¬á ¡á ├───┘
│ »ÑαѼѡ¡πε │
└────────────┘
Åα¿óÑñѼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ ó맮ó«ó Σπ¡¬µ¿⌐:
Sum(A, 63)
Maximum(147, J)
Sin(X + Y)
Eof(F)
Volume(Radius, Height)
Åα¿¼Ñτá¡¿Ñ: öπ¡¬µ¿ε ¼«ª¡« Γá¬ªÑ óδºóáΓ∞ ¿ τÑαѺ »ÑαѼѡ¡πε
Γ¿»á »α«µÑñπαá. ü«½ÑÑ »«ñα«í¡á∩ ¿¡Σ«α¼áµ¿∩ ß«ñÑনΓß∩ ó αáºñѽÑ
"Åα«µÑñπα¡δÑ Γ¿»δ" ú½áóδ 8.
æ¿¡Γá¬ß¿ß ó맮óá Σπ¡¬µ¿¿ αáßΦ¿αÑ¡, τΓ«íδ αáºαÑΦ¿Γ∞
πΓ«τ¡Ñ¡¡«¼π ¿ñÑ¡Γ¿Σ¿¬áΓ«απ ¼ÑΓ«ñá «í«º¡áτáΓ∞ Σπ¡¬µ¿ε ñ½∩ ºá¼Ñ¡δ
¿ñÑ¡Γ¿Σ¿¬áΓ«αá Σπ¡¬µ¿¿.
ÄíßπªñÑ¡¿Ñ αáßΦ¿αÑ¡¿⌐ «»ÑαáΓ«α«ó »α«µÑñπαδ ó αáºñѽÑ
"Ä»ÑαáΓ«αδ »α«µÑñπαδ" ú½áóδ 7 ΓᬠªÑ »α¿¼Ñ¡¿¼« ¬ ó맮óá¼ Σπ¡¬µ¿⌐.
é αѪ¿¼Ñ αáßΦ¿αÑ¡¡«ú« ß¿¡Γá¬ß¿ßá {$X+} ó맮ó Σπ¡¬µ¿¿ ¼«ªÑΓ
¿ß»«½∞º«óáΓ∞ß∩ ¬á¬ «»ÑαáΓ«α; Γ.Ñ. αѺπ½∞ΓáΓ ó맮óá Σπ¡¬µ¿¿ ¼«ªÑΓ
íδΓ∞ «Γíα«ΦÑ¡. (æ¼. "ÉáßΦ¿αÑ¡¡δ⌐ ß¿¡Γá¬ß¿ß" ó ú½áóÑ 21.)
櫺ñá¡¿Ñ ¼¡«ªÑßΓó.
櫺ñá¡¿Ñ ¼¡«ªÑßΓóá «»αÑñѽ∩ÑΓ º¡áτÑ¡¿∩ Γ¿»á ¼¡«ªÑßΓó« ¿
»«½πτáÑΓß∩ »πΓѼ ºá»¿ß¿ óδαáªÑ¡¿⌐, ºá¬½ετÑ¡¡δσ ó ¬óáñαáΓ¡δÑ ß¬«í¬¿
[]. èáªñ«Ñ óδαáªÑ¡¿Ñ «»αÑñѽ∩ÑΓ º¡áτÑ¡¿Ñ ¼¡«ªÑßΓóá.
┌───┐ ┌───┐
«»¿ßáΓѽ∞ ───÷│ [ ├──┬────────────────────────÷│ ] ├───÷
¼¡«ªÑßΓóá └───┘ │ ┌────────────┐ ° └───┘
└───÷│ úαπ»»á ├──┬─┘
° │ φ½Ñ¼Ñ¡Γ«ó │ │
│ └────────────┘ │
│ ┌───┐ │
└────┤ , │≈────────┘
└───┘
┌───────────┐
úαπ»»á φ½Ñ¼Ñ¡Γ«ó ───÷│ óδαáªÑ¡¿Ñ ├──┬───────────────────────────÷
└───────────┘ │ °
│ ┌──┐ ┌───────────┐ │
└─÷│..├──÷│ óδαáªÑ¡¿Ñ ├─┘
└──┘ └───────────┘
Äí«º¡áτÑ¡¿Ñ [] «í«º¡áτáÑΓ »πßΓ«Ñ ¼¡«ªÑßΓó«, Γ¿» ¬«Γ«α«ú«
ß«ó¼ÑßΓ¿¼ »« »α¿ßóá¿óá¡¿ε ß Γ¿»«¼ ½εí«ú« ¼¡«ªÑßΓóá. ïεíá∩ úαπ»»á
φ½Ñ¼Ñ¡Γ«ó, «íΩ∩ó½Ñ¡¡á∩, ¬á¬ X..Y, «íΩ∩ó½∩ÑΓ φ½Ñ¼Ñ¡ΓἿ ¼¡«ªÑßΓóá
óßÑ º¡áτÑ¡¿∩ ó ñ¿á»áº«¡Ñ X..Y. àß½¿ X í«½∞ΦÑ, τѼ Y, Γ« X..Y ¡Ñ
«»¿ßδóáÑΓ ¡¿¬á¬¿σ φ½Ñ¼Ñ¡Γ«ó ¿ [X..Y] «í«º¡áτáÑΓ »πßΓ«Ñ ¼¡«ªÑßΓó«.
é ¬«¡¬αÑΓ¡«¼ «»¿ßáΓÑ½Ñ ¼¡«ªÑßΓóá óßÑ º¡áτÑ¡¿∩ óδαáªÑ¡¿⌐ ó
úαπ»»Ñ φ½Ñ¼Ñ¡Γ«ó ñ«½ª¡δ ¿¼ÑΓ∞ «ñ¿¡ ¿ ëà ªÑ »«α∩ñ¬«óδ⌐ Γ¿».
Åα¿óÑñѼ ¡Ñ¬«Γ«αδÑ »α¿¼Ñαδ ß«ºñá¡¿∩ ¼¡«ªÑßΓó:
[Red, C, Green]
[1, 5, 10..K mod 12, 23]
['A'..'Z', 'a'..'z', chr(Digit + 48)]
Åα¿óÑñÑ¡¿Ñ Γ¿»á.
Æ¿» óδαáªÑ¡¿∩ ¼«ª¡« ¿º¼Ñ¡¿Γ∞ ¡á ñαπú«⌐ Γ¿» ß »«¼«Θ∞ε
»α¿óÑñÑ¡¿∩ Γ¿»á.
┌─────────────┐ ┌───┐ ┌─────────┐ ┌───┐
»α¿óÑñÑ¡¿Ñ ───÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├──÷│ ( ├──÷│óδαáªÑ¡¿Ñ├──÷│ ) ├──÷
º¡áτÑ¡¿ε Γ¿»á │ Γ¿»á │ └───┘ └─────────┘ └───┘
└─────────────┘
Æ¿» óδαáªÑ¡¿∩ ¿ ºáñáóáѼδ⌐ Γ¿» ñ«½ª¡δ «íá ¿¼ÑΓ∞ »«α∩ñ¬«óδ⌐ Γ¿»
¿½¿ Γ¿» π¬áºáΓѽÑ⌐. ä½∩ »«α∩ñ¬«óδσ Γ¿»«ó αѺπ½∞Γ¿απεΘÑÑ º¡áτÑ¡¿Ñ
»«½πτáÑΓß∩ »πΓѼ »αÑ«íαẫóá¡¿∩ óδαáªÑ¡¿⌐. ÅαÑ«íαẫóá¡¿Ñ ¼«ªÑΓ
»α¿óÑßΓ¿ ¬ π¼Ñ¡∞ΦÑ¡¿ε ¿½¿ πóѽ¿τÑ¡¿ε αẼÑαá ¿ßσ«ñ¡«ú« º¡áτÑ¡¿∩ ó
Γ«¼ ß½πτáÑ, Ñß½¿ αẼÑα π¬áºá¡¡«ú« Γ¿»á «Γ½¿τáÑΓß∩ «Γ αẼÑαá Γ¿»á
óδαáªÑ¡¿∩. é Γ«¼ ß½πτáÑ, ¬«úñá º¡áτÑ¡¿Ñ αáßΦ¿α∩ÑΓß∩, Ñú« º¡á¬
óßÑúñá ß«σαá¡∩ÑΓß∩. Æᬿ¼ «íαẫ¼, º¡áτÑ¡¿Ñ óßÑúñá ∩ó½∩ÑΓß∩
αáßΦ¿α∩Ñ¼δ¼ »« º¡á¬π.
æ¿¡Γá¬ß¿ß »α¿óÑñÑ¡¿∩ Γ¿»á º¡áτÑ¡¿∩ »«τΓ¿ ß«ó»áñáÑΓ ß
ß¿¡Γá¬ß¿ß«¼ »α¿óÑñÑ¡¿∩ Γ¿»á »ÑαѼѡ¡«⌐ (ß¼. αáºñѽ "Åα¿óÑñÑ¡¿Ñ Γ¿»á
»ÑαѼѡ¡«⌐" ú½áóδ 4). Äñ¡á¬« »α¿ »α¿óÑñÑ¡¿¿ Γ¿»á º¡áτÑ¡¿∩ «»Ñαᵿ¿
»α«¿ºó«ñ∩Γß∩ ß« º¡áτÑ¡¿∩¼¿, á ¡Ñ ß »ÑαѼѡ¡δ¼¿ ¿, Γᬿ¼ «íαẫ¼,
¼«úπΓ ¡Ñ πτáßΓó«óáΓ∞ ó ßß佬áσ ¡á »ÑαѼѡ¡δÑ, Γ« ÑßΓ∞ ºá
»α¿óÑñÑ¡¿Ñ¼ Γ¿»á º¡áτÑ¡¿∩ ¡Ñ ¼«úπΓ ß½Ññ«óáΓ∞ ¬óá½¿Σ¿¬áΓ«αδ. é
τáßΓ¡«ßΓ¿, »α¿óÑñÑ¡¿Ñ Γ¿»á º¡áτÑ¡¿∩ ¡Ñ ñ«½ª¡δ óßΓαÑτáΓ∞ß∩ ó ½Ñó«⌐
τáßΓ¿ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩.
ìѬ«Γ«αδÑ »α¿¼Ñαδ »α¿óÑñÑ¡¿∩ Γ¿»á º¡áτÑ¡¿⌐:
Integer('A')
Char(48)
Boolean(0)
Color(2)
Longint(@Buffer)
BytePtr(Ptr($40, $49))
Åα«µÑñπα¡δÑ Γ¿»δ ó óδαáªÑ¡¿∩σ.
êß»«½∞º«óá¡¿Ñ »α«µÑñπα¡«⌐ »ÑαѼѡ¡«⌐ ó «»ÑαáΓ«αÑ ¿½¿ ó
óδαáªÑ¡¿¿ «º¡áτáÑΓ ó맮ó »α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, σαá¡∩ΘÑ⌐ß∩ ó
»ÑαѼѡ¡«⌐. Äñ¡á¬« ÑßΓ∞ ¿ß¬½ετÑ¡¿Ñ: ¬«úñá Turbo Pascal ó¿ñ¿Γ
»α«µÑñπα¡πε »ÑαѼѡ¡πε ó ½Ñó«⌐ τáßΓ¿ «»ÑαáΓ«αá »α¿ßóá¿óá¡¿∩, «¡
º¡áÑΓ, τΓ« »αáóá∩ τáßΓ∞ »αÑñßΓáó½∩ÑΓ »α«µÑñπα¡«Ñ º¡áτÑ¡¿Ñ.
ìá»α¿¼Ñα, αáßß¼«Γα¿¼ »α«úαá¼¼π:
type
IntFunc = function: Integer;
var
F: IntFunc;
N: Integer;
function ReadInt;
var
I: Integer;
begin
Read(I);
ReadInt := I;
end;
begin
F := ReadInt;
N := ReadInt;
end;
ÅÑαóδ⌐ «»ÑαáΓ«α ó ú½áó¡«⌐ »α«úαá¼¼Ñ »α¿ßóá¿óáÑΓ »α«µÑñπα¡«Ñ
º¡áτÑ¡¿Ñ (áñαÑß) ReadInt »α«µÑñπα¡«⌐ »ÑαѼѡ¡«⌐ F, á óΓ«α«⌐
«»ÑαáΓ«α óδºδóáÑΓ ReadInt ¿ »α¿ßóá¿óáÑΓ ó«ºóαáΘáѼ«Ñ º¡áτÑ¡¿Ñ ó N.
Éẽ¿τ¿Ñ ¼Ñªñπ »«½πτÑ¡¿Ñ¼ »α«µÑñπα¡«ú« º¡áτÑ¡¿∩ ¿ óδº«ó«¼ Σπ¡¬µ¿¿
»α«¿ºó«ñ¿Γß∩ »« Γ¿»π ¿ß»«½∞ºπѼ«⌐ »ÑαѼѡ¡«⌐ ó «»ÑαáΓ«αÑ
»α¿ßóá¿óá¡¿∩ (F ¿½¿ N).
è ß«ªá½Ñ¡¿ε ÑßΓ∞ ß¿Γπᵿ¿, úñÑ ¬«¼»¿½∩Γ«α ¡Ñ ¼«ªÑΓ «»αÑñѽ¿Γ∞
ΓαÑíπѼ«Ñ ñÑ⌐ßΓó¿Ñ ¿º ¬«¡ΓѬßΓá. ìá»α¿¼Ñα, ó ß½ÑñπεΘѼ «»ÑαáΓ«αÑ
¡ÑΓ «τÑó¿ñ¡«ú« ß»«ß«íá πº¡áΓ∞ ñ«½ª¡« ½¿ ßαáó¡¿óáΓ∞ß∩ »α«µÑñπα¡«Ñ
º¡áτÑ¡¿Ñ ó F ß »α«µÑñπα¡δ¼ º¡áτÑ¡¿Ñ¼ ó ReadInt, ¿½¿ «»αÑñѽ¿Γ∞,
π¬áºδóáÑΓ ½¿ F ¡á ReadInt, ¿½¿ ñ«½ªÑ¡ íδΓ∞ ó맮ó F ¿ ReadInt, á
ºáΓѼ »α«¿ºóÑßΓ¿ ßαáó¡Ñ¡¿Ñ ó«ºóαáΘÑ¡¡δσ º¡áτÑ¡¿⌐.
if F = ReadInt then
Writeln('Equal');
Äñ¡á¬«, ß¿¡Γá¬ß¿ß ßΓá¡ñáαΓ¡«ú« Åá߬á½∩ π¬áºδóáÑΓ, τΓ«
»«∩ó½Ñ¡¿Ñ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Σπ¡¬µ¿¿ ó óδαáªÑ¡¿¿ «º¡áτáÑΓ ó맮ó φΓ«⌐
Σπ¡¬µ¿¿, ΓᬠτΓ« φΣΣÑ¬Γ »αÑñδñπΘÑú« «»ÑαáΓ«αá - φΓ« ó맮ó F ¿
ReadInt ¿ ßαáó¡Ñ¡¿Ñ ó«ºóαáΘÑ¡¡δσ º¡áτÑ¡¿⌐. ùΓ«íδ ßαáó¡¿Γ∞
»α«µÑñπα¡«Ñ º¡áτÑ¡¿Ñ ó F ß »α«µÑñπα¡δ¼ º¡áτÑ¡¿Ñ¼ ó ReadInt, ñ«½ª¡á
¿ß»«½∞º«óáΓ∞ß∩ ¬«¡ßΓαπ¬µ¿∩:
if @F = @ReadInt then
Writeln('Equal');
Åα¿ ¿ß»«½∞º«óá¡¿¿ ß »α«µÑñπα¡«⌐ »ÑαѼѡ¡«⌐ ¿½¿ ¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼
»α«µÑñπαδ ¿½¿ Σπ¡¬µ¿¿, «»ÑαáΓ«α áñαÑßá @ »αÑñ«ΓóαáΘáÑΓ ¬«¼»¿½∩Γ«α
«Γ ó맮óá »α«µÑñπαδ ¿ »αÑ«íαáºπÑΓ áαúπ¼Ñ¡Γ ó π¬áºáΓѽ∞. Æᬠ@F
»αÑ«íαáºπÑΓ F ó »ÑαѼѡ¡πε ¡ÑΓ¿»¿α«óá¡¡«ú« π¬áºáΓѽ∩, ß«ñÑαªáΘπε
áñαÑß, á @ReadInt ó«ºóαáΘáÑΓ áñαÑß ReadInt; ºáΓѼ 2 º¡áτÑ¡¿∩
π¬áºáΓѽÑ⌐ ¼«ª¡« ßαáó¡¿Γ∞ ñ½∩ «»αÑñѽѡ¿∩, ßßδ½áÑΓß∩ ½¿ F ¡á
ReadInt.
ùΓ«íδ »«½πτ¿Γ∞ áñαÑß »α«µÑñπα¡«⌐ »ÑαѼѡ¡«⌐, á ¡Ñ áñαÑß,
σαá¡¿¼δ⌐ ó ¡Ñ⌐, ¡πª¡« ¿ß»«½∞º«óáΓ∞ ñó«⌐¡«⌐ «»ÑαáΓ«α áñαÑßá @@.
ìá»α¿¼Ñα, @P »αÑ«íαáºπÑΓ P ó »ÑαѼѡ¡πε ¡ÑΓ¿»¿α«óá¡¡«ú« π¬áºáΓѽ∩,
á @@P ó«ºóαáΘáÑΓ áñαÑß »ÑαѼѡ¡«⌐ É.