home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS 1
/
BBS#1.iso
/
document
/
pas60pg.lzh
/
PG01.MY
< prev
next >
Wrap
Text File
|
1991-01-25
|
20KB
|
459 lines
ù Ç æ Æ £ 1.
æÆÇìäÇÉÆ TURBO PASCAL.
âïÇéÇ 1.
ïàèæàî¢ ê èÄìæÆÇìÆ¢.
ï Ñ ¬ ß Ñ ¼ á ¼ ¿ ¡áºδóáεΓß∩ ¼¿¡¿¼á½∞¡δÑ º¡áτ¿¼δÑ Ññ¿¡¿µδ
ΓѬßΓá ó »α«úαá¼¼Ñ, ¡á»¿ßá¡¡«⌐ ¡á Åá߬á½Ñ. Ä¡¿ »αÑñßΓáó½Ñ¡δ Γᬿ¼¿
¬áΓÑú«α¿∩¼¿ ¬á¬ ߻ѵ¿á½∞¡δÑ ß¿¼ó«½δ, ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ, ¼ÑΓ¬¿, τ¿ß½á ¿
ßΓ᫬«óδÑ ¬«¡ßΓá¡Γδ.
Åα«úαá¼¼á, ¡á»¿ßá¡¡á∩ ¡á Åá߬á½Ñ, ß«ßΓ«¿Γ ¿º ½Ñ¬ßѼ ¿
αáºñѽ¿ΓѽÑ⌐, úñÑ αáºñѽ¿Γѽ∞ »αÑñßΓáó½∩ÑΓ ß«í«⌐ »α«íѽ ¿½¿
¬«¼¼Ñ¡Γáα¿⌐. äóÑ ß«ßÑñ¡¿σ ½Ñ¬ßѼδ, Ñß½¿ «¡¿ »αÑñßΓáó½∩εΓ ß«í«⌐
ºáαѺÑαó¿α«óá¡¡«Ñ ß½«ó«, ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¼ÑΓ¬π ¿½¿ τ¿ß½«, ñ«½ª¡δ
íδΓ∞ «Γñѽѡδ ñαπú «Γ ñαπúá «ñ¡¿¼ ¿½¿ ¡Ñ߬«½∞¬¿¼¿ αáºñѽ¿Γѽ∩¼¿.
Åα¿¼Ñτá¡¿Ñ: Éáºñѽ¿Γѽ¿ ¡Ñ ¼«úπΓ íδΓ∞ τáßΓ∞ε ½Ñ¬ßѼ, ºá
¿ß¬½ετÑ¡¿Ñ¼ ßΓ᫬«óδσ ¬«¡ßΓá¡Γ.
æ»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ
¿ ºáαѺÑαó¿α«óá¡¡δÑ ß½«óá
Turbo Pascal ¿ß»«½∞ºπÑΓ ß½ÑñπεΘ¿Ñ »«ñ¼¡«ªÑßΓóá ¡áí«αá ß¿¼ó«½«ó
¬«ñá ASCII:
- üπ¬óδ á¡ú½¿⌐߬«ú« á½Σáó¿Γá «Γ A ñ« Z ¿ «Γ a ñ« z;
- û¿Σαδ - áαáí߬¿Ñ «Γ 0 ñ« 9;
- ÿÑßΓ¡áñµáΓ¿α¿τ¡δÑ µ¿Σαδ - áαáí߬¿Ñ µ¿Σαδ «Γ 0 ñ« 9, íπ¬óδ «Γ
A ñ« F ¿ «Γ a ñ« f.
- Åα«íѽδ - ß¿¼ó«½ »α«íѽá (ASCII32) ¿ óßÑ π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ
¬«ñá ASCII (ASCII «Γ 0 ñ« 31), ó¬½ετá∩ ß¿¼ó«½ ¬«¡µá ßΓ᫬¿
¿½¿ ß¿¼ó«½ ó«ºóαáΓá ¬áαÑΓ¬¿ (ASCII13).
äá½ÑÑ ß½ÑñπÑΓ ñ ¿ á ú α á ¼ ¼ á ß ¿ ¡ Γ á ¬ ß ¿ ß á ñ½∩ íπ¬ó,
µ¿Σα ¿ ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ µ¿Σα. ä½∩ »α«τΓÑ¡¿∩ φΓ«⌐ ñ¿áúαá¼¼δ ¡πª¡«
ß½Ññ«óáΓ∞ ºá ßΓαѽ¬á¼¿. ùáßΓ« óßΓαÑτáεΓß∩ á½∞ΓÑα¡áΓ¿ó¡δÑ »πΓ¿; óßÑ
»πΓ¿, ¡áτ¿¡áεΘ¿Ñß∩ ß½Ñóá ¿ ºá¬á¡τ¿óáεΘ¿Ñß∩ ßΓαѽ¬«⌐ ß»αáóá,
ñ«»πßΓ¿¼δ. ÅπΓ∞ »α«σ«ñ¿Γ τÑαѺ αἬ¿, ß«ñÑαªáΘ¿Ñ ¡áºóá¡¿∩
φ½Ñ¼Ñ¡Γ«ó, ¿ß»«½∞ºπѼδσ ñ½∩ ß«ºñá¡¿∩ τáßΓ¿ ß¿¡Γá¬ß¿ßá.
ê¼Ñ¡á ó »α∩¼«πú«½∞¡¿¬áσ ñ«½ª¡δ íδΓ∞ ºá¼Ñ¡Ñ¡δ ñÑ⌐ßΓó¿Γѽ∞¡δ¼¿
¬«¡ßΓαπ¬µ¿∩¼¿. é ¬óáñαáΓáσ ºá¬½ετÑ¡δ ¡áºóá¡¿∩ ñÑ⌐ßΓó¿Γѽ∞¡δσ
ΓÑମó, ¿ß»«½∞ºπѼδσ ó »α«úαá¼¼Ñ - ºáαѺÑαó¿α«óá¡¡δσ ß½«ó,
«»ÑαáΓ«α«ó ¿ º¡á¬«ó »π¡¬Γπᵿ¿.
íπ¬óá
───────┬──────────────┬──────────────┬──────────────┐
│ │ │ │
∙ ∙ ∙ ∙
┌───┐ ┌───┐ ┌───┐ ┌───┐
│ A │ ... │ Z │ │ a │ ... │ z │
└─┬─┘ └─┬─┘ └─┬─┘ └─┬─┘
│ │ │ │
└──────────────┴──────────────┴──────────────┴─────÷
µ¿Σαá
───────┬───────────┐
│ │
∙ ∙
┌───┐ ┌───┐
│ 0 │ ... │ 9 │
└─┬─┘ └─┬─┘
│ │
└───────────┴───────÷
ΦÑßΓ¡áñµáΓ¿α¿τ¡á∩
µ¿Σαá
┌───────────┐
─────────÷│ µ¿Σαá │─────────────────────────┐
│ └───────────┘ │
│ │
└───┬─────────┬─────────┬─────────┐ │
│ │ │ │ │
∙ ∙ ∙ ∙ │
┌───┐ ┌───┐ ┌───┐ ┌───┐ │
│ A │ .. │ F │ │ a │ ... │ f │ │
└─┬─┘ └─┬─┘ └─┬─┘ └─┬─┘ │
│ │ │ │ │
└─────────┴─────────┴─────────┴─────────┴───÷
C»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ ¿ ºáαѺÑαó¿α«óá¡¡δÑ ß½«óá »αÑñßΓáó½∩εΓ
ß«í«⌐ ß¿¼ó«½δ, ¿¼ÑεΘ¿Ñ «ñ¡« ¿½¿ ¡Ñ߬«½∞¬« Σ¿¬ß¿α«óá¡¡δσ º¡áτÑ¡¿⌐.
æ»Ñµ¿á½∞¡δ¼¿ ß¿¼ó«½á¼¿ ∩ó½∩εΓß∩ ß½ÑñπεΘ¿Ñ ß¿¼ó«½δ:
+ - * / = < > [ ] . , ( ) : ; ^ @ { } $ #
æ½ÑñπεΘ¿Ñ »áαδ ß¿¼ó«½«ó Γá¬ªÑ »αÑñßΓáó½∩εΓ ß«í«⌐ ߻ѵ¿á½∞¡δÑ
ß¿¼ó«½δ:
<= >= := .. (* *) (. .)
ìѬ«Γ«αδÑ ß»Ñµ¿á½∞¡δÑ ß¿¼ó«½δ ∩ó½∩εΓß∩ Γá¬ªÑ «»ÑαáΓ«αἿ.
ïÑóá∩ ¬óáñαáΓ¡á∩ ߬«í¬á ([) φ¬ó¿óá½Ñ¡Γ¡á »áαÑ ß¿¼ó«½«ó, ß«ßΓ«∩ΘÑ⌐
¿º ½Ñó«⌐ ¬απú½«⌐ ߬«í¬¿ ¿ Γ«τ¬¿ ( (. ). ǡὫú¿τ¡« »αáóá∩
¬óáñαáΓ¡á∩ ߬«í¬á (]) φ¬ó¿óá½Ñ¡Γ¡á »áαÑ ß¿¼ó«½«ó, ß«ßΓ«∩ΘÑ⌐ ¿º
Γ«τ¬¿ ¿ »αáó«⌐ ¬απú½«⌐ ߬«í¬¿ ( .) ).
æ½ÑñπεΘ¿Ñ ß½«óá ∩ó½∩εΓß∩ ºáαѺÑαó¿α«óá¡¡δ¼¿ ó Æπαí«-Åá߬á½Ñ:
Æáí½¿µá 1.1. çáαѺÑαó¿α«óá¡¡δÑ ß½«óá Turbo Pascal.
───────────────────────────────────────────────────────────────────
and else inline procedure type
asm end interface program unit
array external interrupt record until
begin file label repeat uses
case for mod set var
const forward nil shl while
constructor function not shr with
destructor goto object string xor
div if of then
do implementation or to
downto in packed
───────────────────────────────────────────────────────────────────
ä½∩ Turbo Pascal íѺαẽ¿τÑ¡ αÑú¿ßΓα ¬½áó¿áΓπαδ, »«φΓ«¼π éδ
¼«ªÑΓÑ ¿ß»«½∞º«óáΓ∞ ó ßó«Ñ⌐ »α«úαá¼¼Ñ ¬á¬ ßΓα«τ¡δÑ, Γᬠ¿ »α«»¿ß¡δÑ
íπ¬óδ.
é ß½ÑñπεΘÑ⌐ Γáí½¿µÑ »α¿óÑñÑ¡δ ßΓá¡ñáαΓ¡δÑ ñ¿αÑ¬Γ¿óδ Turbo
Pascal. é «Γ½¿τ¿Ñ «Γ ºáαѺÑαó¿α«óá¡¡δσ ß½«ó, «¡¿ ¼«úπΓ íδΓ∞
»ÑαÑ«»αÑñÑ½Ñ¡δ »«½∞º«óáΓѽѼ, σ«Γ∩ φΓ« ¿ ¡ÑªÑ½áΓѽ∞¡«.
Æáí½¿µá 1.2. æΓá¡ñáαΓ¡δÑ ñ¿αÑ¬Γ¿óδ Turbo Pascal.
───────────────────────────────────────────────────────────────────
absolute external forward near
assembler far interrupt private
virtual
───────────────────────────────────────────────────────────────────
çá¼ÑΓ¿¼, τΓ« private ºáαѺÑαó¿α«óá¡« Γ«½∞¬« ó¡πΓα¿ «íΩÑ¬Γ«ó.
êñÑ¡Γ¿Σ¿¬áΓ«αδ
êñÑ¡Γ¿Σ¿¬áΓ«αδ óδßΓπ»áεΓ ó ¬áτÑßΓóÑ ¿¼Ñ¡ ¬«¡ßΓá¡Γ, Γ¿»«ó,
»ÑαѼѡ¡δσ, »α«µÑñπα, Σπ¡¬µ¿⌐, ¼«ñπ½Ñ⌐, »α«úαá¼¼ ¿ »«½Ñ⌐ ó ºá»¿ß∩σ.
êñÑ¡Γ¿Σ¿¬áΓ«α ¼«ªÑΓ ¿¼ÑΓ∞ ½εíπε ñ½¿¡π, «ñ¡á¬« º¡áτ¿¼δ¼¿ ∩ó½∩εΓß∩
Γ«½∞¬« »ÑαóδÑ 63 ß¿¼ó«½á.
êñÑ¡Γ¿Σ¿¬áΓ«α ñ«½ªÑ¡ ¡áτ¿¡áΓ∞ß∩ ß íπ¬óδ ¿½¿ ß¿¼ó«½á
»«ñτÑનóá¡¿∩ ¿ ¡Ñ ñ«½ªÑ¡ ß«ñÑαªáΓ∞ »α«íѽ«ó. Å«ß½Ñ »Ñαó«ú« ß¿¼ó«½á
ñ«»π߬áεΓß∩ íπ¬óδ, µ¿Σαδ ¿ º¡á¬ »«ñτÑનóá¡¿∩ (ASCII $5F). èᬠ¿
ºáαѺÑαó¿α«óá¡¡δÑ ß½«óá, ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ íѺαẽ¿τ¡δ ¬ αÑú¿ßΓαπ
¬½áó¿áΓπαδ.
è«úñá ¿¼ÑÑΓß∩ ¡Ñ߬«½∞¬« φ¬ºÑ¼»½∩α«ó «ñ¡«ú« ¿ Γ«ú« ªÑ
¿ñÑ¡Γ¿Σ¿¬áΓ«αá, ñ½∩ π¬áºá¡¿∩ ¡πª¡«ú« óá¼ φ¬ºÑ¼»½∩αá ¡Ñ«íσ«ñ¿¼«
πΓ«τ¡¿Γ∞ φëà ¿ñÑ¡Γ¿Σ¿¬áΓ«α ß »«¼«Θ∞ε ¿ñÑ¡Γ¿Σ¿¬áΓ«αá ¼«ñπ½∩, τΓ«íδ
óδíαáΓ∞ π¬áºá¡¡δ⌐ φ¬ºÑ¼»½∩α (¼«ñ㫨 «»¿ßδóáεΓß∩ ó ú½áóÑ 3
Éπ¬«ó«ñßΓóá »«½∞º«óáΓѽ∩ ¿ ú½áóÑ 9 ¡áßΓ«∩ΘÑú« απ¬«ó«ñßΓóá).
ìá»α¿¼Ñα, ñ½∩ πΓ«τ¡Ñ¡¿∩ ¿ñÑ¡Γ¿Σ¿¬áΓ«αá Ident ß »«¼«Θ∞ε
¿ñÑ¡Γ¿Σ¿¬áΓ«αá UnitName ß½ÑñπÑΓ ¡á»¿ßáΓ∞ UnitName.Ident. Æᬫ⌐
¬«¼í¿¡¿α«óá¡¡δ⌐ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ¡áºδóáÑΓß∩ πΓ«τ¡Ñ¡¡δ¼
¿ñÑ¡Γ¿Σ¿¬áΓ«α«¼.
┌───────────┐
êñÑ¡Γ¿Σ¿¬áΓ«α ──┬───÷│ íπ¬óá │─────────────────────────┬─÷
│ └───────────┘ ° ° │
│ ┌─────────────┐ │ │ │
└─÷│ ß¿¼ó«½ ├─┘ │ ┌─────────────┐ │
│»«ñτÑનóá¡¿∩│ ├───┤ íπ¬óá │≈──┤
└─────────────┘ │ └─────────────┘ │
│ │
│ ┌─────────────┐ │
├───┤ µ¿Σαá │≈──┤
│ └─────────────┘ │
│ │
│ ┌─────────────┐ │
└───┤ ß¿¼ó«½ │≈──┘
│»«ñτÑનóá¡¿∩│
└─────────────┘
┌───┐
ß¿¼ó«½ »«ñτÑનóá¡¿∩─────÷│ _ │─────÷
└───┘
¿ñÑ¡Γ¿Σ¿¬áΓ«α »α«úαá¼¼δ ┌─────────────┐
¿ñÑ¡Γ¿Σ¿¬áΓ«α ¼«ñπ½∩ ─────÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α│────÷
¿ñÑ¡Γ¿Σ¿¬áΓ«α »«½∩ └─────────────┘
┌───────────────┐
πΓ«τ¡Ñ¡¡δ⌐ ─┬──────────────────────────┤ ¿ñÑ¡Γ¿Σ¿¬áΓ«α ├───÷
¿ñÑ¡Γ¿Σ¿¬áΓ«α │ ° └───────────────┘
│ ┌───────────┐ ┌───┐ │
└÷│¿ñÑ¡Γ¿Σ¿¬á-├──÷│ . ├─┘
│ Γ«α │ └───┘
│ ¼«ñπ½∩ │
└───────────┘
Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó ¿ñÑ¡Γ¿Σ¿¬áΓ«α«ó:
Writeln
Exit
RealString
System.MemAvail
Dos.Exec
Crt.Window
îÑΓ¬¿
îÑΓ¬«⌐ ∩ó½∩ÑΓß∩ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ µ¿Σα ó ñ¿á»áº«¡Ñ «Γ 0 ñ«
9999. ìáτá½∞¡δÑ ¡π½¿ ¡Ñ ∩ó½∩εΓß∩ º¡áτáΘ¿¼¿. îÑΓ¬¿ ¿ß»«½∞ºπεΓß∩ ß
«»ÑαáΓ«αἿ »ÑαÑσ«ñá (GoTo).
┌──────────────────────┐
îÑΓ¬á ───────┬────────÷│ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ├──────────÷
│ │ µ¿Σα │ °
│ └──────────────────────┘ │
│ │
│ ┌─────────────┐ │
└───────────÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├────────────┘
└─────────────┘
èᬠαáßΦ¿αÑ¡¿Ñ ßΓá¡ñáαΓ¡«ú« Åá߬á½∩, Turbo Pascal »«ºó«½∩ÑΓ
¿ß»«½∞º«óáΓ∞ ¿ñÑ¡Γ¿Σ¿¬áΓ«αδ Σπ¡¬µ¿¿ ó ¬áτÑßΓóÑ ¼ÑΓ«¬.
ù¿ß½á
ä½∩ τ¿ßѽ, »αÑñßΓáó½∩εΘ¿σ ß«í«⌐ ¬«¡ßΓá¡Γδ µÑ½«ú« ¿
óÑΘÑßΓóÑ¡¡«ú« Γ¿»á, ¿ß»«½∞ºπÑΓß∩ «íδτ¡á∩ ñÑß∩Γ¿τ¡á∩ ºá»¿ß∞. ûѽá∩
¬«¡ßΓá¡Γá ó ΦÑßΓ¡áñµáΓ¿α¿τ¡«¼ Σ«α¼áΓÑ ¿¼ÑÑΓ ó ¬áτÑßΓóÑ »αÑΣ¿¬ßá
º¡á¬ ñ«½½áαá ($). ÆÑσ¡¿τÑ߬«Ñ «í«º¡áτÑ¡¿Ñ (à ¿½¿ Ñ ß φ¬ß»«¡Ñ¡Γ«⌐) ó
óÑΘÑßΓóÑ¡¡δσ Γ¿»áσ τ¿ΓáÑΓß∩ ¬á¬ "ñÑß∩Γ∞ ó ßΓѻѡ¿".
ìá»α¿¼Ñα:
7Ñ-2 "7 π¼¡«ªÑ¡¡«Ñ ¡á 10 ó ßΓѻѡ¿ -2";
12.25Ñ+6
12.25Ñ+6 "12.25 π¼¡«ªÑ¡¡«Ñ ¡á 10 ó ßΓѻѡ¿ +6;
ì¿ªÑ »α¿óÑñÑ¡δ ß¿¡Γá¬ß¿τÑ߬¿Ñ ñ¿áúαá¼¼δ ñ½∩ ºá»¿ß¿ τ¿ßѽ.
┌─────────────────┐
»«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ────────÷│ΦÑßΓ¡áñµáΓ¿α¿τ¡á∩├───────┬──÷
ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ ° │ µ¿Σαá │ │
µ¿Σα │ └─────────────────┘ │
└───────────────────────────────┘
┌─────────────────┐
»«ß½Ññ«óáΓѽ∞¡«ßΓ∞ ────────÷│ ├───────┬───÷
µ¿Σα ° │ µ¿Σαá │ │
│ └─────────────────┘ │
└───────────────────────────────┘
┌──────────────────┐
µÑ½δÑ íѺ º¡á¬á ────┬────÷│»«ß½Ññ«óáΓѽ∞¡«ßΓ∞├───────────÷
│ │ µ¿Σα │ °
│ └──────────────────┘ │
│ │
│ ┌───┐ ┌──────────────┴───┐
└────÷│ $ │────÷│»«ß½Ññ«óáΓѽ∞¡«ßΓ∞│
└───┘ │ΦÑßΓ¡áñµáΓ¿α¿τ¡δσ │
│ µ¿Σα │
└──────────────────┘
┌───┐
º¡á¬ ─┬───÷│ + ├───────÷
│ └───┘ °
│ ┌───┐ │
└───÷│ - ├───┘
└───┘
óÑΘÑßΓóÑ¡¡«Ñ íѺ º¡á¬á
│ ┌──────────┐ ┌───┐ ┌──────────┐
└──÷│Å«ß½Ññ«óá-├─┬─÷│ . ├─÷│»«ß½Ññ«óá-├──┬──────────────────÷
│Γѽ∞¡«ßΓ∞ │ │ └───┘ │Γѽ∞¡«ßΓ∞ │ │ °
│ µ¿Σα │ │ │ µ¿Σα │ │ │
└──────────┘ │ └──────────┘ │ │
│ ∙ ┌──────────┐ │
└─────────────────────────÷│¼áßΦΓáí¡δ⌐├─┘
│ ¼¡«ª¿Γѽ∞│
└──────────┘
¼áßΦΓáí¡δ⌐
¼¡«ª¿Γѽ∞
│ ┌───┐ ┌──────────────┐
└───────┬─÷│ à ├─────┬───────────────÷│»«ß½Ññ«óáΓѽ∞-├──÷
│ └───┘ ° │ ° │¡«ßΓ∞ µ¿Σα │
│ ┌───┐ │ │ ┌────┐ │ └──────────────┘
└─÷│ Ñ ├─┘ └─÷│º¡á¬├──┘
└───┘ └────┘
τ¿ß½« íѺ º¡á¬á
│ ┌───────────────┐
└───────────┬─÷│µÑ½«Ñ íѺ º¡á¬á├────────÷
│ └───────────────┘ °
│ ┌────────────┐ │
└─÷│óÑΘÑßΓóÑ¡¡«Ñ├───────┘
│íѺ º¡á¬á │
└────────────┘
τ¿ß½« ß« º¡á¬«¼
│ ┌───────────────┐
└────────┬────────────────÷│τ¿ß½« íѺ º¡á¬á├────÷
│ ° └───────────────┘
│ ┌────┐ │
└─÷│º¡á¬├─────┘
└────┘
ù¿ß½á ß ñÑß∩Γ¿τ¡δ¼¿ Γ«τ¬á¼¿ ¿½¿ φ¬ß»«¡Ñ¡ΓἿ »αÑñßΓáó½∩εΓ
ß«í«⌐ ¬«¡ßΓá¡Γδ óÑΘÑßΓóÑ¡¡«ú« Γ¿»á, «ßΓá½∞¡δÑ ¬«¡ßΓá¡Γδ
»αÑñßΓáó½∩εΓ ß«í«⌐ ¬«¡ßΓá¡Γδ µÑ½«τ¿ß½Ñ¡¡«ú« Γ¿»á; «¡¿ ñ«½ª¡δ
¡áσ«ñ¿Γ∞ß∩ ó ñ¿á»áº«¡Ñ «Γ -2147483648 ñ« 2147483647.
ÿÑßΓ¡áñµáΓ¿α¿τ¡δÑ τ¿ß½á «í«º¡áτáεΓ ¬«¡ßΓá¡Γδ µÑ½«τ¿ß½Ñ¡¡«ú«
Γ¿»á; «¡¿ ñ«½ª¡δ ¡áσ«ñ¿Γ∞ß∩ ó ñ¿á»áº«¡Ñ «Γ $00000000 ñ« $FFFFFFFF.
ÉѺπ½∞Γ¿απεΘ¿⌐ º¡á¬ º¡áτÑ¡¿∩ «»αÑñѽ∩ÑΓß∩ ΦÑßΓ¡áñµáΓ¿α¿τ¡«⌐
ºá»¿ß∞ε.
æΓ᫬¿ ß¿¼ó«½«ó
æΓ᫬á ß¿¼ó«½«ó »αÑñßΓáó½∩ÑΓ ß«í«⌐ »«ß½Ññ«óáΓѽ∞¡«ßΓ∞,
ß«ñÑαªáΘπε ¡π½∞ ¿ í«½ÑÑ ß¿¼ó«½«ó ¿º αáßΦ¿αÑ¡¡«ú« ¡áí«αá ß¿¼ó«½«ó
¬«ñá ASCII (»α¿½«ªÑ¡¿Ñ é), ºá»¿ßá¡¡πε ó «ñ¡«⌐ ßΓα«¬Ñ »α«úαá¼¼δ ¿
ºá¬½ετÑ¡¡πε ó «ñ¿¡«τ¡δÑ ¬áóδτ¬¿ (ừßΓα«Σδ).æΓ᫬á ß¿¼ó«½«ó, ¡¿τÑú«
¡Ñ ß«ñÑαªáΘá∩ ¼Ñªñπ ừßΓα«ΣἿ, ¡áºδóáÑΓß∩ »πßΓ«⌐ ßΓ᫬«⌐. äóá
»«ß½Ññ«óáΓѽ∞¡δσ ừßΓα«Σá ó ßΓα«¬Ñ ß¿¼ó«½«ó «í«º¡áτáεΓ «ñ¿¡ ß¿¼ó«½
- ừßΓα«Σ. ÇΓα¿íπΓ ñ½¿¡δ ßΓ᫬¿ ß¿¼ó«½«ó ß«ñÑαª¿Γ ñÑ⌐ßΓó¿Γѽ∞¡«Ñ
¬«½¿τÑßΓó« ß¿¼ó«½«ó ¼Ñªñπ ừßΓαáΣἿ.
é ¬áτÑßΓóÑ αáßΦ¿αÑ¡¿∩ ßΓá¡ñáαΓ¡«ú« Åá߬á½∩ Turbo Pascal
αáºαÑΦáÑΓ óßΓáó½∩Γ∞ ó ßΓ᫬π ß¿¼ó«½«ó π»αáó½∩εΘ¿Ñ ß¿¼ó«½δ. æ¿¼ó«½ #
ß µÑ½«⌐ ¬«¡ßΓá¡Γ«⌐ íѺ º¡á¬á ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 255 «í«º¡áτáÑΓ
ß««ΓóÑΓßΓóπεΘ¿⌐ φΓ«¼π º¡áτÑ¡¿ε ß¿¼ó«½ ó ¬«ñÑ ASCII. îѪñπ ß¿¼ó«½«¼
# ¿ µÑ½«⌐ ¬«¡ßΓá¡Γ«⌐ ¡Ñ ñ«½ª¡« íδΓ∞ ¡¿¬á¬¿σ αáºñѽ¿ΓѽÑ⌐.
ǡὫú¿τ¡«, Ñß½¿ ¡Ñ߬«½∞¬« π»αáó½∩εΘ¿σ ß¿¼ó«½«ó óσ«ñ∩Γ ó ßΓ᫬π
ß¿¼ó«½«ó, Γ« ¼Ñªñπ ¡¿¼¿ ¡Ñ ñ«½ª¡« íδΓ∞ αáºñѽ¿ΓѽÑ⌐.
┌───┐ ┌───┐
ßΓ᫬á ──────÷│ ' ├──────────────┬────÷│ ' ├────÷
ß¿¼ó«½«ó └───┘ ° ┌──────┐ │ └───┘
└──┤ß¿¼ó«½│≈─┘
│ßΓ᫬¿│
└──────┘
┌──────────────────────┐
│ │
ß¿¼ó«½ ßΓ᫬¿ ───┬──÷│½εí«⌐ ß¿¼ó«½, ¬α«¼Ñ ' ├──────÷
│ │ ¿½¿ CR │ °
│ └──────────────────────┘ │
│ ┌───┐ ┌───┐ │
└───────÷│ ' ├──────÷│ ' ├─────┘
└───┘ └───┘
Åα¿¼Ñτá¡¿Ñ: CR - ß¿¼ó«½ ó«ºóαáΓá ¬áαÑΓ¬¿.
æΓ᫬á ß¿¼ó«½«ó ¡π½Ñó«⌐ ñ½¿¡δ (»πßΓá∩ ßΓ᫬á) ß«ó¼ÑΓ¿¼á Γ«½∞¬«
ñ½∩ ßΓ᫬«óδ¼ Γ¿»«¼. æΓ᫬á ß¿¼ó«½«ó ß ñ½¿¡«⌐, αáó¡«⌐ 1, ß«ó¼ÑßΓ¿¼á
ß ½εíδ¼ ß¿¼ó«½∞¡δ¼ ¿ ßΓ᫬«óδ¼ Γ¿»«¼. æΓ᫬á ß¿¼ó«½«ó ß ñ½¿¡«⌐ N,
úñÑ N í«½∞ΦÑ ¿½¿ αáó¡« 2, ß«ó¼ÑßΓ¿¼á ß ½εíδ¼ ßΓ᫬«óδ¼ Γ¿»«¼ ¿ ß
π»á¬«óá¡¡δ¼ ¼áßß¿ó«¼ ¿º N ß¿¼ó«½«ó.
Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó ßΓ᫬ ß¿¼ó«½«ó:
'TURBO' 'You''ll see' '''' ';' ' '
#13#10 'Line 1'#13'Line 2' #7#7'Wake up!'#7#7
ÄíΩ∩ó½Ñ¡¿Ñ ¬«¡ßΓá¡Γ
ÄíΩ∩ó½Ñ¡¿Ñ ¬«¡ßΓá¡Γ ß«ñÑαª¿Γ ¿ñÑ¡Γ¿Σ¿¬áΓ«α, ¬«Γ«αδ⌐ ∩ó½∩ÑΓß∩
«í«º¡áτÑ¡¿Ñ¼ ¬«¡ßΓá¡Γδ ó¡πΓα¿ í½«¬á, ß«ñÑαªáΘÑú« «íΩ∩ó½Ñ¡¿Ñ.
êñÑ¡Γ¿Σ¿¬áΓ«α ¬«¡ßΓá¡Γδ ¡Ñ ¼«ªÑΓ íδΓ∞ ó¬½ετÑ¡ ó ßó«Ñ ß«íßΓóÑ¡¡«Ñ
«íΩ∩ó½Ñ¡¿Ñ.
«íΩ∩ó½Ñ¡¿Ñ ¬«¡ßΓá¡Γδ
│ ┌─────────────┐ ┌───┐ ┌─────────┐ ┌───┐
└─────÷│¿ñÑ¡Γ¿Σ¿¬áΓ«α├───÷│ = ├──÷│¬«¡ßΓá¡Γá├───÷│ ; ├─┬─÷
° └─────────────┘ └───┘ └─────────┘ └───┘ │
└────────────────────────────────────────────────────┘
┌─────────┐
¬«¡ßΓá¡Γá ────÷│óδαáªÑ¡¿Ñ├───÷
└─────────┘
é ¬áτÑßΓóÑ αáßΦ¿αÑ¡¿∩ ßΓá¡ñáαΓ¡«ú« Åá߬á½∩ Turbo Pascal
αáºαÑΦáÑΓ ¿ß»«½∞º«óáΓ∞ ¬«¡ßΓá¡Γ¡δÑ óδαáªÑ¡¿∩. è«¡ßΓá¡Γ¡«Ñ óδαáªÑ¡¿Ñ
- φΓ« óδαáªÑ¡¿Ñ, ¬«Γ«α«Ñ ¼«ªÑΓ íδΓ∞ óδτ¿ß½Ñ¡« ¬«¼»¿½∩Γ«α«¼
Σá¬Γ¿τÑ߬¿ íѺ óδ»«½¡Ñ¡¿∩ »α«úαá¼¼δ. Åα¿óÑñѼ »α¿¼Ñαδ ¬«¡ßΓá¡Γ¡δσ
óδαáªÑ¡¿⌐:
100
'Ç'
256 -1
(2.5 + 1)/(2.5 - 1)
'Turbo' + ' ' + 'Pascal'
Chr(32)
Ord('Z') - Ord('A') + 1
Åα«ßΓÑ⌐Φ¿¼ ß½πτáѼ ¬«¡ßΓá¡Γ¡«ú« óδαáªÑ¡¿∩ ∩ó½∩ÑΓß∩ »α«ßΓá∩
¬«¡ßΓá¡Γá, Γá¬á∩ ¬á¬ 100 ¿½¿ 'Ç'; ó Γ« óαѼ∩ ¬á¬ ßΓá¡ñáαΓ¡δ⌐
Åá߬á½∞ ñ«»π߬áÑΓ Γ«½∞¬« »α«ßΓπε ¬«¡ßΓá¡Γπ, Turbo Pascal ñ«»π߬áÑΓ
¬«¡ßΓá¡Γ¡δÑ óδαáªÑ¡¿∩.
Æᬠ¬á¬ ¬«¼»¿½∩Γ«α óδτ¿ß½∩ÑΓ ¬«¡ßΓá¡Γ¡«Ñ óδαáªÑ¡¿Ñ ºá óαѼ∩
¬«¼»¿½∩µ¿¿, Γ« ó ¬«¡ßΓá¡Γ¡δσ óδαáªÑ¡¿∩σ ¡Ñ αáºαÑΦÑ¡δ ß½ÑñπεΘ¿Ñ
¬«¡ßΓαπ¬µ¿¿:
- ßß佬¿ ¡á »ÑαѼѡ¡δÑ ¿ Γ¿»¿α«óá¡¡δÑ ¬«¡ßΓá¡Γδ (ºá
¿ß¬½ετÑ¡¿Ñ¼ ¬«¡ßΓá¡Γ¡δσ áñαÑß¡δσ óδαáªÑ¡¿⌐, ¬á¬ «»¿ßá¡« ó ú½áóÑ 5).
- ó맮óδ Σπ¡¬µ¿⌐ (¬α«¼Ñ »ÑαÑτ¿ß½Ñ¡¡δσ ¡¿ªÑ)
- áñαÑß¡δ⌐ «»ÑαáΓ«α (@) (ºá ¿ß¬½ετÑ¡¿Ñ¼ ¬«¡ßΓá¡Γ¡δσ áñαÑß¡δσ
óδ«αáªÑ¡¿⌐, ¬á¬ Γ»¿ßá¡« ó ú½áóÑ 5)
çá ¿ß¬½ετÑ¡¿Ñ¼ φΓ¿σ «úαá¡¿τÑ¡¿⌐, ¬«¡ßΓá¡Γ¡δÑ óδαáªÑ¡¿∩
»«ñτ¿¡∩εΓß∩ Γ«τ¡« Γᬿ¼ ªÑ ß¿¡Γá¬ß¿τÑ߬¿¼ »αáó¿½á¼, τΓ« ¿ «íδτ¡δÑ
óδαáªÑ¡¿∩ («»¿ßá¡¡δÑ ó ú½áóÑ 6 "éδαáªÑ¡¿∩").
é ¬«¡ßΓá¡Γ¡δσ óδαáªÑ¡¿∩σ αáºαÑΦáεΓß∩ ßΓá¡ñáαΓ¡δÑ Σπ¡¬µ¿¿:
Abs Chr ìi Length Lo Odd Ord
Pred Ptr Round SizeOf Succ Swap Trunc
Åα¿óÑñѼ ¡Ñ߬«½∞¬« »α¿¼Ñα«ó ¿ß»«½∞º«óá¡¿∩ ¬«¡ßΓá¡Γ¡δσ
óδαáªÑ¡¿⌐ ó «íΩ∩ó½Ñ¡¿¿ ¬«¡ßΓá¡Γ:
const
Min = 0;
Max = 100;
Center = (Max - Min) div 2;
Beta = Chr(225);
NumChars = Ord('Z') - Ord('A') + 1;
Message = 'Out of memory';
ErrStr = 'Error:' + message + '.';
ErrPos = 80 - Lenth(ErrorStr) div 2;
ErrAttr = Blink + Red * 16 + White;
Ln10 = 2.302585092994045684;
Ln10R = 1/Ln10;
Numeric = ['0' .. '9'];
Alpha = ['A' .. 'Z', 'a' .. 'z']
AlphaNum = Alpha + Numeric;
諼¼Ñ¡Γáα¿¿
æ½ÑñπεΘ¿Ñ ¬«¡ßΓαπ¬µ¿¿ »αÑñßΓáó½∩εΓ ß«í«⌐ ¬«¼¼Ñ¡Γáα¿¿ ¿
¿ú¡«α¿απεΓß∩ ¬«¼»¿½∩Γ«α«¼:
{Any text not containing right brace}
(* Any text not containing star/right parenthesis*)
諼ѡΓáα¿⌐, ß«ñÑαªáΘ¿⌐ º¡á¬ ñ«½½áαá ($) ßαáºπ »«ß½Ñ
«Γ¬αδóáεΘÑ⌐ß∩ ߬«í¬¿ { ¿½¿ (* - ∩ó½∩ÑΓß∩ ñ¿αÑ¬Γ¿ó«⌐ ¬«¼»¿½∩Γ«αá. çá
ß¿¼ó«½«¼ $ ß½ÑñπÑΓ ¼¡Ñ¼«¡¿¬á ¬«¼á¡ñδ ¬«¼»¿½∩Γ«αá. ÄíΘÑÑ «»¿ßá¡¿Ñ
ñ¿αÑ¬Γ¿ó ¬«¼»¿½∩Γ«αá ñá¡« ó ú½áóÑ 21.
æΓ᫬¿ »α«úαá¼¼δ
é Turbo Pascal ßΓ᫬¿ »α«úαá¼¼δ ¿¼ÑεΓ ¼á¬ß¿¼á½∞¡πε ñ½¿¡π ó 126
ß¿¼ó«½«ó.