Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:БД книги 2 / материалы по FoxPro / GL1
.PAS—Ђ‘’њ 1. €‡“—Ђ…Њ Ћ‘ЌЋ‚› џ‡›ЉЋ‚ CLIPPER € FOXPRO
1. ђЂ‘‘ЊЂ’ђ€‚Ђ…Њ ЋЃ™€… ќ‹…Њ…Ќ’› џ‡›ЉЋ‚
„ п Ј« ў § Є®¬Ёв б® б।бвў ¬Ё ЇаҐ¤бв ў«ҐЁп ¤ ле ў
®б®ў®© Ї ¬пвЁ Ё ॠ«Ё§ жЁЁ ўлзЁб«ҐЁ©, ®Ўа Ў®вЄЁ бва®Є Ё ¤ в,
б Їа®бвл¬Ё б।бвў ¬Ё ўў®¤ Ё ўлў®¤ ¤ ле. ‚л Ї®«гз ҐвҐ ў®§¬®¦®бвм
з вм а Ў®вг ў бЁб⥬Ґ, ҐйҐ Ґ ЁбЇ®«м§гп Ў § ¤ ле. ЏаҐ¤л¤гйЁ©
®Їлв Ё§гзҐЁп ¤агЈЁе п§лЄ®ў Їа®Ја ¬¬Ёа®ў Ёп ®Є ¦Ґвбп Ї®«Ґ§л¬.
1.1 ‘вагЄвга п§лЄ . Џа ўЁ« § ЇЁбЁ
Њл ᤥ« Ґ¬ ЄжҐв ®Ўй®бвм п§лЄ а бб¬ ваЁў Ґ¬ле бЁб⥬.
Ћв«ЁзЁп Ўг¤гв а бᬮваҐл ў б«Ґ¤гойЁе а §¤Ґ« е.
‚ CLIPPER Ё FOXPRO ЁбЇ®«м§говбп ®ЎлзлҐ ¤«п п§лЄ®ў
Їа®Ја ¬¬Ёа®ў Ёп бЁ¬ў®«л, ЇаЁзҐ¬ ЄЁаЁ««Ёж ¤®ЇгбвЁ¬ «Ёим ў
бЁ¬ў®«мле бва®Є е Ё ЇаЁ¬Ґз Ёпе. ‘ЇҐжЁ «мл¬Ё бЁ¬ў®« ¬Ё пў«повбп:
@, &, |, $, ?, % (®ЇҐа жЁп Ї®«гзҐЁп ®бв вЄ ®в ¤Ґ«ҐЁп);
Ё¬Ґовбп б®бв ўлҐ бЁ¬ў®«л: != (Ґ а ў®; Ї® ¤агЈ®¬г <> Ё«Ё #),
<= (Ґ Ў®«миҐ), >= (Ґ ¬ҐмиҐ), ** (ў®§ўҐ¤ҐЁҐ ў б⥯Ґм), ->.
‡ ЁбЄ«о票Ґ¬ ।ЄЁе, ®Ј®ў аЁў Ґ¬ле б«гз Ґў ॣЁбва ЎгЄў ¬®¦Ґв
Ўлвм Їа®Ё§ў®«мл¬. Ќ ЇаЁ¬Ґа, Ё¬Ґ TOR, tor, Tor ®Ў®§ з ов ®¤г
Ё вг ¦Ґ ЇҐаҐ¬Ґго. „«Ё Ё¬Ґ ЇҐаҐ¬Ґ®©, ¬ ббЁў , Ї®«п § ЇЁбЁ
Ґ ¤®«¦ ЇаҐўли вм 10 бЁ¬ў®«®ў, б«Ґ¤гойЁҐ бЁ¬ў®«л ЁЈ®аЁаговбп.
Љ®бвагЄжЁЁ п§лЄ Ї® ¬ҐаҐ Ёе гб«®¦ҐЁп ¬®Јгв Ўлвм ®вҐбҐл
Є га®ўо б«®ў, ўла ¦ҐЁ©, ЇаҐ¤«®¦ҐЁ©, Ў«®Є®ў ( «Ј®аЁв¬ЁзҐбЄЁе),
Їа®Ја ¬¬ле д ©«®ў. Џа®Ја ¬¬ ў 楫®¬ ¬®¦Ґв Ўлвм ЇаҐ¤бв ў«Ґ б®ў®ЄгЇ®бвмо
Ї®б«Ґ¤Ёе Ё«Ё ®¤Ё¬ в ЄЁ¬ д ©«®¬ (а биЁаҐЁҐ Ё¬ҐЁ .PRG).
Љ б«®ў ¬ ®в®бпв Ё¬Ґ ; ®Ў®§ зҐЁп Є®¬Ї®Ґв®ў ¬ ббЁў®ў,
ЇаЁ¬Ґа A[3, 2] Ё«Ё A[3][2]; ўл§®ўл дгЄжЁ©, ЇаЁ¬Ґа LOG(X);
Є®бв вл «®ЈЁзҐбЄЁҐ (.TRUE. Ё«Ё .T. - "ЁбвЁ ", .FALSE. Ё«Ё .F. -
"«®¦м"), зЁб«®ўлҐ (¤® 18 § з йЁе жЁда), бЁ¬ў®«млҐ, в.Ґ. бва®ЄЁ.
‘ва®ЄЁ ®Є ©¬«повбп Є ўлзЄ ¬Ё Ё«Ё Ї®бва®д ¬Ё, ЇаЁ¬Ґа "‘'…‡„".
‚ FOXPRO Ґбвм Є®бв вл-¤ вл, ЇаЁ¬Ґа {03/21/73} - 21 ¬ ав 1973 Ј.
‚ла ¦ҐЁп ¬®Јгв Ўлвм зЁб«®ўл¬Ё (N), «®ЈЁзҐбЄЁ¬Ё (L), бЁ¬ў®«мл¬Ё
(C), ўла ¦ҐЁп¬Ё-¤ в ¬Ё (D); гЄ § лҐ « вЁбЄЁҐ ЎгЄўл ЇаЁ¬Ґповбп
¤«п ®Ў®§ 票п вЁЇ ўла ¦ҐЁп (б¬. дгЄжЁо TYPE ў Ї. 1.6). ‚ CLIPPER
Ґбвм ®б®Ў®Ґ § 票Ґ NIL ("Їгбв®"), Є®в®ал¬ ¬®¦® § ¬Ґпвм § 票Ґ
«оЎ®Ј® вЁЇ .
‚ ®ЇаҐ¤Ґ«ҐЁпе ЇаҐ¤«®¦ҐЁ© ЁбЇ®«м§гҐвбп Ї®пвЁҐ бЇЁб®Є. ‘ЇЁбЄ®¬
Ўг¤Ґ¬ §лў вм Ї®б«Ґ¤®ў ⥫м®бвм н«Ґ¬Ґв®ў, а §¤Ґ«пҐ¬ле § Їпвл¬Ё
(Ґб«Ё Ґ ®Ј®ў®аҐ Ё®© а §¤Ґ«ЁвҐ«м). ЏаҐ¤«®¦ҐЁп ¬®Јгв Ўлвм ¤ЁаҐЄвЁў ¬Ё,
Є®¬ ¤ ¬Ё п§лЄ , § Ј®«®ўЄ ¬Ё Ў«®Є®ў, ®Ўкпў«ҐЁп¬Ё ЇҐаҐ¬Ґле Ё
¬ ббЁў®ў. Ќ ЇаЁ¬Ґа, Є®¬ ¤ ўў®¤ ¤ ле ACCEPT TO <Ё¬п>
Ї®§ў®«пҐв § ¤ вм Ї®б«Ґ¤®ў ⥫м®бвм § Є®ў, бв ®ўпйгобп § 票Ґ¬
бЁ¬ў®«м®© ЇҐаҐ¬Ґ®© <Ё¬п>. „«п ўлў®¤ ¤ЁбЇ«Ґ© Ўг¤Ґ¬ ЁбЇ®«м§®ў вм
Є®¬ ¤г
? <‘ЇЁб®Є ўла ¦ҐЁ©>.
Ћб®Ў® ўл¤Ґ«Ё¬ ЇаҐ¤«®¦ҐЁп-®ЇҐа в®ал, ®аЈ Ё§гойЁҐ бвагЄвгаг
Їа®Ја ¬¬л, ЇаЁ¬Ґа ॠ«Ё§гойЁҐ ўҐвў«ҐЁп Ё жЁЄ«л. ќ«Ґ¬Ґвл ®ЇҐа в®а®ў
§ Ё¬ о⠮⤥«млҐ бва®ЄЁ, зҐаҐ¤гойЁҐбп б Є®¬ ¤ ¬Ё п§лЄ .
Ѓ«®ЄЁ (Ї®¤Їа®Ја ¬¬л) - нв® дгЄжЁЁ Ё Їа®жҐ¤гал; ў п§лЄҐ CLIPPER
Ґбвм в Є¦Ґ Ў«®ЄЁ Є®¤ - ®б®Ў п д®а¬ Ї®¤Їа®Ја ¬¬. Ћб®ўго Їа®Ја ¬¬г
Ўг¤Ґ¬ бзЁв вм Ј« ўл¬ Ў«®Є®¬. Џа®Ја ¬¬л© д ©« ᮤҐа¦Ёв Ў«®ЄЁ. ЏҐаўлҐ
¤ўҐ бва®ЄЁ Ў«®Є , §лў Ґ¬®Ј® дгЄжЁҐ© Ї®«м§®ў ⥫п, Ё¬Ґов ўЁ¤
FUNCTION <€¬п дгЄжЁЁ Ї®«м§®ў ⥫п>
PARAMETERS <‘ЇЁб®Є д®а¬ «мле Ї а ¬Ґва®ў> ,
Ї®б«Ґ¤Ґ© бва®Є®© ®Ўлз® пў«пҐвбп ®ЇҐа в®а ў®§ўа в
RETURN <ўла ¦ҐЁҐ - ў®§ўа й Ґ¬л© १г«мв в> ;
Ґб«Ё дгЄжЁп ЎҐ§ Ї а ¬Ґва®ў, Є®¬ ¤л PARAMETERS Ґв. ‘«®ў® PARAMETERS
¬®¦® б®Єа й вм: PARAM . ‚ п§лЄҐ CLIPPER Ё¬ҐҐвбп ¤агЈ®© ў аЁ в
ЇҐаҐ¤ зЁ Ї а ¬Ґва®ў дгЄжЁЁ (б¬. Ї. 4.5).
Џа ўЁ« § ЇЁбЁ ⥪бв®ў Їа®Ја ¬¬. ЏаҐ¤«®¦ҐЁҐ ®Ўлз® § Ё¬ Ґв
®в¤Ґ«мго бва®Єг; ¤«Ё®Ґ ЇаҐ¤«®¦ҐЁҐ ¬®¦Ґв § Ё¬ вм Ё ҐбЄ®«мЄ®
бва®Є, Є ¦¤го Ё§ Ёе, Єа®¬Ґ Ї®б«Ґ¤Ґ©, § Є зЁў ов § Є®¬ ";".
ЏаЁ¬Ґз ЁҐ, ⥪бв Є®в®а®Ј® Ё¤Ґв ¤® Є®ж бва®ЄЁ, зЁ ов
§ Є ¬Ё "&&"; бва®Єг ЇаЁ¬Ґз Ёп ¬®¦® в Є¦Ґ з вм § Є®¬ "*".
ђҐЄ®¬Ґ¤гҐвбп зЁ вм Їа®Ја ¬¬г ЇаЁ¬Ґз Ёп¬Ё, ®ЎкпбпойЁ¬Ё ҐҐ
§ 票Ґ, ЁбЇ®«м§гҐ¬лҐ ¤ лҐ Ё १г«мв вл.
‚ п§лЄҐ CLIPPER Ї аг § Є®ў "&&" ¬®¦® § ¬Ґпвм Ї а®© "//",
¬®¦® ®Ја ЁзЁў вм ЇаЁ¬Ґз ЁҐ б«Ґў "/*", бЇа ў "*/". ќвЁ¬
Ї®«м§говбп Ё ¤«п ¬®Ј®бва®з®Ј® ЇаЁ¬Ґз Ёп, зЁ п Ё § Є зЁў п
ҐЈ® гЄ § л¬Ё ®Ја ЁзЁвҐ«п¬Ё. ‚ п§лЄҐ CLIPPER ¬®¦® § ЇЁблў вм ў
бва®ЄҐ Ў®«ҐҐ, 祬 ®¤® ЇаҐ¤«®¦ҐЁҐ, а §¤Ґ«пп Ёе § Є®¬ ";".
‡ ¤ ЁҐ 1.1. ‡ ЇЁиЁвҐ Їа®Ја ¬¬г б ¤ўг¬п ¤Ґ©бвўЁп¬Ё: A = 2*2,
ўлў®¤ зЁб« A ¤ЁбЇ«Ґ©. ‡ ЇЁбм ¤Ґ©бвўЁ© б®Їа®ў®¤ЁвҐ ЇаЁ¬Ґз Ёп¬Ё
"“¬®¦ҐЁҐ", "‚лў®¤ ¤ЁбЇ«Ґ©"; Їа®Ја ¬¬г зЁвҐ ЇаЁ¬Ґз ЁҐ¬
"Џа®Ја ¬¬ ¤ў ¦¤л-¤ў ".
1.2. Њ ⥬ вЁзҐбЄЁҐ дгЄжЁЁ. ”гЄжЁп Inlist()
—Ёб«®ў®Ґ ўла ¦ҐЁҐ Ўг¤Ґ¬ ®Ў®§ з вм <ўлаN> (Ё«Ё <ўлаN1>,
<ўлаN2> Ё в.Ї.); ўла ¦ҐЁe вЁЇ "¤ в " - <ўлаD>, бЁ¬ў®«м®Ґ -
<ўлаC>; ®Ў®§ 票п <ўла>,<ўла1> Ё в.Ї. - "Ґ©ва «мл" Є вЁЇг.
‚ CLIPPER Ё FOXPRO Ё¬Ґовбп б«Ґ¤гойЁҐ ¬ ⥬ вЁзҐбЄЁҐ дгЄжЁЁ:
ABS(<ўлаN>) - Ўб®«ов п ўҐ«ЁзЁ § 票п <ўлаN>;
SQRT(<ўлаN>) - Єў ¤а вл© Є®аҐм Ё§ § 票п <ўлаN>;
EXP(<ўлаN>) - Ї®Є § ⥫м п дгЄжЁп (нЄбЇ®Ґв ) аЈг¬Ґв <ўлаN>;
LOG(<ўлаN>) - вга «мл© «®Ј аЁд¬ § 票п <ўлаN>;
INT(<ўлаN>) - 楫 п з бвм § 票п <ўлаN>;
MAX(<ўла1>,<ўла2>) - ¬ ЄбЁ¬ «м®Ґ Ё§ ¤ўге зЁбҐ« Ё«Ё ¤ в;
MIN(<ўла1>,<ўла2>) - ¬ЁЁ¬ «м®Ґ Ё§ ¤ўге зЁбҐ« Ё«Ё ¤ в; ў FOXPRO
зЁб«® аЈг¬Ґв®ў дгЄжЁ© MAX Ё MIN Їа®Ё§ў®«м® (® Ґ ¬ҐҐҐ 2);
MOD(<ўлаN1>,<ўлаN2>) - 楫®зЁб«Ґл© ®бв в®Є ®в ¤Ґ«ҐЁп <ўлаN1>
<ўлаN2>;
ROUND(<ўлаN1>,<ўлаN2>) - १г«мв в ®ЄагЈ«ҐЁп § 票п <ўлаN1> ¤®
<ўлаN2> § Є®ў Ї®б«Ґ § Їпв®© ( ЇаЁ¬Ґа, ¤® б®вле, Ґб«Ё <ўлаN2>= 2);
ЇаЁ ®ваЁж ⥫쮬 § 票Ё <ўлаN2> ®ЄагЈ«ҐЁҐ Ё¤Ґв ¤® ¤ҐбпвЄ®ў,
б®вҐ Ё в.¤. Ќ ЇаЁ¬Ґа, § 票Ґ ROUND(157536, -3) а ў® 158000.
‚ FOXPRO ¤®Ї®«ЁвҐ«м® Ё¬Ґовбп б«Ґ¤гойЁҐ ¬ ⥬ вЁзҐбЄЁҐ дгЄжЁЁ:
LOG10(<ўлаN>) - ¤ҐбпвЁзл© «®Ј аЁд¬ <ўлаN>; ў CLIPPER ў§ ¬Ґ ¬®¦®
ЁбЇ®«м§®ў вм ўла ¦ҐЁҐ 0.43429*LOG(<ўлаN>);
SIGN(<ўлаN>) - дгЄжЁп § Є <ўлаN>, ЇаЁЁ¬ ой п § 票п -1,0,1;
CEILING(<ўлаN>) - Ў«Ё¦ ©иҐҐ 楫®Ґ, Ў®«м襥 Ё«Ё а ў®Ґ <ўлаN>;
FLOOR(<ўлаN>) - Ў«Ё¦ ©иҐҐ 楫®Ґ, ¬Ґм襥 Ё«Ё а ў®Ґ <ўлаN>;
ЇаЁ¬Ґа, § 票Ґ FLOOR(-3.7) а ў® -4, CEILING(-3.7) а ў® -3;
BETWEEN(<ўла1>,<ўла2>,<ўла3>) ¤ Ґв § 票Ґ "€бвЁ " (.T.),
Ґб«Ё § 票Ґ <ўла1> Ў®«миҐ Ё«Ё а ў® <ўла2>, ® ¬ҐмиҐ Ё«Ё а ў®
<ўла3>; ўбҐ 3 ўла ¦ҐЁп ¤®«¦л Ё¬Ґвм ®¤Ё вЁЇ (зЁб«®, ¤ в , бва®Є );
RAND() - ЇбҐў¤®б«гз ©®Ґ зЁб«® ў ¤Ё Ї §®Ґ [0, 1]; Ґб«Ё ў бЄ®ЎЄ е
§ ¤ аЈг¬Ґв <ўлаN>, в® нв® зЁб«® д®а¬ЁагҐвбп ®б®ўҐ <ўлаN>.
’®«мЄ® ЇҐаў®Ґ Ё§ 楯Ё зЁбҐ« б«Ґ¤гҐв д®а¬Ёа®ў вм в ЄЁ¬ ®Ўа §®¬;
б«Ґ¤гойЁҐ ®Ўа йҐЁп Є RAND ¤®«¦л Ўлвм ЎҐ§ аЈг¬Ґв . …б«Ё § 票Ґ
<ўлаN> ®ваЁж ⥫м®, в® зЁб«® д®а¬ЁагҐвбп ®б®ўҐ Ї®Є § Ё© в ©¬Ґа ,
в.Ґ. з «® 楯Ё зЁбҐ« ўбпЄЁ© а § ®Є §лў Ґвбп ®ўл¬ (Ё 楯м зЁбҐ«
в Є¦Ґ). ‚ CLIPPER ЁбЇ®«м§г©вҐ дгЄжЁо RanCli (б¬. Ї.4.4).
SIN(<ўлаN>), COS(<ўлаN>), TAN(<ўлаN>) - ваЁЈ®®¬ҐваЁзҐбЄЁҐ
дгЄжЁЁ; аЈг¬Ґв ў а ¤Ё е (б¬. Ё¦Ґ дгЄжЁо DTOR);
DTOR(<ўлаN>) - ЇҐаҐўҐ¤Ґ®Ґ ў а ¤Ё л § 票Ґ <ўлаN> (Ја ¤гбл);
ASIN(<ўлаN>), ACOS(<ўлаN>), ATAN(<ўлаN>) - ®Ўа влҐ ваЁЈ®®¬ҐваЁзҐбЄЁҐ
дгЄжЁЁ; १г«мв в ў а ¤Ё е ў ЁвҐаў «Ґ ®в -ЏЁ/2 ¤® ЏЁ/2
¤«п ASIN() Ё ATAN(), ¤«п ACOS() - ў ЁвҐаў «Ґ ®в 0 ¤® ЏЁ;
ATN2(<ўлаN1>,<ўлаN2>) - аЄв ЈҐб ®в®иҐЁп <ўлаN1>/<ўлаN2>,
ЇаЁзҐ¬ ¤®ЇгбвЁ¬® <ўлаN2>= 0; १г«мв в ў а ¤Ё е ®в -ЏЁ/2 ¤® ЏЁ/2;
RTOD(<ўлаN>) - ЇҐаҐўҐ¤Ґ®Ґ ў Ја ¤гбл § 票Ґ <ўлаN> (а ¤Ё л);
PI() - зЁб«® ЏЁ б Ў®«ми®© ¤«Ё®© ¤а®Ў®© з бвЁ.
ЏаЁ¬Ґа 1.1.
? RTOD(1.57), RTOD(PI()/2) // ‚лў®¤пвбп § 票п 89.95, 90.00
‚ FOXPRO Ё¬ҐҐвбп ўҐбм¬ Ї®«Ґ§ п дгЄжЁп Inlist:
Inlist(<ўла>,<бЇЁб®Є ўла ¦ҐЁ©>),
ў®§ўа й ой п § 票Ґ .T., Ґб«Ё § 票Ґ <ўла> б®ўЇ ¤ Ґв б® § 票Ґ¬
Є Є®Ј®-«ЁЎ® ўла ¦ҐЁп Ё§ бЇЁбЄ . ‚ᥠўла ¦ҐЁп ¤®«¦л Ўлвм ®¤®Ј®
вЁЇ : зЁб« , бва®ЄЁ бЁ¬ў®«®ў Ё«Ё ¤ вл.
‡ ¤ ЁҐ 1.2. ‡ ЇЁиЁвҐ ўла ¦ҐЁҐ ¤«п Ї®«гзҐЁп ¬ ЄбЁ¬г¬ Ё§
зЁбҐ« A,B,C,D ў п§лЄ е CLIPPER Ё FOXPRO.
1.3. ”гЄжЁЁ Ё Є®¬ ¤л ¤«п а Ў®вл б ¤ в ¬Ё.
ЋЇҐа жЁЁ б ¤ в ¬Ё
‘Ї®б®Ў Ё§®Ўа ¦ҐЁп ¤ вл (д®а¬ в ¤ вл), ЁбЇ®«м§гҐ¬л© ў Їа®Ја ¬¬Ґ,
§ ¤ ов Є®¬ ¤®© SET DATE <Љ«оз>; ў®§¬®¦лҐ д®а¬ вл гЄ § л ў
в Ў«ЁжҐ. 1.1, Ј¤Ґ "mm" ®Ў®§ з Ґв ¬Ґбпж, "dd" - ¤Ґм, "yy" - Ј®¤,
ЇаЁ¬Ґа ¤ в 03/21/73 ў д®а¬ ⥠AMERICAN, ЇаЁЁ¬ Ґ¬®¬ Ї® 㬮«з Ёо,
®§ з Ґв 21 ¬ ав 1973 Ј.
’ Ў«Ёж 1.1
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Љ«оз ”®а¬ в і Љ«оз ”®а¬ в
--------------------------------і----------------------------------
AMERICAN mm/dd/yy і GERMAN dd.mm.yy
ANSI yy.mm.dd і ITALIAN dd-mm-yy
BRITISH/FRENCH dd/mm/yy і JAPAN yy/mm/dd
-------------------------------------------------------------------
Џ®«м§®ў вҐ«м ¬®¦Ґв § зЁвм б®ЎбвўҐл© д®а¬ в ¤ вл § ¤ ЁҐ¬ ў
Є®¬ ¤Ґ SET DATE FORMAT Ї®«®¦ҐЁп ҐҐ н«Ґ¬Ґв®ў Ё а §¤Ґ«ЁвҐ«п,
ЇаЁ¬Ґа: SET DATE FORMAT dd:mm:yyyy (¤Ґм, ¬Ґбпж, 4 жЁдал Ј®¤ ).
ЊЁЁ¬ «м п ¤ в , Є®в®а®© ¬®¦® ®ЇҐаЁа®ў вм, - 1 пў ап 100 Ј®¤ .
”гЄжЁп DATE() ў®§ўа й Ґв § 票Ґ ⥪г饩 ¤ вл ў гбв ®ў«Ґ®¬
д®а¬ вҐ. ‡ ¤ вм § 票Ґ вЁЇ "¤ в " ¬®¦® ЇаЁ Ї®¬®йЁ дгЄжЁЁ CTOD,
аЈг¬Ґв®¬ Є®в®а®© пў«пҐвбп бва®Є , ®Ў®§ з ой п ¤ вг ў гбв ®ў«Ґ®¬
д®а¬ вҐ: CTOD("12/31/93"). ”гЄжЁп Їа®ўҐапҐв ®¬Ґа ¤п Ё ¬Ґбпж ;
Ґб«Ё § 票Ґ Ґ¤®ЇгбвЁ¬® ( ЇаЁ¬Ґа, ¬Ґбпж "31" ў ¤ ⥠31/12/93 ў
д®а¬ ⥠AMERICAN) - ў®§ўа й Ґв Їгбвго ¤ вг. ‘®бв ў«пойЁҐ ¤ вл (Ј®¤,
¬Ґбпж,¤Ґм) ўл¤Ґ«пов ЇаЁ Ї®¬®йЁ дгЄжЁ© YEAR(<ўлаD>), MONTH(<ўлаD>),
DAY(<ўлаD>) ᮮ⢥вб⢥®. ђҐ§г«мв вл нвЁе дгЄжЁ© - зЁб« .
”гЄжЁп DOW(<ўлаD>) ў®§ўа й Ґв Ї®ап¤Є®ўл© ®¬Ґа ¤п Ґ¤Ґ«Ё. Ља®¬Ґ
в®Ј®, Ґбвм дгЄжЁЁ CDOW(<ўлаD>) Ё ‘MONTH(<ўлаD>), ў®§ўа й ойЁҐ
ᮮ⢥вб⢥® §ў ЁҐ ¤п Ґ¤Ґ«Ё Ё §ў ЁҐ ¬Ґбпж ў ўЁ¤Ґ бва®ЄЁ.
”гЄжЁп DTOC(<ўлаD>) ў®§ўа й Ґв бва®Єг, ЇаҐ¤бв ў«пойго ¤ вг ў
гбв ®ў«Ґ®¬ д®а¬ вҐ. ЋЎлз® ҐҐ ЁбЇ®«м§гов ў б®бв ўҐ бЁ¬ў®«мле
ўла ¦ҐЁ©, ЇаЁ¬Ґа "ЏђЋ’ЋЉЋ‹ Ћ’"+ DTOC(DATE()); ЇаЁ ®в¤Ґ«м®¬
ўлў®¤Ґ ¤ вл ҐҐ ЇаҐ®Ўа §®ў ЁҐ ў бва®Єг Їа®Ёб室Ёв ўв®¬ вЁзҐбЄЁ.
ЏҐаҐ¤ ўлў®¤®¬ ¤ в ¬®¦® § ¤ вм зҐвлаҐе§ 箥 ЇаҐ¤бв ў«ҐЁҐ
Ј®¤ Є®¬ ¤®© SET CENTURY ON; Є®¬ ¤ SET EPOCH <ѓ®¤> § ¤ Ґв з «®
®вбзҐв ¤ в: ўбҐ ®Ё Ўг¤гв ў ЇаҐ¤Ґ« е бв «Ґв, зЁ ойЁебп б
§ ¤ ®Ј® Ј®¤ . Ќ ЇаЁ¬Ґа, б®Ј« б® Є®¬ ¤л SET EPOCH 1994 Ј®¤ "22"
Ї®Ё¬ Ґвбп Є Є 2022 Ј®¤. Џ® 㬮«з Ёо з «® ®вбзҐв - Ј®¤ 1900.
”гЄжЁп DTOS(<‚лаD>) ў®§ўа й Ґв бва®Єг б«Ґ¤го饣® ўЁ¤ :
"yyyymmdd", Ј¤Ґ yyyy - 4 жЁдал ®Ў®§ зҐЁп Ј®¤ , mm - ¬Ґбпж, dd -
¤Ґм, ЇаЁ¬Ґа, 19931231. …б«Ё Їа®Ё§ўҐбвЁ гЇ®а冷票Ґ
(Ё¤ҐЄбЁа®ў ЁҐ) ᮤҐа¦ йЁе ¤ вг § ЇЁбҐ© Ї® нвЁ¬ ЇаҐ®Ўа §®ў л¬
ЇаҐ¤бв ў«ҐЁп¬ ¤ вл, Ї®«гзЁвбп еа®®«®ЈЁзҐбЄЁ© Ї®а冷Є.
Љ®бв вл-¤ вл ў FOXPRO ¤®«¦л Ўлвм § ЇЁб л ў ᮮ⢥вбвўЁЁ б
ЁбЇ®«м§гҐ¬л¬ д®а¬ ⮬ ¤ в. „ вл ¬®¦® 㢥«ЁзЁў вм (㬥ми вм),
ЇаЁЎ ў«пп (ўлзЁв п) зЁб«®. €§ ¤ вл ¬®¦® ўлзЁв вм ¤ вг, Ї®«гз п
з Ё б « ® ¤Ґ©.
ЏаЁ¬Ґа 1.2. „ в ў д®а¬ ⥠AMERICAN б㬬ЁагҐвбп б зЁб«®¬:
? {07/08/94} + 53 && ‚лў®¤Ёвбп ®ў п ¤ в "08/30/94".
? CTOD("07/08/94") + 53 && CLIPPER; ॠ«Ё§гҐвбп в® ¦Ґ б ¬®Ґ
ЏаЁ¬Ґа 1.3. ‚лзЁв ЁҐ ¤ в; ў CLIPPER Ї®вॡгҐвбп дгЄжЁп CTOD.
? {07/08/96} - {07/08/38} // 21185 (зЁб«® ¤Ґ© § 58 «Ґв).
‚ п§лЄҐ FOXPRO ¤®Ї®«ЁвҐ«м® Ё¬Ґовбп б«Ґ¤гойЁҐ дгЄжЁЁ:
GOMONTH(<ўлаD>,<ўлаN>) - ў®§ўа й Ґв ¤ вг, ®вбв®пйго ®в ¤ вл <ўлаD>
<ўлаN> ¬Ґбп楢 ўЇҐаҐ¤ Ё«Ё, Ґб«Ё <ўлаN> < 0, § ¤ ;
DMY(<ўлаD>) - ЇаҐ¤бв ў«пҐв ¤ вг <ўлаD> бва®Є®© "¤Ґм ¬Ґбпж Ј®¤",
ЇаЁ¬Ґа DMY({09/01/96}) ў®§ўа й Ґв бва®Єг "01 September 96".
‡ ¤ ЁҐ 1.3. ЋЇҐаЁагп ¤ в ¬Ё, Ї®Їлв ©вҐбм ўлўҐбвЁ ¤ЁбЇ«Ґ©
Їа®иҐ¤иҐҐ зЁб«® ¤Ґ© ®ў®© нал, е®вп Ўл ЇаЁЎ«Ё§ЁвҐ«м®, в Є¦Ґ
зЁб«® Їа®¦Ёвле ў ¬Ё ¤Ґ©.
1.4. ‘ва®Є®ўлҐ дгЄжЁЁ. ЋЇҐа жЁЁ б® бва®Є ¬Ё
‚ Ў § е ¤ ле (Ѓ„) бЁ¬ў®«мл© вЁЇ § Ё¬ Ґв ®б®Ў®Ґ ¬Ґбв®,
б।бвў а Ў®вл б® бва®Є ¬Ё пў«повбп ®Ўп§ ⥫мл¬ Ёбва㬥⮬ ЇаЁ
®Ўа Ў®вЄҐ ¤ ле Ѓ„ Ё ®б®ЎҐ® - ЇаЁ ᮧ¤ ЁЁ ЁвҐа䥩б . ‡ ¬ҐвЁ¬,
зв® ¬®ЈЁҐ Ё§ дгЄжЁ© ¤Ґ©бвўгов б® бва®Є ¬Ё, ўЄ«оз ойЁ¬Ё бЁ¬ў®«л
ЄЁаЁ««Ёжл, «Ёим ЇаЁ «ЁзЁЁ ў ‘“Ѓ„ агббЁдЁЄ в®а .
‚ ¤ «мҐ©иҐ¬ вҐа¬Ё <бва®Є > Ўг¤Ґ¬ Ї®Ё¬ вм а биЁаЁвҐ«м®, Є Є
бва®Є®ў®Ґ ўла ¦ҐЁҐ <ўлаC>. ‚ CLIPPER ¤«Ё бва®Є d - ¤® 64 K. „«п
бва®Є ®ЇаҐ¤Ґ«Ґ ®ЇҐа жЁп Є®Є ⥠樨 (б«ЁпЁп), ®Ў®§ з Ґ¬ п
§ Є®¬ "+" Ё«Ё "-". ‚ «оЎ®¬ б«гз Ґ бва®ЄЁ ᮥ¤Ёповбп; ў ®в«ЁзЁҐ ®в
ў аЁ в б Ї«оᮬ ў ў аЁ вҐ б ¬Ёгᮬ Є®жҐўлҐ Їа®ЎҐ«л ЇҐаў®© бва®ЄЁ
ЇҐаҐ®бпвбп ў б ¬л© Є®Ґж १г«мв в б«ЁпЁп. „®ЇгбвЁ¬ ¤ л бва®ЄЁ
SS ="Ќ…‚€„€ЊЋ", S ="‚€„€ЊЋ- ". Љ®¬ ¤ ? S+SS ўлў®¤Ёв
"‚€„€ЊЋ- Ќ…‚€„€ЊЋ", Є®¬ ¤ ? S-SS - "‚€„€ЊЋ-Ќ…‚€„€ЊЋ ".
ЋЇҐа жЁп <ўла‘1> $ <ўлаC2>я. ў®§ўа й Ґв १г«мв в .T. ("€бвЁ "),
Ґб«Ё бва®Є <ўлаC1> ᮤҐа¦Ёвбп ў <ўлаC2> Ё«Ё нвЁ 2 бва®ЄЁ б®ўЇ ¤ ов.
ЏаЁ¬Ґа. ’ॡгҐвбп Їа®ўҐаЁвм, пў«пҐвбп «Ё ®вўҐв Ї®«м§®ў ⥫п
(бва®Є S) ®¤®© Ё§ ЎгЄў "Y", "N", "y", "n". €бЇ®«м§гҐвбп ®ЇҐа жЁп
S $ "Y N y n". Ђ «®ЈЁзл¬ ®Ўа §®¬ ¬®¦® Їа®ўҐапвм ®вўҐвл, б®бв®пйЁҐ
Ё§ ҐбЄ®«мЄЁе ЎгЄў: Upper(S) $ "YES NO ". ”гЄжЁҐ© Upper ЎгЄўл ®вўҐв
ЇҐаҐўҐ¤Ґл ў ўҐаеЁ© ॣЁбва (Їа®ЇЁблҐ ЎгЄўл).
‘а ўҐЁҐ бва®Є. €¬ҐҐвбп 2 ०Ё¬ : SET EXACT OFF (०Ё¬ Ї®
㬮«з Ёо) Ё SET EXACT ON. ‚ ०Ё¬Ґ SET EXACT OFF ®ЇҐа жЁп ба ўҐЁп
<ўлаC1> = <ўлаC2> ў®§ўа й Ґв १г«мв в .T., Ґб«Ё бва®ЄЁ Ё¤ҐвЁзл
Ё«Ё <ўлаC2> пў«пҐвбп з «м®© Ї®¤бва®Є®© ў <ўлаC1>. Ќ ЇаЁ¬Ґа, ў
д ©«Ґ Ё§¤Ґ«Ё©, Ј¤Ґ Ї®«Ґ MARKA ®Ў®§ з Ґв Ё§¤Ґ«ЁҐ, ¬л ¬®¦Ґ¬ ©вЁ
ЇҐаў®Ґ Ї® Ї®ап¤Єг § ЇЁбЁ Ё§¤Ґ«ЁҐ дЁа¬л SONY, ЁбЇ®«м§гп гб«®ўЁҐ
MARKA = "SONY" (®Ў®§ 票Ґ Ё§¤Ґ«Ёп ¤«ЁҐҐ 4 бЁ¬ў®«®ў). ЏҐаҐбв ўмвҐ
«Ґўл© ®ЇҐа ¤ б Їа ўл¬, Ё Ї®ЁбЄ бв ®ўЁвбп ЎҐ§аҐ§г«мв вл¬.
ЌҐ г¤Ёў«п©вҐбм ⮬г, зв® ў ०Ё¬Ґ SETEXACT OFF ба ўҐЁҐ <ўлаC> =""
ўбҐЈ¤ ў®§ўа й Ґв .T. „Ґ©б⢨⥫м®, Їгбв п бва®Є пў«пҐвбп Ї®¤бва®Є®©
¤агЈ®© бва®ЄЁ. —в®Ўл Їа®ўҐаЁвм, пў«пҐвбп «Ё <ўлаC> Їгбв®© бва®Є®©,
㦮 Ё§¬ҐЁвм ०Ё¬ Є®¬ ¤®© SET EXACT ON, Ё в®Ј¤ ЇаЁ ба ўҐЁЁ
«Ёим Ё¤ҐвЁз®бвм бва®Є, ЁбЄ«оз п Ёе Є®жҐўлҐ Їа®ЎҐ«л, Ўг¤Ґв
®б®ў ЁҐ¬ Ї®«г票п १г«мв в .T. Њ®¦® в Є¦Ґ ЇаЁ¬ҐЁвм ®ЇҐа жЁо
"==", Є®в®а п ¤ Ґв .T. «Ёим ЇаЁ Ё¤ҐвЁз®бвЁ бва®Є а ў ® © ¤«Ёл,
ўЄ«оз п Ёе Є®жҐўлҐ Їа®ЎҐ«л: <ўлаC> == "".
Ќ Є®Ґж, Ґб«Ё ўл е®вЁвҐ Їа®ўҐаЁвм, ᮤҐа¦Ёв «Ё бва®Є <ўлаC>
«ЁвҐал, ЇаЁ¬Ґп©вҐ дгЄжЁо Empty(<ўлаC>), Є®в®а п ў®§ўа й Ґв .T. Ё
¤«п Їгбв®© бва®ЄЁ, Ё ¤«п бва®Є, ᮤҐа¦ йЁе «Ёим Їа®ЎҐ«л, § ЄЁ
в Ўг«пжЁЁ, ў®§ўа в Є аҐвЄЁ, ЇҐаҐў®¤ бва®ЄЁ. ”гЄжЁп ЇаЁ¬ҐЁ¬ Ё Є
аЈг¬Ґв ¬ Ёле вЁЇ®ў (б¬. ЇаЁ«®¦ҐЁҐ 1).
ђ бб¬ ваЁў Ґ¬лҐ Ё¦Ґ дгЄжЁЁ F, Ґ Ё§¬Ґпп бва®Єг- аЈг¬Ґв,
ў®§ўа й ов Ё§¬ҐҐл© ҐҐ ¤ г Ў « м, ¤«п Ё§¬ҐҐЁп б ¬®© бва®ЄЁ
г¦ Є®¬ ¤ Sp = F(Sp), Ј¤Ґ Sp - бЁ¬ў®«м п ЇҐаҐ¬Ґ п, ®Ў®§ з ой п
бва®Єг. ‚ ¤ «мҐ©иҐ¬ ⥪б⥠®Ўп§ ⥫млҐ аЈг¬Ґвл ЇҐз в л ¦Ёа®.
„«п Єа вЄ®бвЁ ў¬Ґбв® <ўлаC> ЁбЇ®«м§говбп ®Ў®§ 票п S,SS,S1 Ё в.Ї.
”гЄжЁЁ Ltrim(S), Rtrim(S), Alltrim(S) ў®§ўа й ов гбҐзҐго
бва®Єг, г¤ «пп Їа®ЎҐ«л ᮮ⢥вб⢥® б«Ґў , бЇа ў Ё б ®Ў®Ёе бв®а®
бва®ЄЁ. Ќ Їа®вЁў, дгЄжЁЁ Padl(S,l,z), Padr(S,l,z), Padc(S,l,z)
ў®§ўа й ов ¤гЎ«м бва®ЄЁ S, Ё¬ҐойЁ© ¤«Ёг l, ў Є®в®ал© ¤®Ў ў«пҐвбп
§ ¤ л© бЁ¬ў®« z ᮮ⢥вб⢥® б«Ґў , бЇа ў Ё а ў®¬Ґа® б ®ЎҐЁе
бв®а®. …б«Ё 3-© Ї а ¬Ґва Ґ гЄ § , ¤®Ў ў«повбп Їа®ЎҐ«л. …б«Ё ¦Ґ
¤«Ё l ¬ҐмиҐ ¤«Ёл d бва®ЄЁ S, Їа®Ёб室Ёв гбҐзҐЁҐ ¤гЎ«п бЇа ў .
ЌҐ в®«мЄ® гбҐзҐЁҐ бва®ЄЁ, ® Ё ўл¤Ґ«ҐЁҐ Ї®¤бва®ЄЁ SS - «оЎ®©
з бвЁ бва®ЄЁ - ¬®¦® Їа®Ё§ўҐбвЁ дгЄжЁҐ© Substr (S,k,l), Ј¤Ґ k -
з «м п Ї®§ЁжЁп Ї®¤бва®ЄЁ ў бва®ЄҐ S, l - ¤«Ё Ї®¤бва®ЄЁ. …б«Ё l
Ў®«миҐ (d-k), Ї®¤бва®Є ®Є зЁў Ґвбп ў¬Ґб⥠ᮠбва®Є®©, Є Є Ё ў
б«гз Ґ ў®§¬®¦®Ј® Ґ гЄ § Ёп l. …б«Ё b ®ваЁж ⥫м®, з «мл© бЁ¬ў®«
Ї®¤бва®ЄЁ ®вбзЁвлў Ґвбп ®в Є®ж бва®ЄЁ S.
ЏаЁ¬Ґа: ? Substr("ЏЋЃ…„Ђ",-4) // ‚лў®¤Ёвбп "Ѓ…„Ђ"
”гЄжЁЁ Left(S,n) Ё Right(S,n) Ё¬Ґов Ў®«ҐҐ г§Є®Ґ § 票Ґ, ўл¤Ґ«пп
ў Ї®¤бва®Єг n бЁ¬ў®«®ў ᮮ⢥вб⢥® б «Ґў®Ј® Ё Їа ў®Ј® Єа п бва®ЄЁ.
’аЁ ўлиҐгЄ § ле дгЄжЁЁ з бв® ЁбЇ®«м§говбп б®ў¬Ґбв® б дгЄжЁп¬Ё
At(SS,S) Ё Rat(SS,S), Є®в®алҐ е®¤пв ў S ЇҐаў®Ґ (Ї®б«Ґ¤ҐҐ)
ўе®¦¤ҐЁҐ Ї®¤бва®ЄЁ SS, ў®§ўа й п ў «оЎ®¬ б«гз Ґ ®¬Ґа з «м®Ј®
бЁ¬ў®« SS ўгваЁ S Ё«Ё ®«м - Ґб«Ё Ї®¤бва®Є SS ў S Ґ ®Ў а㦥 .
ЏаЁ¬Ґа 1.4. ‘ва®Є S ᮤҐа¦Ёв д ¬Ё«Ёо, Ё¬п, ®взҐбвў®. ‚뤥«пҐ¬
д ¬Ё«Ёо б ЇҐаўл¬ ЁЁжЁ «®¬ (бв ўЁ¬ в®зЄг), ®вў®¤п ¤«п Ёе 20 Ї®§ЁжЁ©:
Z = Alltrim(S) //‘®§¤ Ґвбп Є®ЇЁп ЎҐ§ ўҐиЁе Їа®ЎҐ«®ў
Y = At(" ", Z)+1) //“бв ў«Ёў Ґвбп Ї®§ЁжЁп ЎгЄўл ЁЁжЁ «
Z = Padr(Substr( Z,1,Y) +".", 20) //Ћд®а¬«пҐвбп १г«мв в
Џ®бЄ®«мЄг ў®§¬®¦л ®иЁЎЄЁ ¤ ле, ў ЇаЁЄ« ¤®© Їа®Ја ¬¬Ґ нвЁ¬Ё
ваҐ¬п ®ЇҐа в®а ¬Ё Ґ ®Ја ЁзЁў овбп. …б«Ё Ї® ®иЁЎЄҐ ў S Їа®ЇгйҐл
а §¤Ґ«ЁвҐ«млҐ Їа®ЎҐ«л, ЇаЁ¬Ґа, § ¬ҐҐл § Є®¬ "_", дгЄжЁп At()
Ґ ©¤Ґв Їа®ЎҐ« Ё ў®§ўа вЁв 0; ў Ёв®ЈҐ Z Ўг¤Ґв ᮤҐа¦ вм ЇҐаўго
ЎгЄўг д ¬Ё«ЁЁ б в®зЄ®©. „агЈЁ¬Ё б«®ў ¬Ё, ¤® Їа®ўҐапвм § 票Ґ Y.
”гЄжЁп Stuff(S, k, nu, SS) ў ¤гЎ«Ґ бва®ЄЁ S г¤ «пҐв nu бЁ¬ў®«®ў,
зЁ п б Ї®§ЁжЁЁ k, § ⥬ ўбв ў«пҐв ў нв®в ЇгЄв Ї®¤бва®Єг
SS. …б«Ё г¤ «ҐЁҐ Ґ вॡгҐвбп, § ¤ ов nu=0. …б«Ё ¦Ґ Ґ вॡгҐвбп
ўбв ўЄ , § ¤ ов SS ="" (Їгбв п Ї®¤бва®Є ). ђ бᬮваЁ¬ ЇаЁ¬Ґал. ”гЄжЁп
Stuff("¤ҐдҐЄвЁўл©",1,2,"нд") ў®§ўа й Ґв бва®Єг "нд䥪⨢л©".
ЏаЁ¬Ґа 1.5. ‡ ¬ҐпҐ¬ ў бва®ЄҐ S "ўл襯ҐаҐзЁб«ҐлҐ «Ёз®бвЁ"
ЇҐаў®Ґ ҐҐ б«®ў® ¤ўг¬п б«®ў ¬Ё "ЇҐаҐзЁб«ҐлҐ ўлиҐ":
S = Stuff (Stuff (S, At(" ",S), 0, " ўлиҐ"), 1, 4, "") ;
§¤Ґбм ўгваҐпп Stuff ўбв ў«пҐв б«®ў®, ўҐипп - г¤ «пҐв 4 ЎгЄўл.
…б«Ё Ї®¤®Ў®Ґ Ё§¬ҐҐЁҐ ¤® ®бгйҐбвўЁвм Ї® ўбҐ¬г ⥪бвг ¤«Ё®©
бва®ЄЁ S, «гзиҐ ў®бЇ®«м§®ў вмбп дгЄжЁҐ© б® бЄалвл¬ жЁЄ«®¬
Strtran(S, SS1, SS2, k, n),
Ј¤Ґ SS1 - Ї®¤бва®Є S, SS2 - § ¬Ґй ой п SS1 Ї®¤бва®Є ; б Ї®¬®ймо
k, n ¬®¦® гЄ § вм, зв® § ¬Ґл ¤® зЁ вм б k-Ј® ўе®¦¤ҐЁп SS1
ў S, ЇаЁзҐ¬ вॡгҐвбп ®Ўа Ў®в вм n в ЄЁе ўе®¦¤ҐЁ©. …б«Ё ¤ўге
Ї®б«Ґ¤Ёе Ї а ¬Ґва®ў Ґв, ®Ўа Ў влў овбп ў б Ґ ўе®¦¤ҐЁп Ї®¤бва®ЄЁ.
„«п Ї®ўбҐ¬Ґбв®© § ¬Ґл ў ¤«Ё®© бва®ЄҐ S б«®ў "ўл襯ҐаҐзЁб«ҐлҐ"
б«®ў ¬Ё "ЇҐаҐзЁб«ҐлҐ ўлиҐ" § ЇЁиҐ¬ дгЄжЁо Strtran ¤ў ¦¤л,
гзЁвлў п ў®§¬®¦®бвм Ї®пў«ҐЁп б«®ў ў з «Ґ ЇаҐ¤«®¦ҐЁп:
Strtran(S, "ўл襯ҐаҐзЁб«ҐлҐ", "ЇҐаҐзЁб«ҐлҐ ўлиҐ")
Strtran(S, "‚л襯ҐаҐзЁб«ҐлҐ", "ЏҐаҐзЁб«ҐлҐ ўлиҐ") ,
”гЄжЁп Space(n) ў®§ўа й Ґв бва®Єг, б®бв®пйго Ё§ n Їа®ЎҐ«®ў.
”гЄжЁп Replicate (SS,n) ў®§ўа й Ґв бва®Єг, б®бв®пйго Ё§ n Ї®¤бва®Є
SS. ”гЄжЁп Upper(S) ў®§ўа й Ґв ¤гЎ«м бва®ЄЁ S, ў Є®в®а®¬ ўбҐ ЎгЄўл
Їа®ЇЁблҐ. Ќ Їа®вЁў, дгЄжЁп Lower(S) ¤Ґ« Ґв ЎгЄўл бва®зл¬Ё.
ЏаЁ¬Ґал: ? Replicate("„€Ќњ-", 3) //‚лў®¤ "„€Ќњ-„€Ќњ-„€Ќњ-"
? Replicate("*",15) //‚лў®¤ "***************".
”гЄжЁЁ «Ё§ бва®Є. ”гЄжЁп Len(S) ¤ Ґв ¤«Ёг d бва®ЄЁ S.
—в®Ўл Їа®ўҐаЁвм, Їгбв «Ё бва®Є S, 㦮 ба ўЁвм Len(S) б г«Ґ¬;
дгЄжЁп Empty(S) ҐЇаЁЈ®¤ , ® ¤ Ґв .T. Ё ў б«гз Ґ, Ґб«Ё бва®Є
б®бв®Ёв Ё§ Їа®ЎҐ«®ў. Њ®¦® в Є¦Ґ ба ўЁвм S c Їгбв®© бва®Є®© "".
”гЄжЁп Isalpha(S) ў®§ўа й Ґв .T. в®«мЄ® Ґб«Ё 1-© бЁ¬ў®« бва®ЄЁ
ЎгЄў , Isupper(S) ¤ Ґв .T. в®«мЄ® ¤«п § Ј« ў®© ЎгЄўл ў 1-©
Ї®§ЁжЁЁ бва®ЄЁ, в®Ј¤ Є Є Islower(S) - ¤«п бва®з®©. ”гЄжЁп
Isdigit(S) ў®§ўа й Ґв .T., в®«мЄ® Ґб«Ё ЇҐаўл© бЁ¬ў®« бва®ЄЁ жЁда .
”гЄжЁЁ «Ё§ , в Є¦Ґ Upper(S), Lower(S), Proper(S), Atc(SS,S),
Atcline(SS,S) (б¬. ЇаЁ«®¦ҐЁҐ 2) ¤Ґ©бвўгов б ЄЁаЁ««ЁжҐ© «Ёим ЇаЁ
«ЁзЁЁ агбЁдЁЄ в®а ў Ї ЄҐвҐ FOXPRO.
ЏаҐ¦¤Ґ, 祬 Ё§гзЁвм ¤®Ї®«ЁвҐ«млҐ дгЄжЁЁ FOXPRO, а бᬮваЁ¬
Ї®пвЁҐ бЁ¬ў®«м®© ¬ бЄЁ, ЁбЇ®«м§гҐ¬®© ЇаЁ Ї®ЁбЄҐ. Њ бЄ ап¤г б
пў® гЄ § л¬Ё бЁ¬ў®« ¬Ё ¬®¦Ґв ᮤҐа¦ вм § Є "?", ®Ў®§ з ойЁ©
Ї®§ЁжЁо, § пвго ҐЄ®в®ал¬ бЁ¬ў®«®¬, Ё § Є "*", ®Ў®§ з ойЁ©
ҐЄ®в®аго Ї®б«Ґ¤®ў ⥫м®бвм бЁ¬ў®«®ў, е®вп Ўл Ё Їгбвго. Ќ ЇаЁ¬Ґа,
ЇаЁ Ї®ЁбЄҐ ў Ў §Ґ ¤ ле «Ёж, ⥫Ґд® Є®в®але Ё¬ҐҐв ®Є®з ЁҐ 4-73,
ЁбЇ®«м§гҐвбп ¬ бЄ *4-73 Ё«Ё ???-?4-73, Ґб«Ё ⥫Ґд®лҐ ®¬Ґа
ᥬЁ§ злҐ.
‚ п§лЄҐ FOXPRO дгЄжЁп Like(<ўлаC1>, <ўлаC2>) ў®§ўа й Ґв
§ 票Ґ .T., Ґб«Ё бва®Є <ўлаC1> Ё¬ҐҐвбп ў <ўлаC2>, ЇаЁзҐ¬ <ўлаC1>
¬®¦Ґв Ўлвм ¬ бЄ®©. Ќ ЇаЁ¬Ґа, LIKE("??¬®бва*", "¤Ґ¬®бва жЁп")
ў®§ўа й Ґв § 票Ґ .T., Є Є Ё LIKE("*¬®бва*", "‡®¬ЎЁ-¬®бва").
”гЄжЁп FOXPRO Occurs(SS,S) ў®§ўа й Ґв зЁб«® ўе®¦¤ҐЁ© Ї®¤бва®ЄЁ
SS ў бва®Єг S. “ дгЄжЁ© At, Rat (б¬. ўлиҐ) ¬®¦Ґв Ўлвм 3-© Ї а ¬Ґва:
зЁб«®ў®Ґ ўла ¦ҐЁҐ, Є®в®а®Ґ гЄ §лў Ґв ®¬Ґа а §лбЄЁў Ґ¬®Ј®
нЄ§Ґ¬Ї«па Ї®¤бва®ЄЁ (®вбзҐв б«Ґў ¤«п At Ё бЇа ў - ¤«п Rat).
Ља®¬Ґ в®Ј®, Ё¬ҐҐвбп дгЄжЁп Atc, Є®в®а п Ґ а §«Ёз Ґв ЇаЁ Ї®ЁбЄҐ
Їа®ЇЁблҐ Ё бва®злҐ ЎгЄўл, ў ®б⠫쮬 «®ЈЁз дгЄжЁЁ At.
”гЄжЁп FOXPRO Chrtran(S, S1, S2) ў®§ўа й Ґв Ё§¬ҐҐго Є®ЇЁо
бва®ЄЁ S, ў Є®в®а®© ўбҐ ўе®¦¤ҐЁп j-Ј® бЁ¬ў®« бва®ЄЁ S1 § ¬ҐҐл
j-¬ бЁ¬ў®«®¬ бва®ЄЁ S2, j=1..Len(S1). …б«Ё бва®Є S2 Є®а®зҐ
бва®ЄЁ S1 Ё ў Ґ© Ґв j-Ј® бЁ¬ў®« , в® ў бва®ЄҐ S Ї®Їа®бвг
ЁбЄ«оз овбп § ЄЁ, пў«пойЁҐбп j-¬ бЁ¬ў®«®¬ S1. ЏаЁ¬Ґал:
? Chrtran("ЏђЋ‘’ђЂ–€џ", "Ђ€ђ–џ", "") // ‚лў®¤Ёвбп "ЏЋ‘’"
? Chrtran("ЏђЋ‹…’Ђђ€‰", "’…ђЂЏЋ€‹‰", "…„’Ќ‘“") //"‘’“„…Ќ’"
‡ ¤ ЁҐ 1.4. €бЇ®«м§гп бва®Є®ўлҐ дгЄжЁЁ, § ЇЁиЁвҐ Їа®жҐ¤гаг
Ї®Ї а®© ЇҐаҐбв ®ўЄЁ б®бҐ¤Ёе б«®ў ў Їа®Ё§ў®«м® § ¤ ®© бва®ЄҐ
(Ї®ўв®а®Ґ ЇаЁ¬ҐҐЁҐ Їа®жҐ¤гал ў®ббв ў«Ёў Ґв бва®Єг).
1.5. ‚ла ¦ҐЁп. “б«®ўлҐ ўла ¦ҐЁп
ЋЇҐа жЁЁ б зЁб« ¬Ё Ё ®ЇҐа жЁЁ ба ўҐЁп гЄ § л ў в Ў«. 1.2.
’ Ў«Ёж 1.2
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
і ‡ ЄЁ зЁб«®ўле ®ЇҐа жЁ© і ‡ ЄЁ ®ЇҐа жЁ© ба ўҐЁп
і-------------------------------і----------------------------------
і +,- ‘«®¦ҐЁҐ Ё ўлзЁв ЁҐ і = Ё«Ё == ђ ў®
і *,/ “¬®¦ҐЁҐ Ё ¤Ґ«ҐЁҐ і <, <= ЊҐмиҐ, ¬ҐмиҐ Ё«Ё а ў®
і **,^ ‚®§ўҐ¤ҐЁҐ ў б⥯Ґм і >, >= Ѓ®«миҐ, Ў®«миҐ Ё«Ё а ў®
і % Ћбв в®Є ®в ¤Ґ«ҐЁп 楫®і !=, # ЌҐ а ў®
‹®ЈЁзҐбЄЁҐ ®ЇҐа жЁЁ § ЇЁблў ов Є Є .NOT.(®ваЁж ЁҐ), .AND.
(Є®коЄжЁп) Ё .OR.(¤Ё§коЄжЁп) (®ваЁж ЁҐ ¬®¦® в Є¦Ґ ®Ў®§ з вм § Є®¬
"!"). ЋЇҐа жЁЁ ба ўҐЁп "==","=" ЇаЁ¬ҐЁ¬л Є ўла ¦ҐЁп¬ ўбҐе вЁЇ®ў.
ЋЇҐа жЁЁ ўлЇ®«повбп ¤ ®¤®вЁЇл¬Ё ¤ л¬Ё; ЁбЄ«о票п:
) б«®¦ҐЁҐ (ўлзЁв ЁҐ) ¤ вл Ё зЁб« (१г«мв в Ё¬ҐҐв вЁЇ "¤ в ");
Ў) ба ўҐЁҐ ®ЇҐа ¤ «оЎ®Ј® вЁЇ а ўҐбвў® § 票о NIL ("Їгбв®");
ЇаЁ ба ўҐЁЁ б NIL ¤®ЇгбвЁ¬л¬Ё пў«повбп § ЄЁ =, ==, # Ё != .
‚ п§лЄҐ CLIPPER ЇаҐ¤гᬮваҐл б®бв ўлҐ ®ЇҐа жЁЁ:
<€¬п A> <‡ Є зЁб«®ў®© ®ЇҐа жЁЁ><‡ Є "=" > <‚ла ¦ҐЁҐ B>;
б з « ўлЇ®«пҐвбп зЁб«®ў п ®ЇҐа жЁп ¤ A Ё B, § ⥬ ҐҐ १г«мв в
ЇаЁбў Ёў Ґвбп A, ЁЎ® §¤Ґбм § Є "=" ®§ з Ґв ЇаЁбў®ҐЁҐ. ЋЇҐа жЁЁ "+="
Ё "-=" ЇаЁ¬ҐЁ¬л в Є¦Ґ Є бва®Є ¬ Ё ¤ в ¬ (б¬. Ї." " ўлиҐ).
ЏаЁ¬Ґа: B:=1; C:=8; C/=(B+=3) // ‚ Ёв®ЈҐ B Ї®«гз Ґв § 票Ґ 4, C=2.
ЌЁ¦Ґ ®ЇҐа жЁЁ ЇҐаҐзЁб«Ґл Ї® гЎлў Ёо ЇаЁ®аЁвҐв (бв аиЁбвў ).
1. ЋЇҐа жЁп Є®Є ⥠樨 ("б«ЁпЁп")бва®Є (б¬. Ї. 1.4).
2. “ алҐ ®ЇҐа жЁЁ "+" Ё "-", ЇаЁ¬Ґа, ¬Ёгб ў § ЇЁбЁ - 2**2.
3. ‚®§ўҐ¤ҐЁҐ ў б⥯Ґм; ЇаЁ¬Ґа, - 2**2 ¤ Ґв § 票Ґ + 4.
4. “¬®¦ҐЁҐ, ¤Ґ«ҐЁҐ, Ї®«г票Ґ ®бв вЄ ®в ¤Ґ«ҐЁп.
5. ‚лзЁв ЁҐ, ў ⮬ зЁб«Ґ <¤ в >-<¤ в >, <¤ в >-<зЁб«®>, Ё
б«®¦ҐЁҐ, ўЄ«оз п б«гз © <¤ в >+<зЁб«®>.
6. ЋЇҐа жЁЁ ба ўҐЁп Ё Їа®ўҐаЄ ўе®¦¤ҐЁп Ї®¤бва®ЄЁ ў бва®Єг.
7. ‹®ЈЁзҐбЄ п ®ЇҐа жЁп ®ваЁж Ёп (.NOT.).
8. ‹®ЈЁзҐбЄ п ®ЇҐа жЁп "€" (.AND.).
9. ‹®ЈЁзҐбЄ п ®ЇҐа жЁп "€‹€" (.OR.).
‚ ўла ¦ҐЁЁ, Ј¤Ґ Ґв бЄ®Ў®Є (), бв аиЁҐ ®ЇҐа жЁЁ ўлЇ®«повбп
ў ЇҐаўго ®зҐаҐ¤м; бзЁв Ґвбп, зв® ®ЇҐа жЁЁ а ў®Ј® ЇаЁ®аЁвҐв
ўлЇ®«повбп ў Ї®ап¤ЄҐ б«Ґў - Їа ў®. …б«Ё ў ўла ¦ҐЁЁ Ё¬Ґовбп ўл§®ўл
дгЄжЁ©, в® ЇаҐ¦¤Ґ ўбҐЈ® 室пвбп Ёе § 票п; ЇаЁ н⮬ Ї®а冷Є
¤Ґ©бвўЁ© ў аЈг¬ҐвҐ-ўла ¦ҐЁЁ Ї®¤зЁпҐвбп ®ЎйЁ¬ Їа ўЁ« ¬.
ЏаЁ¬Ґа 1.6. „ вл D1, D2 Ўл«Ё § ¤ л Є Є ¤ вл з « Ё ®Є®з Ёп
нв Ї ҐЄ®в®а®© а Ў®вл ᮮ⢥вб⢥®. “бв ®ў«Ґ ®ў п ¤ в
D3 з « . ’ॡгҐвбп ®ЇаҐ¤Ґ«Ёвм ®ўго ¤ вг D4 ®Є®з Ёп. Љ®¬ ¤
D4 = D2 + D3 - D1 ўл§®ўҐв б®®ЎйҐЁҐ ®Ў ®иЁЎЄҐ (ў FOXPRO) Ё«Ё ¤ бв
ҐўҐал© аҐ§г«мв в (ў п§лЄҐ CLIPPER), ЁЎ® ¤Ґ©бвўЁп "+","-" а ў®Ј®
ЇаЁ®аЁвҐв Ё ўлЇ®«повбп б«Ґў - Їа ў®, ®ЇҐа жЁЁ б«®¦ҐЁп ¤ в Ґ
бгйҐбвўгҐв. ‘«Ґ¤гҐв § ЇЁб вм Є®¬ ¤г ў ўЁ¤Ґ D4 = D2 + (D3 - D1).
€в Є, Їа®бв ў«пп бЄ®ЎЄЁ, ¬®¦® ®ЇаҐ¤Ґ«Ёвм «оЎ®© Ґ®Ўе®¤Ё¬л©
Ї®а冷Є ўлЇ®«ҐЁп ®ЇҐа жЁ©, Ї®ўлбЁвм Ј«п¤®бвм ўла ¦ҐЁ©.
“б«®ўлҐ ўла ¦ҐЁп. ”гЄжЁп Iif(), Ї®§ў®«пой п ॠ«Ё§®ў вм
гб«®ўлҐ ўла ¦ҐЁп, Ё¬ҐҐв бвагЄвгаг Iif (<ўлаL>, <ўла1>, <ўла2>) ;
® ў®§ўа й Ґв § 票Ґ <ўла1>, Ґб«Ё <ўлаL> ЁбвЁ®, ў Їа®вЁў®¬
б«гз Ґ - § 票Ґ <ўла2>. Ќ ЇаЁ¬Ґа, Abs(X) Ё дгЄжЁп Iif(X<0,-X,X)
Ё¬Ґов ®¤Ё Є®ўл© १г«мв в. ’ЁЇл ўла ¦ҐЁ© <ўла1> Ё <ўла2> Ґ
®Ўп§ вҐ«м® б®Ј« б®ўлў вм. ЏаЁ¬Ґа: Iif(A>=0, Sqrt(A),"ЂаЈг¬Ґв < 0").
‚ Є зҐб⢥ <ўла1>,<ўла2> ¬®¦® ЁбЇ®«м§®ў вм ¤агЈЁҐ, ў«®¦ҐлҐ
дгЄжЁЁ Iif; Ј«гЎЁ ў«®¦ҐЁ© Ґ ®Ја ЁзЁў Ґвбп.
ЏаЁ¬Ґа 1.7. ‚ ҐЄ®в®а®© Ў §Ґ ¤ ле Ї®«Ґ Sem Ё¬ҐҐв § 票п "•"
(е®«®бв),"Ѓ" (ў Ўа ЄҐ),"ђ" (а §ўҐ¤Ґ), Ї®«Ґ Pol - § 票п "¬г¦",
"¦Ґ". ‚лў®¤Ё¬ д ¬Ё«Ёо (Ї®«Ґ Fam) Ё ᥬҐ©®Ґ Ї®«®¦ҐЁҐ (б«®ўҐб®):
? Fam, Iif(Sem="•", Iif(Pol="¬г¦", "•®«®бв", "ЌҐ § ¬г¦Ґ¬"), ;
Iif(Sem="Ѓ", "‚ Ўа ЄҐ", "ђ §ўҐ¤Ґ( )") )
”гЄжЁп Iif ®ЎҐбЇҐзЁў Ґв « Є®Ёзго § ЇЁбм ўҐвў«ҐЁ©, ®б®ЎҐ®,
Ґб«Ё в®в Ё«Ё Ё®© ўлЎ®а 㦮 ॠ«Ё§®ў вм ў а ¬Є е ўла ¦ҐЁп.
Џ®бЄ®«мЄг ў <ўла1>,<ўла2> ў®§¬®¦л дгЄжЁЁ Ї®«м§®ў ⥫п, б«®¦®бвм
ўҐвўҐ© Ґ ®Ја ЁзЁў Ґвбп. …б«Ё ®в дгЄжЁЁ Iif Ґ вॡгҐвбп ў®§ўа в
§ 票п, ҐҐ ЁбЇ®«м§гов Є Є Є®¬ ¤г (CLIPPER) Ё«Ё ў дЁЄвЁў®¬
ЇаЁбў Ёў ЁЁ (FOXPRO; б¬. ЇаЁ¬Ґа 1.8). …б«Ё ЇаЁ н⮬ ®¤ ўҐвўм
Їгбв п, ҐҐ Ї®Є §лў ов ў Iif ўла ¦ҐЁҐ¬ "0" (®«м) Ё«Ё Їгбв®© бва®Є®©.
ЏаЁ¬Ґа 1.8. ‚뤥«пҐ¬ ў бва®ЄҐ S Їа®ЇЁбл¬Ё ЎгЄў ¬Ё б«®ў®, з «®¬
Є®в®а®Ј® пў«пҐвбп § ¤ п Ї®¤бва®Є SS. …б«Ё в Є®Ј® б«®ў Ґв,
бва®Є Ґ Ё§¬ҐпҐвбп.
* ЏаЁ ॠ«Ё§ жЁЁ Їа®Ја ¬¬л ў CLIPPER ¤® гЎа вм "=" ў 3-© бва®ЄҐ
ACCEPT TO S && ‚ў®¤ бва®ЄЁ S Ё Ї®¤бва®ЄЁ SS
ACCEPT TO SS
= Iif (!Empty(S).and.!Empty(SS), f(), 0) && …б«Ё бва®ЄЁ S, SS Ґ
? SS, S && ЇгбвлҐ, бва®Є S Ё§¬ҐпҐвбп ў Ў«®ЄҐ f
CANCEL && ‚®§ўа 饨Ґ ў Є®¬ ¤го бва®Єг
FUNCTION f
k = At(Upper(SS),Upper(S)) && k- з «м п Ї®§ЁжЁп Ї®¤бва®ЄЁ SS ў S
l = Iif(k>0, At(' ', Substr(S,k)) - 1, 0) && l-¤«Ё ЁбЄ®¬®Ј® б«®ў
l = Iif(l<0, Len(S)-k+1, l) && ‘«гз ©, Є®Ј¤ Є®Ґж б«®ў = Є®жг S
SS = Upper(Substr(S, k, l)) && ‘«®ў® ЇаЁў®¤Ёвбп Є ўҐа奬г ॣЁбваг
S = Iif(k>0, Stuff(S,k,l,SS), S) && ‡ ¬Ґ б«®ў ў бва®ЄҐ S
RETURN 0 && Ќ®«м, ЁЎ® ў®§ўа й Ґ¬®Ґ § 票Ґ Ґ вॡгҐвбп
‡ ¤ ЁҐ 1.5. €бЇ®«м§гп дгЄжЁо Iif, б®бв ўм⥠Їа®Ја ¬¬г,
г¤ «пойго Ё§ § ¤ ®© бва®ЄЁ S ЇҐаў®Ґ б«®ў® б § ¤ л¬ ®Є®з ЁҐ¬ SS.
1.6. ’ЁЇ ўла ¦ҐЁп. ЏаҐ®Ўа §®ў Ёп вЁЇ ®ЇҐа ¤®ў.
‡ўгЄ®ў®Ґ б®Їа®ў®¦¤ҐЁҐ
‚ ҐЄ®в®але б«гз пе, ЇаЁ¬Ґа, ЇаЁ ®в« ¤ЄҐ Їа®Ја ¬¬л, вॡгҐвбп
®ЇаҐ¤Ґ«Ёвм вЁЇ § зҐЁп ўла ¦ҐЁп. ”гЄжЁп Type("<‚ла ¦ҐЁҐ>")
ў®§ўа й Ґв бЁ¬ў®«, ®Ў®§ з ойЁ© вЁЇ нв®Ј® § 票п (в Ў«. 1.3;
ЄгабЁў®¬ ўл¤Ґ«Ґл вЁЇл, ®ЇаҐ¤Ґ«пҐ¬лҐ «Ёим ў п§лЄҐ CLIPPER; ЎгЄў "U"
ў®§ўа й Ґвбп ЇаЁ Ґў®§¬®¦®бвЁ гбв ®ў«ҐЁп вЁЇ в Є¦Ґ Ё ў FOXPRO).
Ќ ЇаЁ¬Ґа, Ґб«Ё аЈг¬Ґв Type - § Є«о祮Ґ ў Є ўлзЄЁ Ё¬п ¬ ббЁў ,
ў п§лЄҐ FOXPRO ў®§ўа й Ґ¬ п ЎгЄў ®ЇаҐ¤Ґ«пҐвбп вЁЇ®¬ ЇҐаў®Ј® н«Ґ¬Ґв
¬ ббЁў ; ў п§лЄҐ CLIPPER - ў®§ўа й Ґвбп ЎгЄў A (б¬. в Ў«. 1.3).
______________________________________________________’ Ў«Ёж 1.3
’ Ё Ї —Ёб«® ‘Ё¬ў®«мл© ‹®ЈЁзҐбЄЁ© „ в MEMO Ѓ«®Є Є®¤ Њ ббЁў NIL
-------------------------------------------------------------------
‘Ё¬ў®« N C L D M B A U
-------------------------------------------------------------------
’ЁЇ MEMO ("ЏаЁ¬Ґз ЁҐ") пў«пҐвбп ®¤Ё¬ Ё§ вЁЇ®ў Ї®«Ґ© § ЇЁбЁ.
‚ п§лЄҐ CLIPPER ЇаЁ бЁв ЄбЁзҐбЄ®© ®иЁЎЄҐ ў ўла ¦ҐЁЁ дгЄжЁп Type
ў®§ўа й Ґв бва®Єг "UE", ЇаЁ ®иЁЎЄҐ ҐЁ§ўҐбв®Ј® е а ЄвҐа - "UI"
( ЇаЁ¬Ґа, Ґб«Ё ў Ґ¬ Ґбвм дгЄжЁп Ї®«м§®ў ⥫п).
ЏаЁ¬Ґа. X=5; ? Type ("X+Y"), Type("X+*5"), Type("f(X)+5")
‚®§ўа й Ґвбп ᮮ⢥вб⢥® ЎгЄў "U", "UE", "UI". …б«Ё ¬л § Ўг¤Ґ¬
Ї®бв ўЁвм ўла ¦ҐЁҐ ў Є ўлзЄЁ, ў®§ЁЄ Ґв б®®ЎйҐЁҐ ®Ў ®иЁЎЄҐ.
Џ®бЄ®«мЄг ў ®ЇҐа жЁпе гз бвўгов, Є Є Їа ўЁ«®, ®¤®вЁЇлҐ
®ЇҐа ¤л, Ґ®Ўе®¤Ё¬л ЇаҐ®Ўа §®ў Ёп вЁЇ®ў. ‘ дгЄжЁп¬Ё CTOD, DTOC,
DTOS ўл 㦥 § Є®¬л (б¬. Ї. 1.3). ’ҐЇҐам а бᬮваЁ¬ ЇаҐ®Ўа §®ў Ёп
"зЁб«® -> бва®Є " (дгЄжЁп Str) Ё "бва®Є -> зЁб«®" (дгЄжЁп Val).
ЏаЁ ўлў®¤Ґ Є®¬ ¤®© "?" зЁб«®ўле ўла ¦ҐЁ© Їа®Ёб室Ёв
ўв®¬ вЁзҐбЄ®Ґ ЇаҐ®Ўа §®ў ЁҐ "зЁб«® -> бва®Є ". ”гЄжЁЁ Transform()
(б¬. Ї. 1.11) Ё Str() ®бгйҐбвў«пов ҐЈ® б ®ЇаҐ¤Ґ«ҐЁҐ¬ ¤«Ёл бва®ЄЁ.
‚ дгЄжЁЁ Str(<ўлаN1>,<ўлаN2>,<ўлаN3>) Ї®б«Ґ¤ЁҐ 2 аЈг¬Ґв
Ґ ®Ўп§ ⥫мл, ЇҐаўл© - ЇаҐ¤бв ў«пҐв б ¬® ЇаҐ®Ўа §гҐ¬®Ґ зЁб«®;
<ўлаN2> § ¤ Ґв ¤«Ёг бва®ЄЁ (Ї® 㬮«з Ёо 10), <ўлаN3> - Є®«ЁзҐбвў®
§ Є®ў Ї®б«Ґ ¤ҐбпвЁз®© в®зЄЁ ў бва®Є®ў®¬ ЇаҐ¤бв ў«ҐЁЁ зЁб« (Ї®
㬮«з Ёо - 0). ЌҐ®Ўе®¤Ё¬®Ґ ®ЄагЈ«ҐЁҐ Їа®Ёб室Ёв ўв®¬ вЁзҐбЄЁ.
ЏаЁ¬Ґа 1.9. ’ॡгҐвбп а бЇ®«®¦Ёвм § ЇЁбЁ б®ваг¤ЁЄ®ў Ї®
®в¤Ґ« ¬ (бЁ¬ў®«м®Ґ Ї®«Ґ Otd), § ЇЁбЁ Є ¦¤®Ј® ®в¤Ґ« - Ї® а®бвг
б®ваг¤ЁЄ®ў (зЁб«®ў®Ґ Ї®«Ґ Rost, б вЁ¬Ґвал). ‘ нв®© 楫мо Їа®Ё¤ҐЄбЁа㥬
(Ё«Ё ®вб®авЁа㥬) Ў §г ¤ ле Ї® б®бв ў®¬г Є«озг. …Ј® § ЇЁбм
ў ўЁ¤Ґ "Otd + Rost" ҐЄ®а४в (а §лҐ вЁЇл Ї®«Ґ©). ‚®бЇ®«м§гҐ¬бп
§ ЇЁбмо Otd + Str(Rost,3).
”гЄжЁп Val(<ўлаC>) ў®§ўа й Ґв § 票Ґ вЁЇ N - Ёв®Ј
ЇаҐ®Ўа §®ў Ёп жЁда®ў®Ј® з « бва®ЄЁ <ўлаC>; ў б«гз Ґ, Ґб«Ё <ўлаC>
зЁ Ґвбп Ґ б жЁдал, Ґ б Їа®ЎҐ« Ё Ґ б® § Є "+" Ё«Ё "-",
дгЄжЁп Val() ў®§ўа й Ґв 0. Ќ ЇаЁ¬Ґа, Val("15.3 Є¬") ў®§ўа й Ґв
зЁб«® 15.3, Val("$1500") ў®§ўа й Ґв 0; ҐаҐ¤Є® жЁда®ўго з бвм
бва®ЄЁ ЇаЁе®¤Ёвбп ўл¤Ґ«пвм дгЄжЁҐ© Substr, зв®Ўл ЇҐаҐўҐбвЁ ў зЁб«®.
”гЄжЁп Asc(<ўлаC>) ў®§ўа й Ґв ASCII-Є®¤ ЇҐаў®Ј® бЁ¬ў®« <ўлаC>,
Chr(<ўлаN>), Їа®вЁў, ў®§ўа й Ґв бЁ¬ў®«, ASCII-Є®¤ Є®в®а®Ј®
§ ¤ ўла ¦ҐЁҐ¬ <ўлаN>. Ќ ЇаЁ¬Ґа, Є®¬ ¤ ? Chr (Asc("D")-3)
ўлў®¤Ёв « вЁбЄго ЎгЄўг "A" (Ї®б«Ґ¤®ў ⥫м®бвм Є®¤®ў ᮮ⢥вбвўгҐв
«д ўЁвг, Ї®§ЁжЁЁ ЎгЄў "A" Ё "D" а §пвбп 3).
”гЄжЁп Chr ЇаЁЈ®¤ Ё ¤«п ўл¤ зЁ §ўгЄ®ўле бЁЈ «®ў. Ќ ЇаЁ¬Ґа,
Є®¬ ¤ ? Chr(7) ўл¤ Ґв Єа вЄЁ© §ўгЄ®ў®© бЁЈ «, Є®¬ ¤
? Replicate (Chr(7), <ўлаN>) ¬®¤Ґ«ЁагҐв §г¬¬Ґа. — бв®вг Ё ¤«ЁвҐ«м®бвм
®¤Ё®з®Ј® бЁЈ « ў CLIPPER гбв ў«Ёў Ґв дгЄжЁп Tone (),
ў FOXPRO - Є®¬ ¤ Set Bell To. €е ЇҐаўл¬ Ї а ¬Ґв஬ пў«пҐвбп
з бв®в §ўгЄ (Ї® 㬮«з Ёо - 512), ўв®ал¬ - ¤«ЁвҐ«м®бвм (Ї®
㬮«з Ёо - 2 Ґ¤ЁЁжл ў 1/18 б). „Ё Ї §® з бв®в - 19 .. 10000 ЈҐаж.
‡ ¤ ЁҐ 1.6. ‡ ЇЁиЁвҐ ўла ¦ҐЁҐ ¤«п Ї®«г票п зЁб« 42.195 Ё§
бва®ЄЁ "ђ ббв®пЁҐ 42 Є¬ 195 ¬", в Є¦Ґ Ї®б«Ґ¤®ў ⥫м®бвм Є®¬ ¤
¤«п Ї®«г票п б Ї®¬®ймо ќ‚Њ §ўгЄ®ў®© Ј ¬¬л (з бв®вл §ўгЄ 262, 294,
330, 349, 392, 440, 494, 523).
1.7. ‚ў®¤ Ё ЇаЁбў Ёў ЁҐ § 票© ЇҐаҐ¬Ґл¬. Њ ббЁўл
‚л 㦥 ўЁ¤Ґ«Ё ЁбЇ®«м§®ў ЁҐ Є®¬ ¤л ACCEPT (Ї. 1.5) ¤«п ўў®¤
бва®Є-§ 票© бЁ¬ў®«мле ЇҐаҐ¬Ґле; ҐҐ а §ўҐагв п д®а¬ в Є®ў :
ACCEPT <Ґ®Ўп§ ⥫쮥 ўла ¦ҐЁҐ-Ї®¤бЄ §Є > TO <Ё¬п ЇҐаҐ¬Ґ®©>,
ЇаЁ¬Ґа: ACCEPT "‚ўҐ¤ЁвҐ Ё¬п д ©« " ’Ћ Name.
‚лзЁб«ҐЁп ЇаЁ®бв ў«Ёў овбп ¤® вҐе Ї®а, Ї®Є ўл Ґ ўўҐ¤ҐвҐ Ї®б«Ґ-
¤®ў ⥫м®бвм § Є®ў ЎҐ§ ўҐиЁе Є ўл祪 (¬ ЄбЁ¬г¬ 255 § Є®ў),
§ ўҐаиЁў ҐҐ ¦ вЁҐ¬ Enter. …б«Ё ба §г ¦ вм Enter, Ўг¤Ґв ўўҐ¤Ґ
Їгбв п бва®Є . Ђ «®ЈЁзго бвагЄвгаг Ё¬ҐҐв Є®¬ ¤ INPUT:
INPUT <Ґ®Ўп§ ⥫쮥 ўла ¦ҐЁҐ-Ї®¤бЄ §Є > TO <Ё¬п ЇҐаҐ¬Ґ®©>,
® ўў®¤Ёвбп § 票Ґ «оЎ®Ј® вЁЇ . ‚ ®ЎйҐ¬ б«гз Ґ Ї®б«Ґ ЇаЁ®бв ®ўЄЁ
ўл ЎЁа ҐвҐ ў л а ¦ Ґ Ё Ґ, Є®в®а®Ґ Ї® ¦ вЁЁ Enter ва б«ЁагҐвбп
Ё ўлзЁб«пҐвбп, ©¤Ґ®Ґ § 票Ґ ЇаЁбў Ёў Ґвбп ЇҐаҐ¬Ґ®©,
ЇаЁ¬Ґа: INPUT "‚ўҐ¤ЁвҐ Ё¬п д ©« " TO Name. ‚ ®в«ЁзЁҐ ®в Є®¬ ¤л
ACCEPT ўҐиЁҐ Є ўлзЄЁ ЇаЁ ўў®¤Ґ бва®Є-Є®бв в вॡговбп. ЏаҐ¤бв ўЁ¬,
зв® Ґ®Ўе®¤Ё¬® Ї®«®Ґ Ё¬п д ©« , ЇаЁзҐ¬ Їгвм Є д ©«г 㦥 еа Ёвбп
ў ЇҐаҐ¬Ґ®© Put; Ё¬п д ©« - Stud.dbf. ’®Ј¤ ¬ 㦮 Ўа вм
ўла ¦ҐЁҐ Put +"Stud.dbf" (Є®Є ⥠жЁп бва®Є) Ё ¦ вм Enter.
ЏаЁбў®Ёвм ЇҐаҐ¬Ґл¬ § зҐЁп ¬®¦® б Ї®¬®ймо Є®¬ ¤л
STORE <ўла ¦ҐЁҐ> TO <бЇЁб®Є Ё¬Ґ ЇҐаҐ¬Ґле Ё н«Ґ¬Ґв®ў ¬ ббЁў®ў>
(ЇаЁбў Ёў Ґвбп ®ЎйҐҐ § 票Ґ <ўла ¦ҐЁп>) Ё«Ё ҐбЄ®«мЄЁ¬Ё Є®¬ ¤ ¬Ё
ўЁ¤ <ЇҐаҐ¬Ґ п Ё«Ё н«Ґ¬Ґв ¬ ббЁў > = <ўла ¦ҐЁҐ>.
ќ«Ґ¬Ґвл ¬ ббЁў ¤®ЇгбЄ Ґвбп ЁбЇ®«м§®ў вм, в®«мЄ® Ґб«Ё ¬ ббЁў
Ўл« ®Ўкпў«Ґ, ЇаЁ¬Ґа ў ®ЇҐа в®аҐ
DECLARE <Ё¬п ¬ ббЁў > [<бЇЁб®Є а §¬Ґа®ў ¬ ббЁў >].
Џ® 㬮«з Ёо н«Ґ¬Ґвл ¬ ббЁў Ї®«гз ов § 票п NIL (ў CLIPPER) Ё«Ё
.F. (ў FOXPRO). …бвм Ё ¤агЈЁҐ ®ЇҐа в®ал ®Ўкпў«ҐЁп ¬ ббЁў®ў (б¬. Ј«.
4, 5). ‚ FOXPRO бгйҐбвўгов ®¤®- Ё ¤ўг¬ҐалҐ ¬ ббЁўл, ў п§лЄҐ CLIPPER
а §¬Ґа®бвм ¬ ббЁў Ґ ®Ја ЁзЁў Ґвбп. ЋЎ®§ 票Ґ¬ н«Ґ¬Ґв ¬ ббЁў
ў Є®¬ ¤ е пў«пҐвбп б«Ґ¤гой п § ЇЁбм:
<Ё¬п ¬ ббЁў > [ <бЇЁб®Є Ё¤ҐЄбле ўла ¦ҐЁ©>].
—Ёб«® Ё¤ҐЄбле ўла ¦ҐЁ© а ў® а §¬Ґа®бвЁ ¬ ббЁў ; ў FOXPRO
¤®Ї®«ЁвҐ«м® ЁбЇ®«м§гов д®а¬г <€¬п ¬ ббЁў > [<ЏаЁўҐ¤Ґл© Ё¤ҐЄб>],
Ј¤Ґ <ЏаЁўҐ¤Ґл© Ё¤ҐЄб> - нв® Ї®ап¤Є®ўл© ®¬Ґа н«Ґ¬Ґв ў Ї ¬пвЁ.
‚ FOXPRO Ё¬п ¬ ббЁў ¬®¦Ґв Ї®пў«пвмбп б«Ґў ®в § Є "=", зв® ®§ з Ґв
ЇаЁбў®ҐЁҐ ®¤®Ј® Ё в®Ј® ¦Ґ § зҐЁп ўбҐ¬ н«Ґ¬Ґв ¬ ¬ ббЁў , ЇаЁ¬Ґа
A = 0. ‚ п§лЄҐ CLIPPER ¤«п нв®Ј® ЁбЇ®«м§гов дгЄжЁо Afill (б¬. Ј«. 5).
ЏаЁ¬Ґа 1.10. DECLARE A[4,5] && ЋЎкпў«Ґ ¬ ваЁж а §¬Ґа®¬ 4е5
J = 1
A[J,5] = 0 && 0 ЇаЁбў®Ґ Ї®б«Ґ¤Ґ¬г н«Ґ¬Ґвг 1 бва®ЄЁ
A = 0 && ’®«мЄ® ў FOXPRO ! ЋЎг«ҐЁҐ ўбҐ© ¬ ваЁжл
‡ ¤ ЁҐ 1.7. ‘®бв ўм⥠Їа®Ја ¬¬г, ў Є®в®а®© Ї® ¦Ґ« Ёо Ї®«м§®ў ⥫п
ЇҐаҐ¬Ґ п L Ї®«гз Ґв § 票Ґ N Ё«Ё N+M, Ј¤Ґ N Ё M - ЇаҐ¤ў аЁвҐ«м®
§ ¤ лҐ § 票п, § ⥬ ўлў®¤Ёвбп § 票Ґ ўла ¦ҐЁп
L*(L-1)*(L-2).
1.8. ЌҐЄ®в®алҐ Є« ўЁилҐ дгЄжЁЁ
ЏаЁ ¦ вЁЁ Є« ўЁи ўла Ў влў овбп Є®¤л, §лў Ґ¬лҐ Inkey-
Є®¤ ¬Ё (ЇаЁ«®¦ҐЁҐ 4; Ё¬Ґовбп а §«ЁзЁп Inkey-Є®¤®ў ў п§лЄ е CLIPPER
Ё FOXPRO). Ќ ЇаЁ¬Ґа, Inkey-Є®¤ Є« ўЁиЁ F2 а ўҐ -1. Inkey-Є®¤л
§ ®бпвбп ў в Є §лў Ґ¬л© ЎгдҐа Є« ўЁ вгал (ЃЉ), § ⥬ а б室говбп
⥬Ё Ё«Ё Ёл¬Ё дгЄжЁп¬Ё Ё Є®¬ ¤ ¬Ё. Ќ ЇаЁ¬Ґа, Є®¬ ¤ ACCEPT (б¬.
Ї. 1.7) бзЁвлў Ґв ўбҐ Ё¬ҐойЁҐбп Є®¤л Ё§ ЃЉ ЇаЁ ¦ вЁЁ Є« ўЁиЁ
Enter, ЇаЁбў Ёў п ᮮ⢥вбвўго饥 § 票Ґ бЁ¬ў®«м®© ЇҐаҐ¬Ґ®©.
ЃҐ§ ¦ вЁп Є« ўЁи Inkey-Є®¤л бЁ¬ў®«®ў, ®Ўа §гойЁе ҐЄ®в®аго бва®Єг
<‚лаC>, ¬®¦® § ҐбвЁ ў ЃЉ Є®¬ ¤®© KEYBOARD <‚лаC> .
”гЄжЁп Inkey(<‚лаN>) ў®§ўа й Ґв ®зҐаҐ¤®© Є®¤, ў§пвл© Ё§ ЃЉ,
Є®в®ал© ®в нв®Ј® Є®¤ ®бў®Ў®¦¤ Ґвбп. …б«Ё ЃЉ Ўл« Їгбв, <‚лаN> ᥪг¤
®¦Ё¤ Ґвбп ¦ вЁҐ Є« ўЁиЁ, Є®¤ Є®в®а®© Ё ў®§ўа й Ґв Inkey(). …б«Ё ¦Ґ
§ нв® ўаҐ¬п ¦ вЁп Є« ўЁиЁ Ґ Ўг¤Ґв, Inkey() ў®§ўа й Ґв 0.
ЂаЈг¬Ґв <‚лаN> ¬®¦Ґв Ўлвм ®ЇгйҐ (®¦Ё¤ Ёп Ґв) Ё а ўҐ 0 (Ґ
®Ја ЁзҐ®Ґ ўаҐ¬ҐҐ¬ ®¦Ё¤ ЁҐ). ‚ FOXPRO дгЄжЁп ¬®¦Ґв Ё¬Ґвм 2-©
аЈг¬Ґв <‚лаC>, ЁбЇ®«м§гҐ¬л© ¤«п гЇа ў«ҐЁп Єгаб®а®¬ Ё ўлпў«ҐЁп
¦ вЁ© Є®ЇЄЁ ¬лиЁ. …б«Ё <‚лаC> = "S", Єгаб®а ўЄ«оз Ґвбп, Ґб«Ё
<‚лаC> = "H", ®вЄ«оз Ґвбп. —в®Ўл Є®ва®«Ёа®ў вм ¦ вЁп ¬лиЁ,
§ ЇЁблў ов <‚лаC> = "M", ЇаЁ н⮬ дгЄжЁп ў®§ўа й Ґв зЁб«® 151.
„®ЇгбвЁ¬л б®зҐв Ёп "MS","MH" (®Ў ўЁ¤ гЇа ў«пойЁе ў®§¤Ґ©бвўЁ©).
€бЇ®«м§®ў лҐ Є®¬ ¤®© Ё«Ё дгЄжЁҐ© Є®¤л Є« ўЁи г室пв Ё§ ЃЉ,
бвЁа овбп ў Ґ¬. Џ®б«Ґ¤Ё© ЁбЇ®«м§®ў л© Є®¤ ¤®бвгЇҐ, Ўг¤гзЁ г¦Ґ
бвҐавл¬ ў ЎгдҐаҐ. „«п ҐЈ® б®еа ҐЁп ЁбЇ®«м§гҐвбп в Є §лў Ґ¬ п
Є« ўЁи п п祩Є . Ћ еа Ёв Є®¤, Ї®Є ® Ґ Ўг¤Ґв § ¬ҐйҐ б«Ґ¤гойЁ¬
"ўлв®«Єгвл¬" Ё§ ЃЉ Є®¤®¬. Љ®¤ Є« ўЁи®© п祩ЄЁ ў®§ўа й Ґв дгЄжЁп
Lastkey(). ”гЄжЁп Inkey, ¦¤гй п ¦ вЁп Є« ўЁиЁ, ба §г ¦Ґ
"ўлв «ЄЁў Ґв" Ї®бвгЇЁўиЁ© ў ЃЉ Є®¤ ў Є« ўЁиго п祩Єг.
ЏаЁ¬Ґа 1.11. ђ бᬮваЁ¬ да Ј¬Ґв Їа®Ја ¬¬л, б®бв ў«Ґл© ¤«п
®ЇҐа вЁў®Ј® ўлЎ®а ®¤®Ј® Ё§ ¤ўге ў аЁ в®ў ҐҐ Їа®¤®«¦ҐЁп. Љ
¬®¬Ґвг ўлЎ®а ЃЉ Їгбв. Ќ ¦ вЁҐ F2 ®§ з Ґв ўлЎ®а 2-Ј® ў аЁ в .
ЏҐаў п дгЄжЁп Iif г¦ ¤«п ўлў®¤ б®®ЎйҐЁп ® ўлЎа ®¬ ў аЁ вҐ,
ўв®а п § з Ґв ᮮ⢥вбвўго饥 § 票Ґ A:
? "Ќ ¦¬ЁвҐ Є« ўЁиг F2, Ґб«Ё вॡгҐвбп ў аЁ в 2"
? Iif (Inkey(5) # -1, "‚ аЁ в 1, A=5", "‚ аЁ в 2, A=10")
A = Iif (Inkey() # -1, 5, 10)
”а Ј¬Ґв ®иЁЎ®зҐ, ЁЎ® ў® 2-© дгЄжЁЁ Iif § 票Ґ Inkey()
ўбҐЈ¤ 0: Є ¬®¬Ґвг ҐҐ ўлЇ®«ҐЁп ЃЉ Їгбв. Џа ўЁ«м п § ЇЁбм:
A = Iif (Lastkey() # -1, 5, 10).
‚ CLIPPER в Є¦Ґ Ё¬ҐҐвбп дгЄжЁп Nextkey(), Є®в®а п ў®§ўа й Ґв
®зҐаҐ¤®© Є®¤ Є« ўЁиЁ, Ґ бвЁа п ҐЈ® ў ЎгдҐаҐ. ”гЄжЁп Inkey()
㤮Ў ⥬, зв® ¤ Ґв § ¤Ґа¦Єг, Ґ®Ўе®¤Ё¬го ¤«п ЇаЁпвЁп аҐиҐЁп.
‚ ў ਠ⥠ЎҐ§ § ¤Ґа¦ЄЁ ® ¬®¦Ґв ЇаЁ¬Ґпвмбп ¤«п «Ё§ ᮤҐа¦ Ёп
ЃЉ.
ЏаЁ¬Ґа 1.12. €§гзЁвҐ ЇаЁ¬ҐаҐ ЁбЇ®«м§®ў ЁҐ Є« ўЁиле дгЄжЁ©.
KEYBOARD "‡‘Ѓ" && Љ®¬ ¤ KEYBOARD § ®бЁв Є®¤л бва®ЄЁ ў ЃЉ
? Chr(Inkey()) && ‚лў®¤Ёвбп бЁ¬ў®« "‡"
? Chr(Nextkey()), Chr(Lastkey()) && ‚лў®¤пвбп бЁ¬ў®«л "‘‡"
? Chr(Inkey()), Chr(Nextkey()), Chr(Lastkey()) && ‚лў®¤Ёвбп "‘Ѓ‘"
”гЄжЁп Readkey() ў®§ўа й Ґв Є®¤ Є« ўЁиЁ, ¦ в®© ¤«п ўл室
Ё§ Є®¬ ¤л । ЄвЁа®ў Ёп READ. …б«Ё Ї®«м§®ў вҐ«м Ґ гбЇҐ« Ё§¬ҐЁвм
¤ лҐ, ў®§ўа й Ґвбп Inkey-Є®¤, Ґб«Ё ¤ лҐ Ё§¬ҐҐл - 㢥«ЁзҐл©
256 Inkey-Є®¤.
‡ ¤ ЁҐ 1.8. ‡ ЇЁиЁвҐ Їа®Ја ¬¬г, Є®в®а п ўлў®¤Ёв Їа®ЇЁбл¬Ё
ЎгЄў ¬Ё бва®Єг S = "Be or not to be?", Ґб«Ё ў вҐзҐЁҐ 10 ᥪ㤠б
¬®¬Ґв Ї®пў«ҐЁп нЄа Ґ б®®ЎйҐЁп "„«п ўлў®¤ Їа®ЇЁбл¬Ё ¦¬ЁвҐ
F5" ¦ в Є« ўЁи F5 (Inkey-Є®¤ -4), Ё зҐ бва®Є S ўлў®¤Ёвбп ў
Ёб室®¬ ўЁ¤Ґ.
1.9. ЋЇҐа жЁп ¬ Єа®Ї®¤бв ®ўЄЁ
ЌҐаҐ¤Є® ў®§ЁЄ Ґв Ґ®Ўе®¤Ё¬®бвм ᤥ« вм з бвмо ⥪бв Ё«Ё
Є®¬ ¤л Ї®б«Ґ¤®ў ⥫м®бвм бЁ¬ў®«®ў, Є®в®а п ®ЇаҐ¤Ґ«пҐвбп ў б ¬®©
Їа®Ја ¬¬Ґ Ё ¬®¦Ґв ў амЁа®ў вмбп Є Є § 票Ґ бЁ¬ў®«м®© ЇҐаҐ¬Ґ®©.
‚ нвЁе б«гз пе Є бЁ¬ў®«м®© ЇҐаҐ¬Ґ®©, § Ё¬ о饩 ᮮ⢥вбвўго饥
¬Ґбв® ў ⥪бвҐ, Є®¬ ¤Ґ, ЇаЁ¬Ґпов ®ЇҐа жЁо ¬ Єа®Ї®¤бв ®ўЄЁ,
Ё§®Ўа ¦ Ґ¬го § Є®¬ &, ЇаЁ¬Ґа &A.
ЏаЁ¬Ґа 1.13. Њ Єа®Ї®¤бв ®ўЄ ў ⥪бвҐ.
A = "„€Ќњ"
? "&A-&A-&A € ’ђЋ‰ЉЂ ..." && ‚лў®¤Ёвбп "„€Ќњ-„€Ќњ-„€Ќњ € ’ђЋ‰ЉЂ ..."
…б«Ё Ё¬п ¬ Єа®ЇҐаҐ¬Ґ®© б®бҐ¤бвўгҐв б бЁ¬ў®«®¬, ¤®ЇгбвЁ¬л¬ ў
Ё¬Ґ е, Ґ®Ўе®¤Ё¬ ¬ Єа®®Ја ЁзЁвҐ«м - в®зЄ бЇа ў ®в Ё¬ҐЁ
¬ Єа®ЇҐаҐ¬Ґ®©. …б«Ё Ї® ⥪бвг Ё¬Ґ® §¤Ґбм Ё¤Ґв в®зЄ , б«Ґ¤гҐв
§ ЇЁблў вм 2 в®зЄЁ. — йҐ ўбҐЈ® Ё¬п ¬ Єа®ЇҐаҐ¬Ґ®© ®Ја ЁзҐ® Їа®ЎҐ«®¬.
Њ Єа®Ї®¤бв ®ўЄЁ аЈг¬Ґв®ў Є®¬ ¤. ЂаЈг¬Ґвл Є®¬ ¤ (в Є¦Ґ Ё
Є®¬ ¤л 楫ЁЄ®¬ - ў FOXPRO) ¬®¦® § ¤ ў вм зҐаҐ§ ¬ Єа®Ї®¤бв ®ўЄг,
ЇаЁ¬Ґа: ACCEPT "‚ўҐ¤ЁвҐ Ё¬п г¤ «пҐ¬®Ј® д ©« " TO f; ERASE &f.
‚ б«гз Ґ Ї®¤бв ®ўЄЁ Ё¬ҐЁ д ©« Ё«Ё Ї®«п 㤮ЎҐҐ ЁбЇ®«м§®ў вм
а биЁаҐлҐ ўла ¦ҐЁп - бЁ¬ў®«млҐ ўла ¦ҐЁп, § Є«озҐлҐ ў бЄ®ЎЄЁ.
ќв®в б«гз © Ї®¤бв ®ўЄЁ Ґ вॡгҐв § ЇЁбЁ § Є &, ЇаЁ¬Ґа:
ERASE (Name +".dbf"), Ј¤Ґ ЇҐаҐ¬Ґ п Name ᮤҐа¦Ёв Ё¬п ЎҐ§ а биЁаҐЁп.
Њ Єа®Ї®¤бв ®ўЄЁ ў ўла ¦ҐЁпе. …б«Ё ¬ Єа®Ї®¤бв ®ўЄ бв®Ёв ў
ўла ¦ҐЁЁ Ё«Ё ¬Ґб⥠ўла ¦ҐЁп, в® б з « Їа®Ёб室Ёв Ї®¤бв ®ўЄ
⥪бв , § ⥬ Є®¬ЇЁ«пжЁп ўбҐЈ® ўла ¦ҐЁп ¬ Єа®Є®¬ЇЁ«пв®а®¬.
ЏаЁ¬Ґа 1.14. Ќ § з Ґвбп ¤ в (®в®бЁвҐ«м п) ўлЇ®«ҐЁп а Ў®вл;
Ґб«Ё нв® ў®бЄаҐбҐмҐ, ба®Є ўлЇ®«ҐЁп ЇҐаҐ®бпв Ї®Ґ¤Ґ«мЁЄ:
ACCEPT "“Є ¦ЁвҐ ¤ вг ўлЇ®«ҐЁп ў д®а¬Ґ Date()+<—Ёб«®>" TO D
? "ђ Ў®вг ўлЇ®«Ёвм Є", Iif(Dow(&D)= 1, &D + 1, &D) .
‚ ЇҐаҐ¬Ґго D § ®бпв ⥪бв, ЇаЁ¬Ґа "Date()+7". ќв®в ⥪бв
Ї®¤бв ў«пҐвбп ў дгЄжЁо Iif Ё ® Є®¬ЇЁ«ЁагҐвбп. ‡ ⥬ Є®¬ ¤
ўлў®¤ ўлЇ®«пҐвбп.
Њ Єа®Ї®¤бв ®ўЄ®© ¬®¦® § ¤ вм Ё¬п ¬ ббЁў , ®Ў®§ 票Ґ
Є®¬Ї®Ґв ¬ ббЁў (ў ⮬ зЁб«Ґ - ў п§лЄҐ CLIPPER - Ї®¤¬ ббЁў ).
Ќ ЇаЁ¬Ґа, Ї®б«Ґ Є®¬ ¤ B ="A"; C="A[1,5]" ®Ў®§ 票п &B[1,5],
&C Ё A[1,5] а ў®бЁ«мл.
‚«®¦ҐЁп ¬ Єа®Ї®¤бв ®ў®Є. …б«Ё Ї®б«Ґ Ї®¤бв ®ўЄЁ ўлпбпҐвбп,
зв® ўбв ў«Ґл© гз бв®Є ᮤҐа¦Ёв § Є &, Їа®Ё§ў®¤Ёвбп ®зҐаҐ¤ п
Ї®¤бв ®ўЄ Ё в.¤. Љ®Ј¤ ўбҐ § ЄЁ & "Ё§¦Ёвл", Їа®Ё§ў®¤Ёвбп
¬ Єа®Є®¬ЇЁ«пжЁп, Ґб«Ё ЇҐаў п ¬ Єа®Ї®¤бв ®ўЄ 室Ё« бм ў ўла ¦ҐЁЁ
( ¬Ґб⥠ўла ¦ҐЁп). „«Ё Ї®¤бв ў«пҐ¬®Ј® ⥪бв Ґ ¤®«¦
ЇаҐўли вм 255 (FOXPRO) Ё«Ё 254 (CLIPPER) бЁ¬ў®«®ў.
ЏаЁ¬Ґа 1.15. „ўгЄа в п ¬ Єа®Ї®¤бв ®ўЄ ў ўла ¦ҐЁЁ Ё ⥪бвҐ.
n = "Date()"
m = "&n + 7"
? &m && ‚лў®¤Ёвбп ⥪гй п ¤ в , 㢥«ЁзҐ п 7
? "&m" && Џ®¤бв ®ўЄ ў ⥪бвҐ; ўлў®¤Ёвбп ⥪бв "Date()+7"
‚ FOXPRO Ё¬ҐҐвбп дгЄжЁп Evaluate(<‚лаC>), Є®в®а п ў®§ўа й Ґв
§ 票Ґ ўла ¦ҐЁп, ⥪бв <‚лаC> Ї®б«Ґ¤ҐЈ® § ЇЁб ҐҐ аЈг¬Ґв®¬. ‚
ЇаЁ¬ҐаҐ 1.14 дгЄжЁо Iif ¬®¦® § ¬ҐЁвм б«Ґ¤го饩:
Iif(Evaluate(D)= 1, Evaluate(D) + 1, Evaluate(D) ).
”гЄжЁп ўлЇ®«пҐвбп Ўлбв॥ ¬ Єа®Ї®¤бв ®ўЄЁ.
‚ CLIPPER ¬ Єа®Ї®¤бв ®ўЄ ЇаЁ¬ҐЁ¬ Ґ в®«мЄ® Є ЇҐаҐ¬Ґл¬,
® Ё Є бЁ¬ў®«мл¬ ўла ¦ҐЁп¬ (¬ Єа®ўла ¦ҐЁп¬), § Є«озҐлл¬ ў бЄ®ЎЄЁ.
Џ®¤а®Ў® ¬ Єа®Ї®¤бв ®ўЄЁ ў п§лЄҐ CLIPPER а бб¬ ваЁў овбп ў Ј«. 4.
‡ ¤ ЁҐ 1.9. ‡ ЇЁиЁвҐ Їа®Ја ¬¬г ўлў®¤ ®¤®Ј® (гЄ § ®Ј®
Ї®«м§®ў ⥫Ґ¬) ў аЁ в Ё§ б«Ґ¤гойЁе:
1. "‘«г¦Ё« ѓ ўаЁ« <е«ҐЎ®ЇҐЄ®¬>, ѓ ўаЁ« <Ўг«Єг ЁбЇҐЄ «>",
2. "‘«г¦Ё« ѓ ўаЁ« <§ ЇаЁ« ўЄ®¬>, ѓ ўаЁ« <д«Ґ©в㠯த ў «>,
3. "‘«г¦Ё« ѓ ўаЁ« <Ї®зв «м®®¬>, ѓ ўаЁ« <ЇЁбм¬ а §®бЁ«>,
ўбв ў«пп ў ®б®ўг ⥪бв ў амЁагҐ¬лҐ з бвЁ (¤ л ў "гЈ®«Є е" < >).
ЋЎк⥠¤ўг¬Ґал© ¬ ббЁў: DECLARE A[3,2] ¤«п Ї®¬ҐйҐЁп ў ҐЈ®
ў аЁа㥬ле ⥪бв®ўле § 票©.
1.10. “Їа ў«пойЁҐ бвагЄвгал. ЋЇҐа в®ал гЇа ў«ҐЁп
‚ ®в«ЁзЁҐ ®в дгЄжЁЁ Iif ®ЇҐа в®а IF, ॠ«Ё§гп ўҐвў«ҐЁҐ,
ҐЇ®б।б⢥® ЁбЇ®«м§гҐв Є®¬ ¤л ў § ЇЁбЁ ўҐвўҐ©:
IF <ўлаL> && “б«®ўЁҐ ўлЎ®а ўҐвўҐ©
<Є®¬ ¤л> && ‚Ґвўм ¤«п <ўлаL> =.T.
ELSE
<Є®¬ ¤л> && ‚Ґвўм ¤«п <ўлаL> =.F.
ENDIF
ELSE Ё Ё¦Ґ«Ґ¦ йго ўҐвўм ®ЇгбЄ ов, Ґб«Ё ¤Ґ©бвўЁп ЇаҐ¤гᬮваҐл «Ёим
¤«п б«гз п <ўлаL>=.T. Џ®¤®Ў п бвагЄвга ¬®¦Ґв ўе®¤Ёвм ў б®бв ў
«оЎ®© Ё§ ўҐвўҐ©, в.Ґ. ¤®ЇгбЄ Ґвбп ў«®¦ҐЁҐ ®ЇҐа в®а®ў IF. ЏаЁ н⮬
¤® ўЁ¬ вҐ«м® б«Ґ¤Ёвм § ⥬, зв®Ўл ўгв२Ґ бвагЄвгал IF Ўл«Ё
§ Єалвл (®Ја ЁзҐл) § ЇЁбмо ENDIF ¤® н«Ґ¬Ґв®ў ELSE Ё«Ё ENDIF
ўҐиҐ© бвагЄвгал. ‚®®ЎйҐ, «оЎ п «Ј®аЁв¬ЁзҐбЄ п бвагЄвга ¬®¦Ґв Ўлвм
ў«®¦Ґ®© ў ¤агЈго «Ј®аЁв¬ЁзҐбЄго бвагЄвгаг.
‘вагЄвга DO CASE ЇаҐ¤бв ў«пҐв ўҐвў«ҐЁҐ б ҐбЄ®«мЄЁ¬Ё ўҐвўп¬Ё,
¤«п ўлЎ®а Є ¦¤®© Ё§ Ёе ЇаҐ¤гб¬ ваЁў Ґвбп ®в¤Ґ«м®Ґ гб«®ўЁҐ:
DO CASE && ЋвЄалвЁҐ бвагЄвгал
CASE <ўлаL1> && “б«®ўЁҐ ўлЎ®а 1-© ўҐвўЁ
<Є®¬ ¤л> && ‚Ґвўм ¤«п <ўлаL1> = .T.
CASE <ўлаL2> && “б«®ўЁҐ ўлЎ®а 2-© ўҐвўЁ
<Є®¬ ¤л> && ‚Ґвўм ¤«п <ўлаL2> = .T.
. . .
OTHERWISE && ЌҐ®Ўп§ ⥫млҐ
<Є®¬ ¤л> && н«Ґ¬Ґвл
ENDCASE && ѓа Ёж бвагЄвгал
ЌҐ®Ўп§ ⥫мго ўҐвўм Ё¦Ґ OTHERWISE ЁбЇ®«м§гов ¤«п ¤Ґ©бвўЁ©,
Є®в®алҐ ўлЇ®«повбп ЇаЁ «®¦®бвЁ ўбҐе гб«®ўЁ© <ўлаL1>, <ўлаL2>,... .
‚ᥣ¤ ўлЇ®«пҐвбп «Ёим ®¤ ўҐвўм (ЇҐаў п, ¤«п Є®в®а®© <ўлаL>=.T.)
ЏаЁ¬Ґа 1.16. R - Ґ¦Ґбгв®зл© а б室 н«ҐЄва®нҐаЈЁЁ ў ҐЄ®в®а®¬
ҐЇаҐалў®¬ Їа®Ё§ў®¤б⢥; ©¤Ґ¬ б㬬 ал© ҐҐ а б室 Sum ў вҐзҐЁҐ
⥪г饣® ¬Ґбпж (ҐЈ® ®¬Ґа ЇаҐ¤бв ў«Ґ ЇҐаҐ¬Ґ®© Mes).
Mes = Month (Date()) && ‚뤥«ҐЁҐ ®¬Ґа ¬Ґбпж Ё§ ⥪.¤ вл
DO CASE
CASE Inlist(Mes, 1,3,5,7,8,10,12) && …б«Ё 31 ¤Ґм
Sum = 31 * R
CASE Inlist(Mes, 4,6,9,11) && …б«Ё 30 ¤Ґ©
Sum = 30 * R
CASE Mes = 2 && Ћб®Ўл© б«гз © - дҐўа «м
. . . && „Ґ©бвўЁп ¤«п дҐўа «п
ENDCASE
? Str(Mes,2) + "-© ¬Ґбпж. ‘㬬 ал© а б室:", Sum
Ќ Ї®¬Ё Ґ¬, зв® дгЄжЁп Inlist() ®ЇаҐ¤Ґ«Ґ «Ёим ў FOXPRO; ў
п§лЄҐ CLIPPER § ЇЁбм гб«®ўЁ© Ўг¤Ґв Ў®«ҐҐ Ја®¬®§¤Є . ‡ ЇЁбм ¤Ґ©бвўЁ©
¤«п дҐўа «п ®бв ў«пҐ¬ гᬮв२Ґ зЁв ⥫п, Є®в®ал© ¬®¦Ґв:
) Їа®ўҐаЁвм Ј®¤ ўЁб®Є®б®бвм, зв®Ўл ©вЁ зЁб«® ¤Ґ© ў дҐўа «Ґ;
Ў) б нв®© ¦Ґ 楫мо ©вЁ а §®бвм ¤ в {03/01/<⥪.Ј®¤>} - {02/01/
<⥪.Ј®¤>}, ЇаҐ¤ў аЁвҐ«м® дгЄжЁҐ© Year() ®ЇаҐ¤Ґ«Ёў <⥪.Ј®¤>.
‘вагЄвга жЁЄ« б ЇаҐ¤гб«®ўЁҐ¬ Ё¬ҐҐв б«Ґ¤гойЁ© ўЁ¤:
DO WHILE <ўлаL> && ‡ Ј®«®ў®Є жЁЄ« б гб«®ўЁҐ¬ ўе®¤ ў жЁЄ«
<Є®¬ ¤л, ў зЁб«Ґ Є®в®але && ’Ґ«® жЁЄ« , в.Ґ.
¬®¦Ґв Ўлвм EXIT - ўл室 Ё§ жЁЄ« && б®ў®ЄгЇ®бвм Є®¬ ¤,
Ё LOOP - ЇҐаҐе®¤ Є б«Ґ¤го饬г && Ї®ўв®а塞ле ў жЁЄ«Ґ
Ї®ўв®аҐЁо ¤Ґ©бвўЁ© ⥫ жЁЄ« >
ENDDO && ѓа Ёж бвагЄвгал
Џ®¤а §г¬Ґў Ґвбп, зв® ў <ўлаL> ўе®¤пв ЇҐаҐ¬ҐлҐ, Ё§¬ҐпойЁҐбп
ў жЁЄ«Ґ, ўб«Ґ¤бвўЁҐ 祣® ®® бв ®ўЁвбп «®¦л¬ Ё Їа®Ёб室Ёв ўл室
Ё§ жЁЄ« , ®¤ Є® ¤®ЇгбвЁ¬ Ё ў аЁ в § Ј®«®ўЄ жЁЄ« DO WHILE .T.,
ЇаЁ Є®в®а®¬ гЇа ў«ҐЁҐ ®Є®з ЁҐ¬ жЁЄ« 室Ёвбп ў ҐЈ® ⥫Ґ:
IF <ўлаL> && “б«®ўЁҐ ўл室 Ё§ жЁЄ«
EXIT && Љ®¬ ¤ ўл室 Ё§ жЁЄ«
ENDIF
ЏаЁ¬Ґа 1.17. ‚ ¬ ббЁўҐ Vir еа пвбп ¤ лҐ ® ¤Ґў®© ўла Ў®вЄҐ
Їа®¤гЄжЁп, зЁ п б 1 зЁб« ⥪г饣® ¬Ґбпж ; ©¤Ґ¬ б㬬 аго
ўла Ў®вЄг Sum § ўбҐ ЇаҐ¤иҐбвўгойЁҐ ¤Ё ¬Ґбпж .
Tek_den = Day(Date()) && ЋЇаҐ¤Ґ«ҐЁҐ ®¬Ґа ⥪г饣® ¤п
Den = 1
Sum = 0
DO WHILE Den < Tek_den
Sum = Sum + Vir[Den]
Den = Den + 1
ENDDO
? "‘㬬 а п ўла Ў®вЄ Їа®¤гЄжЁЁ § ", Tek_den-1, " ¤Ґ©:", Sum
„ л© ЇаЁ¬Ґа Ї®Є §лў Ґв ®б®ЎҐ®бвм жЁЄ« б ЇаҐ¤гб«®ўЁҐ¬: ҐЈ®
⥫® ¬®¦Ґв Ґ ўлЇ®«пвмбп Ё а §г - § ЇгбвЁвҐ нвг Їа®Ја ¬¬г ЇҐаў®Ј®
зЁб« . —в®Ўл ўлЇ®«Ёвм ЇаЁ¬Ґа ќ‚Њ,зЁв вҐ«м ¤®«¦Ґ ®ЇЁб вм ¬ ббЁў
Vir Ё ўўҐбвЁ ў жЁЄ«Ґ ў®®Ўа ¦ Ґ¬лҐ § зҐЁп ¤Ґў®© ўла Ў®вЄЁ.
–ЁЄ«л б Ї а ¬Ґв஬ ў FOXPRO Ё CLIPPER ¬®¦® § ЇЁб вм Ё¤ҐвЁз®:
FOR <Ї а ¬Ґва жЁЄ« > = <ўлаN1> TO <ўлаN2> STEP <ўлаN3>
<⥫® жЁЄ« >
ENDFOR && ѓа Ёж бвагЄвгал
ќ«Ґ¬Ґв <ўлаN1> § ¤ Ґв з «м®Ґ § 票Ґ Ї а ¬Ґва , <ўлаN2> -
ўҐаеоо Ја Ёжг ҐЈ® § 票©, Ґ®Ўп§ ⥫млҐ н«Ґ¬Ґвл STEP <ўлаN3>
§ ¤ ов и Ј ЇаЁа йҐЁп Ї а ¬Ґва (Ї® 㬮«з Ёо а ўҐ 1). ‚ ⥫Ґ жЁЄ«
в Є¦Ґ ¬®Јгв Ўлвм Є®¬ ¤л LOOP, EXIT. ‚ п§лЄҐ CLIPPER Ја ЁжҐ© жЁЄ«
б Ї а ¬Ґв஬ ¬®¦Ґв Ўлвм NEXT, Є Є ў п§лЄҐ ЃҐ©бЁЄ.
ЏаЁ¬Ґа 1.18. Ќ ©¤Ґ¬ бва®Єг ¬ ваЁжл A, Ё¬Ґо饩 а §¬Ґа 5е4, ў
Є®в®а®© ¬ ЄбЁ¬ «Ґ н«Ґ¬Ґв ўв®а®Ј® бв®«Ўж , Ё ўлўҐ¤Ґ¬ ҐҐ ᮤҐа¦Ё¬®Ґ:
J = 1
FOR I = 2 TO 5
IF A[I,2] > A[J,2] && ’ Ґ « ®
J = I &&
ENDIF && ж Ё Є «
ENDFOR
? A[J,1], A[J,2], A[J,3], A[J,4]
CANCEL
ЏаҐ¤Ї®« Ј Ґвбп, зв® ў з «Ґ Їа®Ја ¬¬л ¬ ббЁў A ®ЇЁб Ё ҐЈ®
н«Ґ¬Ґвл ®ЇаҐ¤Ґ«Ґл. ЌЁ¦Ґ ЇаЁў®¤Ёвбп ҐйҐ ®¤Ё ў аЁ в ⥫ жЁЄ« :
J = Iif(A[I,2] > A[J,2], I, J) && €бЇ®«м§гҐ¬ Iif ¤«п Єа вЄ®бвЁ.
…б«Ё § Є ЇаЁа 饨п <ўлаN3> Ґ б®Ј« б®ў б Ї®«®¦ҐЁҐ¬ Ја Ёж,
в.Ґ. Їа®вЁў®Ї®«®¦Ґ § Єг <ўлаN2> - <ўлаN1>, жЁЄ« Ё а §г Ґ
ўлЇ®«Ёвбп. •®вп и Ј ЇаЁа йҐЁп Ї а ¬Ґва ¬®¦Ґв Ўлвм ¤а®Ўл¬ Ё
®ваЁж ⥫мл¬, нвЁ ў®§¬®¦®бвЁ б«Ґ¤гҐв ЁбЇ®«м§®ў вм ®бв®а®¦®. Ќ ЇаЁ¬Ґа,
⥫® жЁЄ« б § Ј®«®ўЄ®¬ FOR J = 0.1 TO 2 STEP 0.1 Ўг¤Ґв ўлЇ®«Ґ®
19, Ґ 20 а § (Їа®ўҐаҐ® Їа ЄвЁЄҐ) Ё§-§ Ї®«®¦ЁвҐ«м®© Ї®ЈаҐи®бвЁ
§ 票п J. “ўҐ«ЁзЁ¬ Ја Ёжг Ї®«-и Ј , ᤥ« ў ҐҐ 2.05,
Ё ⥬ б ¬л¬ Ё§ЎҐ¦Ё¬ ў«ЁпЁп Ї®ЈаҐи®бвЁ: жЁЄ« ўлЇ®«Ёвбп 20 а §.
„«п ва б«пв®а п§лЄ CLIPPER Ја Ёжл бвагЄвга ў§ Ё¬®
Ґа §«ЁзЁ¬л, ЁЎ® «Ё§Ёаговбп «Ёим 3 ЇҐаўлҐ ЎгЄўл: E,N,D. Џ®н⮬г
«оЎ п Ё§ Ја Ёж ¬®¦Ґв Ўлвм § ЇЁб Є Є б«®ў® END, ॠЄжЁп
ва б«пв®а Їа®ЇгбЄ Ја Ёжл ў«®¦Ґ®© бвагЄвгал бў®Ґ®Ўа § :
Ја Ёж ўҐиҐ© бвагЄвгал Є Є Ўл бв ®ўЁвбп Ја ЁжҐ© ў«®¦Ґ®©
бвагЄвгал Ё б®®Ўй Ґвбп ® ⮬, зв® Ґ § Єалв ў Ґ и п п бвагЄвга .
‚ Ј«. 12 ¤®Ї®«ЁвҐ«м® а бб¬ ваЁў Ґвбп ЁбЇ®«м§гҐ¬ п ў CLIPPER
бвагЄвга BEGIN SEQUENCE ... END .
‡ ¤ ЁҐ 1.10. ‡ ЇЁиЁвҐ § ®ў® Їа®Ја ¬¬г ўлў®¤ §ўгЄ®ў®© Ј ¬¬л
(§ ¤ ЁҐ 1.6), ЁбЇ®«м§гп ¬ ббЁў ¤«п § 票© з бв®в §ўгЄ Ё
®ЇҐа в®а жЁЄ« б Ї а ¬Ґв஬. ‡ ЇЁиЁвҐ в Є¦Ґ § ®ў® Їа®Ја ¬¬г ЇаЁ¬Ґа
1.17, ЁбЇ®«м§гп жЁЄ« б Ї а ¬Ґв஬ ў§ ¬Ґ жЁЄ« б ЇаҐ¤гб«®ўЁҐ¬ Ё Ґ
§ Ўлў п ®Ў ®б®ЎҐ®© ⥪г饩 ¤ ⥠- ЇҐаў®Ґ зЁб«® ¬Ґбпж .
1.11. Ѓ«®з п бвагЄвга Їа®Ја ¬¬
‚ Ї. 1.1 ўл г§ «Ё Їа ўЁ« § ЇЁбЁ, ў Ї. 1.5 гўЁ¤Ґ«Ё ЇаЁ¬Ґа
ЇаЁ¬ҐҐЁп Ў«®Є , §лў Ґ¬®Ј® дгЄжЁҐ© Ї®«м§®ў вҐ«п ў ®в«ЁзЁҐ ®в
дгЄжЁ© бЁб⥬ле. ЋЎлзл¬ ®Ўа 饨Ґ¬ Є дгЄжЁЁ пў«пҐвбп § ЇЁбм
<€¬п дгЄжЁЁ> ( <‘ЇЁб®Є д ЄвЁзҐбЄЁе Ї а ¬Ґва®ў> ),
Є®в®а п ¬®¦Ґв ўе®¤Ёвм ў ўла ¦ҐЁп. „ ¦Ґ Ґб«Ё дгЄжЁп Ґ Ё¬ҐҐв
Ї а ¬Ґва®ў, бЄ®ЎЄЁ ®Ўп§ ⥫мл, ЇаЁ¬Ґа Fi ().
Џ® ¬Ґбвг § ЇЁбЁ Ў«®ЄЁ, в.Ґ. дгЄжЁЁ Ё Їа®жҐ¤гал, ¬®¦® а §¤Ґ«Ёвм
ўгв२Ґ Ё ўҐиЁҐ. ‚гв२Ґ Ў«®ЄЁ § ЇЁблў овбп ў ®¤®¬
Їа®Ја ¬¬®¬ д ©«Ґ ( .PRG-д ©«Ґ) б ЁбЇ®«м§гойЁ¬Ё Ёе Ў«®Є ¬Ё,
ўҐиЁҐ - ў ®в¤Ґ«м®¬ д ©«Ґ. ‚ ЇаЁ¬ҐаҐ 1.8 ЁбЇ®«м§®ў ўгваҐпп
дгЄжЁп; ҐҐ § Ј®«®ў®Є зЁ Ґвбп б«®ў®¬ FUNCTION. ‡ Ј®«®ў®Є ®зҐаҐ¤®Ј®
Ў«®Є а бб¬ ваЁў Ґвбп Є Є Ё¦пп Ја Ёж ⥪б⠯।л¤г饣® Ў«®Є .
‚гваҐпп Їа®жҐ¤га б Ў¦ Ґвбп § Ј®«®ўЄ®¬ (ЇҐаў п ҐҐ бва®Є )
PROCEDURE <Ё¬п Їа®жҐ¤гал>
Ё Ї® бгвЁ ®в«Ёз Ґвбп ®в ўгв॥© дгЄжЁЁ ⥬, зв® г ҐҐ Ґв
१г«мв в , Є®в®ал© Ўл ®Ў®§ з «бп ҐҐ Ё¬ҐҐ¬; ў Ґ© ®ЇҐа в®а
ў®§ўа в RETURN (Ї.1.1) «ЁЎ® Ґ § ЇЁблў Ґвбп, «ЁЎ® ў Ґ¬ ®вбгвбвўгҐв
ўла ¦ҐЁҐ. ЋЎа 饨Ґ¬ Є Їа®жҐ¤гॠпҐвбп Є®¬ ¤ ўл§®ў Їа®жҐ¤гал
DO <€¬п Їа®жҐ¤гал> WITH <‘ЇЁб®Є д ЄвЁзҐбЄЁе Ї а ¬Ґва®ў> .
‚Їа®зҐ¬, в Є ¦Ґ ¬®¦® ®Ўа й вмбп Ё Є дгЄжЁЁ, Ґб«Ё б Ґ ЁвҐаҐбгҐв
ў®§ўа й Ґ¬®Ґ Ґо § 票Ґ. …б«Ё Ў«®Є ®д®а¬«Ґ ЎҐ§ Ї а ¬Ґва®ў,
в.Ґ. ў Ґ¬ Ґв Є®¬ ¤л PARAM, ў Є®¬ ¤Ґ DO н«Ґ¬Ґвл WITH <бЇЁб®Є
Ї а ¬Ґва®ў> Ґ § ЇЁблў ов.
ЏаЁ¬Ґа 1.19. DO proc1 && ‡¤Ґбм Ј« ўл© Ў«®Є б«г¦Ёв
CANCEL && «Ёим ¤«п ўл§®ў Їа®жҐ¤гал proc1
PROCEDURE proc1
? "ђЂЃЋ’Ђ…’ ЏђЋ–…„“ђЂ PROC1" && ’Ґ«® Їа®жҐ¤гал
—Ёб«® д ЄвЁзҐбЄЁе Ї а ¬Ґва®ў ў ®Ўа 饨Ё Є Ў«®Єг Ґ ¤®«¦®
ЇаҐўли вм зЁб«® д®а¬ «мле Ї а ¬Ґва®ў. €§Ўлв®злҐ д®а¬ «млҐ Ї а -
¬Ґвал ўв®¬ вЁзҐбЄЁ Ї®«гз ов Їгб⮥ § 票Ґ NIL (ў п§лЄҐ CLIPPER)
Ё«Ё .F. (ў п§лЄҐ FOXPRO). ‡ п нв®, Ґва㤮 ॠ«Ё§®ў вм Їа ўЁ«®
㬮«з Ёп, в.Ґ. § ¤ ў вм Ґ®ЇаҐ¤Ґ«Ґл¬ Ї а ¬Ґва ¬ § зҐЁп ў б ¬®¬
Ў«®ЄҐ, Ґб«Ё Ї®«м§®ў вҐ«м Ґ гЄ § « § зҐЁп ў ®Ўа 饨Ё Є Ў«®Єг.
Ѓ«®Є, Їаאַ Ё«Ё Є®бўҐ® (зҐаҐ§ ¤агЈЁҐ Ў«®ЄЁ) ўл§лў Ґ¬л© Ё§
¤ ®Ј® Ў«®Є , бзЁв Ґвбп Ї®¤зЁҐл¬ ¤ ®¬г Ў«®Єг - ҐЈ® Ї®¤Ў«®Є®¬.
— бв® ЁбЇ®«м§гҐ¬лҐ Їа®жҐ¤гал Ё дгЄжЁЁ Ё¬ҐҐв б¬лб« ®ЎкҐ¤ЁЁвм
ў ®в¤Ґ«мл© .PRG-д ©«, §лў Ґ¬л© Їа®жҐ¤гал¬. ‡ ЇЁбм ᮤҐа¦ йЁебп
ў Ґ¬ ўҐиЁе Ў«®Є®ў Їа®Ё§ў®¤пв Ї® гЄ § л¬ ўлиҐ Їа ўЁ« ¬. „«п
Ї®«м§®ў Ёп нвЁ¬Ё Ў«®Є ¬Ё Ґ®Ўе®¤Ё¬® б з « Ї®¤Є«озЁвм (®вЄалвм)
Їа®жҐ¤гал© д ©« Є®¬ ¤®© SET PROCEDURE TO <Ё¬п Їа®жҐ¤га®Ј® д ©« >.
‚ Є ¦¤л© ¬®¬Ґв ®вЄалвл¬ ¬®¦Ґв Ўлвм «Ёим ®¤Ё в Є®© д ©«, Ї®н⮬г
®зҐаҐ¤ п Є®¬ ¤ , ®вЄалў п ¤агЈ®© Їа®жҐ¤гал© д ©«, ўв®¬ вЁзҐбЄЁ
§ Єалў Ґв ЇаҐ¤л¤гйЁ©. ‡ Єалвм Їа®жҐ¤гал© д ©« ¬®¦® в Є¦Ґ Є®¬ ¤®©
SET PROCEDURE TO ЎҐ§ гЄ § Ёп Ё¬ҐЁ д ©« .
Ѓ«®Є, § Ё¬ ойЁ© ®в¤Ґ«мл© д ©«, § Ј®«®ўЄ®¬ ¬®¦® Ґ б Ў¦ вм,
в®Ј¤ ў ®Ўа 饨Ё Є Ґ¬г гЄ §лў ов Ё¬п д ©« , ўлЇ®«по饥 а®«м Ё¬ҐЁ
Ў«®Є . €бЇ®«м§®ў ЁҐ ¤«п Ў«®Є®ў в ЄЁе "ЇҐаб® «мле" д ©«®ў Ґ
४®¬Ґ¤гҐвбп Ё§-§ бЁ¦ҐЁп Їа®Ё§ў®¤ЁвҐ«м®бвЁ, ЁЎ® д ©« § Јаг¦ Ґвбп
ў Ї ¬пвм ўбпЄЁ© а § ЇаЁ ўл§®ўҐ еа Ё¬®Ј® ў Ґ¬ Ў«®Є .
ЏаЁ¬Ґа 1.20. ” ©« б Ё¬ҐҐ¬ MINIMUM ЇаҐ¤бв ў«пҐв ўҐиоо дгЄжЁо
ЎҐ§ § Ј®«®ўЄ :
****** ЏђЋѓђЂЊЊЌ›‰ ”Ђ‰‹ MINIMUM.PRG ****** ‚ᥣ® ваЁ бва®ЄЁ !
PARAMETERS U,V
RETURN Iif(U<V, U, V) && Љ®Ґж д ©« Ё Ў«®Є MINIMUM
Ќ ЇаЁ¬Ґа, Ґб«Ё ¤® ўлўҐбвЁ ¬ЁЁ¬ «м®Ґ Ё§ § 票© A,B, § ЇЁблў Ґ¬
Є®¬ ¤г ? MINIMUM (A,B) && ЌҐ § Ўлў ©вҐ, зв® нв® Ў«®Є-дгЄжЁп
‚ FOXPRO ҐЇ®б।б⢥® ¤®бвгЇл¬Ё пў«повбп Ґ в®«мЄ® Ў«®ЄЁ
⥪г饣® Їа®Ја ¬¬®Ј® д ©« , ® Ё Ў«®ЄЁ д ©«®ў, Ё§ Є®в®але Їаאַ
Ё«Ё Є®бўҐ® Їа®Ё§ўҐ¤Ґ ўл§®ў Ў«®Є ⥪г饣® д ©« . Ѓ®«ҐҐ в®Ј®,
Є®¬ ¤®© DO ¬®¦® ®Ўа вЁвмбп Є Ў«®Єг ў б®бв ўҐ Ё®Ј® д ©« , ® ў
н⮬ б«гз Ґ ў Є®Ґж Є®¬ ¤л ¤® ¤®Ў ўЁвм н«Ґ¬Ґвл IN <Ё¬п д ©« >.
Ћб®ЎҐ®бвЁ Ў«®з®© бвагЄвгал ў п§лЄҐ CLIPPER а бᬮваҐл ў Ј«. 4.
‡ ¤ ЁҐ 1.11. ‘®бв ўм⥠Їа®Ја ¬¬г 宦¤ҐЁп ¬ЁЁ¬ «м®Ј® б।Ё
¬ ЄбЁ¬г¬®ў бва®Є ¤ўг¬Ґа®Ј® ¬ ббЁў A[8,5]; ўл¤Ґ«ЁвҐ ў Ґ© ўгв२Ґ
Ў«®ЄЁ 宦¤ҐЁп ¬ ЄбЁ¬г¬ Ё ¬ЁЁ¬г¬ .
1.12. ЋЎ« бвЁ ¤Ґ©бвўЁп ЇҐаҐ¬Ґле.
‘®еа ҐЁҐ ў д ©«Ґ Ё ў®ббв ®ў«ҐЁҐ ЇҐаҐ¬Ґле
ЏҐаҐ¬ҐлҐ, ¤Ґ©бвўгойЁҐ ў Ў«®ЄҐ, ¤Ґ©бвўгов Ё ў Ї®¤зЁҐле
Ў«®Є е (Ї®¤Ў«®Є е), ЁбЄ«оз п ⥠ЇҐаҐ¬ҐлҐ, Ё¬Ґ Є®в®але б®ўЇ ¤ ов б
Ё¬Ґ ¬Ё, ®ЇЁблў Ґ¬л¬Ё ў Ї®¤зЁҐле Ў«®Є е, ЁЎ® ®ў®Ґ ®ЇЁб ЁҐ
ᮧ¤ Ґв Ё ®ўго ЇҐаҐ¬Ґго. „«п ®ЇЁб Ёп ЁбЇ®«м§гов ®ЇҐа в®а PRIVATE:
PRIVATE <‘ЇЁб®Є Ё¬Ґ ЇҐаҐ¬Ґле>.
ЋЇҐа в®а PRIVATE Ї®а®¦¤ Ґв ЇҐаҐ¬ҐлҐ, бгйҐбвўгойЁҐ ¤®
¬®¬Ґв ў®§ўа в Ё§ Ў«®Є , ᮤҐа¦ 饣® нв®в ®ЇҐа в®а. …б«Ё ¤® ўе®¤
ў ¤ л© Ў«®Є бгйҐбвў®ў «Ё ЇҐаҐ¬ҐлҐ, ®¤®Ё¬ҐлҐ б ®ЇЁблў Ґ¬л¬Ё,
®Ё Ґ гЁз⮦ овбп, ЇҐаҐў®¤пвбп ў бЄал⮥ б®бв®пЁҐ ¤® ¬®¬Ґв
§ ўҐа襨п а Ў®вл Ў«®Є , Є®Ј¤ ў®ўм бв ®ўпвбп ¤®бвгЇл¬Ё.
Ља®¬Ґ ЇҐаҐ¬Ґле Є« бб PRIVATE, Ё¬Ґовбп PUBLIC-ЇҐаҐ¬ҐлҐ,
бгйҐбвўгойЁҐ, Ї®Є Ґ § Є®зЁв а Ў®вг Їа®Ја ¬¬ , Ё ¤®бвгЇлҐ ў
«оЎ®¬ ҐҐ Ў«®ЄҐ б ®Ј®ў®аЄ®©, а бᬮв८© ўлиҐ. ЏҐаҐ¬ҐлҐ Є« бб
PUBLIC ¬®Јгв Ўлвм Ї®а®¦¤Ґл ў «оЎ®¬ Ў«®ЄҐ. Ѓ®«ҐҐ в®Ј®, ў FOXPRO
Ёе ¬®¦® Ї®а®¤Ёвм ®в¤Ґ«м®© Є®¬ ¤®© ¤® § ЇгбЄ Їа®Ја ¬¬л. ќв®в
Є« бб ЇҐаҐ¬Ґле 㤮ЎҐ ЇаЁ ®в« ¤ЄҐ Їа®Ја ¬¬л; § ¬ҐЁў ў ®ЇЁб ЁЁ
б«®ў® PRIVATE PUBLIC, ¬л ¤Ґ« Ґ¬ ўгв२Ґ ЇҐаҐ¬ҐлҐ Ў«®Є
¤®бвгЇл¬Ё ¤«п а бᬮваҐЁп Ё Ї®б«Ґ ў®§ўа в Ё§ ҐЈ® ўҐиЁ©
га®ўҐм. ‚ ®ЇҐа в®а е PUBLIC, PRIVATE п§лЄ CLIPPER ¬®¦® Ё¬Ґвм
®ЇЁб Ёп ¬ ббЁў®ў (Є Є ў DECLARE, Ї. 1.7), в.Ґ. Ї®а®¦¤ вм ¬ ббЁўл;
ЇаЁ¬Ґа PRIVATE z, A[2,5].
‚® Ё§ЎҐ¦ ЁҐ ҐЇаҐ¤бЄ §гҐ¬ле нд䥪⮢ Ґ б«Ґ¤гҐв ЁбЇ®«м§®ў вм
¤«п PUBLIC-ЇҐаҐ¬Ґле Ё¬Ґ , ®Ў®§ з ўиЁҐ а ҐҐ ¤агЈЁҐ ЇҐаҐ¬ҐлҐ
¤ ®© Їа®Ја ¬¬л. Џ®пў«ҐЁҐ Ё¬ҐЁ Ґ ®ЇЁб ®© ЇаҐ¦¤Ґ ЇҐаҐ¬Ґ®©
®§ з Ґв ўв®¬ вЁзҐбЄ®Ґ Ї®а®¦¤ҐЁҐ PRIVATE-ЇҐаҐ¬Ґ®©,
®¤ Є® нвЁ¬ б«Ґ¤гҐв Ї®«м§®ў вмбп а §ўҐ зв® ў Ј« ў®¬ Ў«®ЄҐ.
џў®Ґ ®ЇЁб ЁҐ PRIVATE-ЇҐаҐ¬Ґле ў Ў«®Є е гбва пҐв ®иЁЎЄЁ,
ўл§лў Ґ¬лҐ б«гз ©л¬ б®ўЇ ¤ҐЁҐ¬ Ё¬Ґ ЇҐаҐ¬Ґле, ЁбЇ®«м§гҐ¬ле ў
а §ле Ў«®Є е. ЋЇЁб ЁҐ ЇҐаҐ¬Ґле ¤®«¦® ЇаҐ¤иҐбвў®ў вм Ёе
ЁбЇ®«м§®ў Ёо; ४®¬Ґ¤гҐвбп ®ЇҐа в®ал PRIVATE Ё PUBLIC ¤«п Ў®«м襩
Ј«п¤®бвЁ Ї®¬Ґй вм ў з «Ґ Ў«®Є®ў, Ї®б«Ґ § Ј®«®ўЄ .
‚аҐ¬п ¦Ё§Ё PUBLIC- Ё PRIVATE-¤ ле ¬®¦Ґв Ўлвм гбҐзҐ®
гЄ § ЁҐ¬ Ёе Ё¬Ґ ў Є®¬ ¤Ґ RELEASE <‘ЇЁб®Є ЇҐаҐ¬Ґле, ¬ ббЁў®ў> ,
г¤ «по饩 гЄ § лҐ ЇҐаҐ¬ҐлҐ Ё ¬ ббЁўл, ¤Ґ©бвўгойЁҐ ў ¤ ®¬ Ў«®ЄҐ.
Љ®¬ ¤ CLEAR MEMORY гЁз⮦ Ґв ўбҐ ¬®¦Ґбвў® PUBLIC- Ё PRIVATE-¤ ле
Ґ§ ўЁбЁ¬® ®в ¬Ґбв Ё ўаҐ¬ҐЁ Ёе ᮧ¤ Ёп. ќв® ¤Ґ« ов ¤«п ®бў®Ў®¦¤ҐЁп
§ пв®© Ё¬Ё Ї ¬пвЁ б 楫мо 㢥«ЁзҐЁп ®ЎкҐ¬ Ї ¬пвЁ, ¤®бвгЇ®Ј® ¤«п
¤ «мҐ©иҐЈ® ЁбЇ®«м§®ў Ёп ў Їа®Ја ¬¬Ґ. Љ®¬ ¤ RELEASE б ваЁЎг⮬
ALL (ўбҐ ў аЁ вл) ЁбЄ«оз Ґв PRIVATE-¤ лҐ (ў FOXPRO в Є¦Ґ PUBLIC-
¤ лҐ). ‚ CLIPPER ® § ¬ҐпҐв § 票п PRIVATE-¤ ле NIL,
®бў®Ў®¦¤ҐЁҐ Ї ¬пвЁ, § пв®© нвЁ¬Ё ¤ л¬Ё, Їа®Ёб室Ёв Ї® ®Є®з ЁЁ
а Ў®вл ⥪г饣® Ў«®Є . ђ бᬮваЁ¬ ў аЁ вл Є®¬ ¤л.
Љ®¬ ¤ RELEASE ALL LIKE <Њ бЄ > г¤ «пҐв ЇҐаҐ¬ҐлҐ Ё ¬ ббЁўл,
Ё¬Ґ Є®в®але ®вўҐз ов § ¤ ®© бЁ¬ў®«м®© ¬ бЄҐ (б¬. Ї. 1.4).
Ќ ЇаЁ¬Ґа, Є®¬ ¤ RELEASE ALL LIKE *tom? г¤ «пҐв ўбҐ ЇҐаҐ¬ҐлҐ,
ў Є®жҐ Ё¬ҐЁ Є®в®але Ё¬ҐҐвбп б®зҐв ЁҐ "tom", § Ё¬ - Їа®Ё§ў®«мл©
бЁ¬ў®«. Ќ Їа®вЁў, Є®¬ ¤ RELEASE ALL EXCEPT <Њ бЄ > г¤ «пҐв ўбҐ
ЇҐаҐ¬ҐлҐ Ё ¬ ббЁўл, Ё¬п Є®в®але Ґ ®вўҐз Ґв § ¤ ®© ¬ бЄҐ.
RELEASE ALL г¤ «пҐв ўбҐ ЇҐаҐ¬ҐлҐ Ё ¬ ббЁўл ⥪г饣® Ў«®Є .
Ћбў®Ў®¦¤ҐЁҐ Ї ¬пвЁ ¬®¦Ґв Ўлвм ўаҐ¬Ґл¬: ¬®¦Ґбвў® ЇҐаҐ¬Ґле
§ Ї®¬Ё ов ў д ©«Ґ, § ⥬ Ёе г¤ «пов Ё§ Ї ¬пвЁ, Є®Ј¤ ®Ё
Ї® ¤®Ўпвбп ¤«п ¤ «мҐ©иЁе ¤Ґ©бвўЁ©, Ёе ў®ббв ў«Ёў ов, § Јаг¦ п
ў Ї ¬пвм Ё§ д ©« . ‘®еа ҐЁҐ ЇҐаҐ¬Ґле ў д ©«Ґ ®бгйҐбвў«пҐв
Є®¬ ¤ SAVE TO <€¬п д ©« , ЁбЇ®«м§гҐ¬®Ј® ¤«п б®еа ҐЁп>,
нв Є®¬ ¤ ¬®¦Ґв ЁбЇ®«м§®ў вм ¬ бЄг в Є ¦Ґ, Є Є Є®¬ ¤ RELEASE.
ЏаЁ¬Ґал: SAVE TO Spas ALL LIKE *tom? ; SAVE TO Hran .
Џ® 㬮«з Ёо ᮧ¤ ў Ґ¬л© д ©« Ї®«гз Ґв а биЁаҐЁҐ Ё¬ҐЁ .MEM .
’®«мЄ® FOXPRO ¤®ЇгбЄ Ґв гЄ § ЁҐ ¬ ббЁў®ў ў Є®¬ ¤Ґ SAVE ¤«п Ёе
§ ЇЁбЁ ¤ЁбЄ. ђҐ «Ё§гҐ¬ п б Ї®¬®ймо бЇҐжЁ «мле Ў«®Є®ў ў®§¬®¦®бвм
б®еа ҐЁп Ё ў®ббв ®ў«ҐЁп CLIPPER-¬ ббЁў®ў а бᬮвॠў Ј«. 10.
‚®ббв ®ў«ҐЁҐ (§ Јаг§Єг) ЇҐаҐ¬Ґле ўлЇ®«пҐв Є®¬ ¤
RESTORE FROM <€¬п д ©« > ADDITIVE ,
Ґ®Ўп§ ⥫мл© ваЁЎгв ADDITIVE ЇаҐЇпвбвўгҐв ўв®¬ вЁзҐбЄ®¬г
гЁз⮦ҐЁо ЇҐаҐ¬Ґле Ё ¬ ббЁў®ў, Ё¬ҐўиЁебп ў Ї ¬пвЁ ¬®¬Ґв
§ Јаг§ЄЁ, в.Ґ. Їа®Ёб室Ёв ¤®Ў ў«ҐЁҐ ЇҐаҐ¬Ґле Ё§ д ©« Є бгйҐбвўгойЁ¬.
ЏаЁ¬Ґа: RESTORE FROM Spas && Џ ¬пвм ®зЁй Ґвбп ®в ЇҐаҐ¬Ґле,
§ ⥬ ў ҐҐ § Јаг¦ овбп ЇҐаҐ¬ҐлҐ, еа ЁўиЁҐбп ў д ©«Ґ Spas.
‡ Јаг¦ Ґ¬лҐ ЇҐаҐ¬ҐлҐ Ї®«гз ов бв вгб PRIVATE-¤ ле ў ⥪г饬
Ў«®ЄҐ, б«Ґ¤®ў ⥫м®, ўв®¬ вЁзҐбЄЁ гЁз⮦ овбп Ї® § ўҐа襨Ё
ҐЈ® а Ў®вл. …б«Ё Є Є®Ґ-«ЁЎ® Ё§ Ёе Ё¬Ґ б®ўЇ «® б Ё¬ҐҐ¬ PUBLIC-
ЇҐаҐ¬Ґ®© Ё ў Є®¬ ¤Ґ Ё¬ҐҐвбп ваЁЎгв ADDITIVE, нв PUBLIC-ЇҐаҐ¬Ґ п
Ї®«гз Ґв ®ў®Ґ § 票Ґ, PRIVATE-ЇҐаҐ¬Ґ п Ґ ᮧ¤ Ґвбп.
‚ п§лЄҐ FOXPRO Ё¬ҐҐвбп Є®¬ ¤ DISPLAY MEMORY ¤«п ®Ў§®а ЄвЁўле
ЇҐаҐ¬Ґле Ё ¬ ббЁў®ў: гЄ §лў овбп Ё¬п, Є« бб, § 票Ґ ЇҐаҐ¬Ґ®©.
Њ®Јгв Ўлвм ¤®Ў ў«Ґл ваЁЎгвл LIKE <¬ бЄ > Ё TO PRINTER
(ўлў®¤ ЇаЁвҐа) Ё«Ё TO FILE <€¬п д ©« > (ўлў®¤ ў д ©«). ЏаЁ¬Ґа:
Є®¬ ¤ DISPLAY MEMORY LIKE * TO PRINTER ўлў®¤Ёв ЇаЁвҐа
ЇҐаҐ¬ҐлҐ, ЁбЄ«оз п бЁб⥬лҐ, - нв® Ё ®Ў®§ з Ґв ваЁЎгв LIKE *.
‡ ¤ ЁҐ 1.12. ‡ ЇЁиЁвҐ Є®¬ ¤г гЁз⮦ҐЁп ўбҐе ЇҐаҐ¬Ґле, Ё¬п
Є®в®але ᮤҐа¦Ёв да Ј¬Ґв "HRU".
1.13. ‚лў®¤ Є®¬ ¤ ¬Ё "?","??". ЏаҐ®Ўа §®ў Ёп ЇаЁ ўлў®¤Ґ
‚лў®¤ § 票© § ¤ ®Ј® бЇЁбЄ ўла ¦ҐЁ©, Ё¬ҐойЁе вЁЇ C,N,L,D
Ё«Ё M (MEMO-Ї®«Ґ), «ҐЈЄ® Ё 㤮Ў® ॠ«Ё§гҐвбп Є®¬ ¤ ¬Ё "?", "??":
? <‘ЇЁб®Є ўла ¦ҐЁ©> , ?? <‘ЇЁб®Є ўла ¦ҐЁ©> ,
Є®в®алҐ а §«Ёз овбп «Ёим ⥬, зв® Є®¬ ¤ "?" ЇҐаҐ¤ ўлў®¤®¬ ўлЇ®«пҐв
ЇҐаҐў®¤ бва®ЄЁ. „«п ўлў®¤ Їгбв®© бва®ЄЁ ¤® § ЇЁб вм ®¤Ё
«Ёим § Є "?". ‚лў®¤Ё¬лҐ б«Ґў - Їа ў® § 票п а §¤Ґ«повбп Їа®ЎҐ« ¬Ё;
ў FOXPRO ўлў®¤ нвЁе Їа®ЎҐ«®ў ¬®¦® ЁбЄ«озЁвм Є®¬ ¤®© SET SPACE OFF,
Є®Ј¤ Ї®вॡгҐвбп - ў®ббв ®ўЁвм Ёбе®¤л© аҐ¦Ё¬ Є®¬ ¤®© SET SPACE ON.
ЏаЁ § Ї®«ҐЁЁ бва®ЄЁ ў®§ЁЄ Ґв ўв®¬ вЁзҐбЄЁ© ЇҐаҐе®¤ ®ўго
бва®Єг. …б«Ё ⥪г饩 Ўл« б ¬ п Ё¦пп бва®Є нЄа , в® ЇаЁ ўлў®¤Ґ
Є®¬ ¤®© "?" ў®§ЁЄ Ґв бЄа®««ЁЈ - б¤ўЁЈ ᮤҐа¦Ё¬®Ј® бва®Є нЄа ®¤г
бва®Єг ўўҐае ўбпЄЁ© а §, Є®Ј¤ § Ї®«пҐвбп бва®Є . ‚ п§лЄҐ CLIPPER
Ё¬ҐҐвбп дгЄжЁп Setpos(Y,X) ¤«п § ¤ Ёп Ї®§ЁжЁЁ Єгаб®а . “Є §лў п б
ҐҐ Ї®¬®ймо бва®Єг Y, ¬®¦® Ё§ЎҐ¦ вм бЄа®««ЁЈ . ЌҐ б«Ґ¤гҐв в®«мЄ®
гЄ §лў вм Ї®б«Ґ¤оо бва®Єг, ЁЎ® Є®¬ ¤ "?" зЁ Ґв б ЇҐаҐў®¤ бва®ЄЁ.
ЏҐаҐ¤ ўлў®¤®¬ ўбҐ § зҐЁп ўв®¬ вЁзҐбЄЁ ЇаҐ®Ўа §говбп ў бва®ЄЁ.
‚®§¬®¦л Ё бЇҐжЁ «млҐ ЇаҐ®Ўа §®ў Ёп, ॠ«Ё§гҐ¬лҐ дгЄжЁҐ©
Transform ( <‚лў®¤Ё¬®Ґ ўла ¦ҐЁҐ>, <SAY-и Ў«®> ) .
SAY-и Ў«® - нв® бва®Є , ®ЇаҐ¤Ґ«пой п д®а¬ ⮥ ЇаҐ®Ўа §®ў ЁҐ.
€¬Ґовбп ¤ўҐ ў®§¬®¦®бвЁ, ॠ«Ё§гҐ¬лҐ б®ў¬Ґбв® Ё«Ё Ї® ®в¤Ґ«м®бвЁ,
Ё¬Ґ®, § ¤ ЁҐ дгЄжЁ© д®а¬ вЁа®ў Ёп Ё § ¤ ЁҐ в Є §лў Ґ¬®©
¬ бЄЁ, Ї®бЁ¬ў®«м® ЇаҐ¤бв ў«по饩 д®а¬ в ўлў®¤ .
‘ва®Є дгЄжЁ© д®а¬ вЁа®ў Ёп зЁ Ґвбп б® § Є "@" Ё ᮤҐа¦Ёв
®¤Ё Ё«Ё ҐбЄ®«мЄ® бЇҐжЁ «мле бЁ¬ў®«®ў, гЄ § ле ў в Ў«. 1.4.
’ Ў«Ёж 1.4
____________________________________________________________________
‘Ё¬ў®« „ Ґ © б в ў Ё Ґ
--------------------------------------------------------------------
B ‚ла ўЁў Ґв зЁб« Ї® «Ґў®¬г Єа о (Ґб«Ё ў ¬ бЄҐ Ґв $,*)
C ‚лў®¤Ёв "CR" Ї®б«Ґ Ї®«®¦ЁвҐ«мле зЁбҐ«
X ‚лў®¤Ёв "DB" Ї®б«Ґ ®ваЁж ⥫мле зЁбҐ«
Z ‚лў®¤Ёв г«Ґў®Ґ § 票Ґ Є Є бва®Єг Їа®ЎҐ«®ў
( ‚лў®¤Ёв ¬®¤г«м ®ваЁж ⥫쮣® зЁб« ў бЄ®ЎЄ е ( )
) ’® ¦Ґ, зв® Ё ¤«п "(", б Ї®¤ ў«ҐЁҐ¬ Їа®ЎҐ«®ў (CLIPPER)
D ‚лў®¤Ёв ¤ вг ў д®а¬ вҐ, гбв ®ў«Ґ®¬ ў SET DATE
E ‚лў®¤Ёв ¤ вг ў д®а¬ ⥠British ( Ј«Ё©бЄ®¬)
E ‚лў®¤Ёв зЁб«® б § Їпв®© ў¬Ґбв® ¤ҐбпвЁз®© в®зЄЁ (CLIPPER)
^ ‚лў®¤Ёв зЁб«® ў нЄбЇ®ҐжЁ «м®© д®а¬Ґ (FOXPRO)
R ђ §аҐи Ґв ЇЁб вм ў ¬ бЄҐ «оЎлҐ бЁ¬ў®«л, Ї®¬Ё¬® гЄ § ле
ў в Ў«. 1.5, б 楫мо Ёе пў®Ј® ў®бЇа®Ё§ўҐ¤ҐЁп
! ‚®бЇа®Ё§ў®¤Ёв ЎгЄўл ў ўҐа奬 ॣЁбвॠ(Їа®ЇЁблҐ)
‘ва®Є д®а¬ в - ¬ бЄ ЇаҐ¤бв ў«пҐв ⥬ Ё«Ё Ёл¬ бЁ¬ў®«®¬
Є ¦¤го Ї®§ЁжЁо ўлў®¤Ё¬®© бва®ЄЁ, ЇаЁ¬Ґа, ¬ бЄ "99.9" Ї®Є §лў Ґв,
бЄ®«мЄ® жЁда зЁб« б«Ґ¤гҐв Ё§®Ўа §Ёвм (3 жЁдал) Ё Є Є ®Ё а бЇ®«®¦Ґл
Ї® ®в®иҐЁо Є в®зЄҐ. ЏаЁ б®ў¬Ґб⮬ ЁбЇ®«м§®ў ЁЁ бва®Єг дгЄжЁ©
Ё бва®Єг д®а¬ в б«Ґ¤гҐв § ЇЁблў вм зҐаҐ§ Їа®ЎҐ« Є Є ® ¤ г
бва®Єг, зЁ п б дгЄжЁ©, ЇаЁ¬Ґа: ? Transform("ram","@!R A A A").
ќв Є®¬ ¤ ўлўҐ¤Ґв "R A M", ЁЎ® дгЄжЁп "!" ®ЎҐбЇҐзЁв Їа®ЇЁблҐ
ЎгЄўл, дгЄжЁп "R"- а §аҐиЁв "Ї®бв®а®ЁҐ" бЁ¬ў®«л б।Ё Ёе,
Є®в®ал¬Ё ў ¤ ®¬ б«гз Ґ пў«повбп Їа®ЎҐ«л. ЃгЄўл Ї®Є § л ў и Ў«®Ґ
§ Є ¬Ё "A". ђ®«м ЁбЇ®«м§гҐ¬ле ў ¬ бЄҐ бЁ¬ў®«®ў гЄ § ў в Ў«. 1.5;
’ Ў«Ёж 1.5
__________________________________________________________________
‘Ё¬ў®« ђ ® « м б Ё ¬ ў ® «
-------------------------------------------------------------------
A, N, X, 9, # ђҐ§ҐаўЁагҐв ¬Ґбв® ¤«п ®¤®Ј® § Є Ёб室®© бва®ЄЁ
9, # ђҐ§ҐаўЁагҐв ¬Ґбв® ¤«п § Є (жЁдал) ў ¤ ле вЁЇ N
$ ‚лў®¤Ёв § Є $ ў¬Ґбв® ўҐ¤г饣® Їа®ЎҐ« ў ¤ ле вЁЇ N
. ЋЎ®§ з Ґв Ї®§ЁжЁо ¤ҐбпвЁз®© в®зЄЁ ў ¤ ле вЁЇ N
, ЋЎ®§ з Ґв Ї®§ЁжЁо ¤ҐбпвЁз®© § Їпв®© ў ¤ ле вЁЇ N
* ‚лў®¤Ёв § Є * ў¬Ґбв® ўҐ¤г饣® Їа®ЎҐ« ў ¤ ле вЁЇ N
! ЋЎ®§ з Ґв Ї®§ЁжЁо ¤«п ўлў®¤ ЎгЄўл ў ўҐа奬 ॣЁбваҐ
L (Y) ‚лў®¤Ёв § 票Ґ вЁЇ L Є Є "T" Ё«Ё "F" ("Y" Ё«Ё "N")
--------------------------------------------------------------------
…йҐ ®¤Ё ЇаЁ¬Ґа ЇаЁ¬ҐҐЁп дгЄжЁЁ R ¤«п ўбв ўЄЁ: Є®¬ ¤
? Transform("3627774", "@R ⥫.999-99-99")
ўлў®¤Ёв "⥫.362-77-74". ‚¬Ґбв® § Є "9" ў ¬ бЄҐ ¬®¦® Ўл«® Ўл
ЁбЇ®«м§®ў вм "A","N","X" Ё«Ё "#" (ЇаЁ ў л ў ® ¤ Ґ а §Ёжл Ґв).
‚ п§лЄҐ FOXPRO Ё¬ҐҐвбп а биЁаҐл© бЁв ЄбЁб Є®¬ ¤ "?","??":
? <‘ЇЁб®Є н«Ґ¬Ґв®ў ўлў®¤ > , ?? <‘ЇЁб®Є н«Ґ¬Ґв®ў ўлў®¤ > ,
Ј¤Ґ н«Ґ¬Ґв ўлў®¤ - б®зҐв ЁҐ б«Ґ¤гойЁе Ґ®Ўп§ ⥫мле н«Ґ¬Ґв®ў:
<‚лў®¤Ё¬®Ґ ўла ¦ҐЁҐ> PICTURE<ўлаC> FUNCTION<ўлаC> AT <ўлаN>
<ўлаC> ЇаҐ¤бв ў«пҐв SAY-и Ў«® (ЁбЇ®«м§гҐ¬ «ЁЎ® PICTURE<ўлаC>, «ЁЎ®
FUNCTION<ўлаC>; ў Ї®б«Ґ¤Ґ¬ б«гз Ґ ¬®¦® Ґ Ё¬Ґвм § Є @ ў <ўлаC>).
<ўлаN> § ¤ Ґв ®¬Ґа Є®«®ЄЁ, зЁ п б Є®в®а®© Їа®Ё§ў®¤Ёвбп ўлў®¤.
ЏаЁ¬Ґа: ? "3627603" PICTURE "@R ⥫.999-99-99" && ⥫.362-76-03.
Ќ®ў п дгЄжЁп V<n> ў FOXPRO Ї®§ў®«пҐв ўлЇ®«пвм ўлў®¤ ў ўҐавЁЄ «мго
Ї®«®бг иЁаЁ®о n Є®«®®Є, з⮠㤮Ў® ЇаЁ ўлў®¤Ґ Ј®«®ўЄЁ в Ў«Ёж.
ЏаЁ¬Ґа: ? "ђЂ‡ђџ„" PICTURE "V3" AT 5, "ЋЏ‹Ђ’Ђ" PICTURE "V2" AT 11
Џ® нв®© Є®¬ ¤Ґ ў®§ЁЄ Ґв б«Ґ¤гой п Є авЁ ўлў®¤ :
ђЂ‡ ЋЏ
ђџ„ ‹Ђ
’Ђ
‚®§¬®¦л© б«Ґ¤гойЁ© ўлў®¤ Ўг¤Ґв Їа®Ё§ў®¤Ёвмбп Ё¦Ґ б ¬®Ј® Ё¦ҐЈ®
Ё§ да Ј¬Ґв®ў б«®ў, ўлўҐ¤Ґле ¤ ®© Є®¬ ¤®©.
Џ® 㬮«з Ёо ўлў®¤ Їа®Ёб室Ёв ¤ЁбЇ«Ґ©. —в®Ўл Їа ўЁвм
Ї®в®Є ўлў®¤ ЇаЁвҐа, ¤® ўлЇ®«Ёвм Є®¬ ¤г SET PRINTER ON,
Ґб«Ё ¬л е®вЁ¬ ЇаЁ н⮬ ®вЄ«озЁвм ўлў®¤ ¤ЁбЇ«Ґ©, ¤®Ї®«ЁвҐ«м®
¤ Ґ¬ Є®¬ ¤г SET DISPLAY OFF. ‚¬Ґбв® ЇаЁвҐа Ї®в®Є ўлў®¤ ¬®¦®
Їа ўЁвм ў д ©«, § ЇЁб ў ¤®Ї®«ЁвҐ«м® Є®¬ ¤г
SET PRINTER TO <€¬п д ©« б а биЁаҐЁҐ¬>.
ЏаҐ¦ҐҐ ᮤҐа¦Ё¬®Ґ д ©« Ўг¤Ґв бвҐав®; Ґб«Ё ¦Ґ ўл е®вЁвҐ
¤®Ї®«Ёвм д ©«, ¤®Ў ўм⥠ў Є®Ґж нв®© Є®¬ ¤л ваЁЎгв ADDITIVE.
€в Є, ў®§ЁЄ Ґв б«Ґ¤гой п б奬 § ЇЁбЁ Їа®Ја ¬¬л:
SET PRINTER ON && ђ §аҐиҐЁҐ ўлў®¤ Ї®¬Ё¬® ¤ЁбЇ«Ґп
SET PRINTER TO text.txt && Ќ § 票Ґ ¤«п ўлў®¤ д ©« text
< Џ®«г票Ґ Ёд®а¬ жЁЁ, Ї®¤«Ґ¦ 饩 ўлў®¤г. ‚лў®¤ >
SET PRINTER TO && ” ©« text.txt § Єалў Ґвбп
SET PRINTER OFF && ЋвЄ«о票Ґ Ї®в®Є ўлў®¤
‚ ®вбгвбвўЁҐ Ї®б«Ґ¤Ґ© Є®¬ ¤л ¤ «мҐ©иЁ© ўлў®¤, Єа®¬Ґ ¤ЁбЇ«Ґп
(Є®в®ал© ¬л Ґ ®вЄ«оз «Ё), Ўг¤Ґв Ё¤вЁ ЇаЁвҐа. …б«Ё ¬Ґ¦¤г ЇҐаўл¬Ё
¤ўг¬п Є®¬ ¤ ¬Ё Ўг¤Ґв § ЇЁб ўлў®¤, в® ® в Є¦Ґ Ї®©¤Ґв ЇаЁвҐа,
Ї®бЄ®«мЄг ҐйҐ Ґ Їа®Ё§®и«® § 票Ґ д ©« ўлў®¤ .
„«п ўлў®¤ Ў®«миЁе ®ЎкҐ¬®ў ⥪бв®ў®© Ёд®а¬ жЁЁ 㤮Ў® ЁбЇ®«м§®ў вм
Є®¬ ¤г TEXT:
TEXT
<⥪бв®ў п Ёд®а¬ жЁп, ЇаЁ¬Ґа Ј®«®ўЄ в Ў«Ёжл>
ENDTEXT && ѓа Ёж ⥪бв®ў®© Ёд®а¬ жЁЁ
‚ ¤ «мҐ©иҐ¬ ўл г§ ҐвҐ, Є Є ЇаЁ Ґ®Ўе®¤Ё¬®бвЁ ўЄ«оз вм ў нв®в
⥪бв ў амЁагҐ¬лҐ з бвЁ ( ЇаЁ¬Ґа, д ¬Ё«Ёо ў ⥪бв ЇаЁЈ« 襨п).
‡ ¤ ЁҐ 1.13. €¬ҐҐвбп ҐЄ®в®ал© ¤®Єг¬Ґв, ЇаҐ¤бв ў«Ґл© бва®Є®©
S. Ќг¦® ўлўҐбвЁ ҐҐ ў д ©«, § ⥬ ЇаЁвҐа ў ®¤Ё Є®ў®¬ ўЁ¤Ґ:
зЁ п б 7-© Є®«®ЄЁ ўҐавЁЄ «м®© Ї®«®б®©, Ё¬Ґо饩 иЁаЁг 40 Ї®§ЁжЁ©.
Ќ ¤ЁбЇ«ҐҐ ¤®Єг¬Ґв Ґ ®в®Ўа ¦ вм, ® ЇҐаҐ¤ ҐЈ® ўлў®¤®¬ ¤® ўлᢥвЁвм
¤ЁбЇ«ҐҐ ¤ЇЁбм "‚Є«озЁвҐ ЇаЁвҐа" Ё ¤ вм §ўгЄ®ў®© бЁЈ « (Ї.1.6).
‘®бв ўм⥠ᮮ⢥вбвўгойго Їа®Ја ¬¬г, Ї®« Ј п, зв® бва®Є S ўў®¤Ёвбп.
1.14. ‚ў®¤-ўлў®¤ ¤ ле Є®¬ ¤ ¬Ё @ ...SAY ...GET
Ќ §®ўҐ¬ Є®®а¤Ё в ¬Ё ®¬Ґа бва®ЄЁ Y (¤«п ¤ЁбЇ«Ґп Y= 0..24) Ё
®¬Ґа Є®«®ЄЁ X (¤«п ¤ЁбЇ«Ґп X= 0..79). ‚ Є®¬ ¤ е Y Ё X § ¤ ов Є Є
ўла ¦ҐЁп; ЇаЁ¬Ґал: ) 5, 9; Ў) Y, X; ў) Row(), Col()+5 (дгЄжЁп
Row() ў®§ўа й Ґв ®¬Ґа ⥪г饩 бва®ЄЁ, Col() - ®¬Ґа Є®«®ЄЁ).
Љ®®а¤Ё вл Y1,X1 ўҐа奣® «Ґў®Ј® Ё Y2,X2 Ё¦ҐЈ® Їа ў®Ј® гЈ«
Їаאַ㣮«мЁЄ , § Ї®«пҐ¬®Ј® нЄа Ґ Їа®ЎҐ« ¬Ё, гЄ §лў ов ў Є®¬ ¤Ґ
®зЁбвЄЁ ®Ў« бвЁ нЄа @ Y1,X1 CLEAR TO Y2,X2 .
‚ ®вбгвбвўЁҐ Є®®а¤Ё в Y2,X2 Є®¬ ¤ ®зЁй Ґв Їаאַ㣮«мЁЄ, Ё¦Ё©
Їа ўл© гЈ®« Є®в®а®Ј® б®ўЇ ¤ Ґв б Ё¦Ё¬ Їа ўл¬ гЈ«®¬ нЄа . ‘ ¬л©
Єа вЄЁ© ў аЁ в @ Y1,X1 ®зЁй Ґв бва®Єг Y1, зЁ п б Є®«®ЄЁ X1.
Љ®¬ ¤ CLEAR ®зЁй Ґв ўҐбм нЄа , ў¬Ґб⥠б ⥬ Ё бЇЁб®Є
Getlist (б¬. Ј«. 7); ў п§лЄҐ CLIPPER в Є¦Ґ Ё¬ҐҐвбп Є®¬ ¤
CLEAR SCREEN (б®Єа 饮 CLS), а ў®бЁ«м п @ 0,0 CLEAR TO .
‚ «оЎ®¬ б«гз Ґ Ї®б«Ґ ®зЁбвЄЁ Єгаб®а ®Є §лў Ґвбп ў «Ґў®¬ ўҐа奬
гЈ«г ®зЁйҐ®© ®Ў« бвЁ. ’ ЄЁ¬ бЇ®б®Ў®¬ ¬®¦® § ¤ вм з «мго Ї®§ЁжЁо
ўлў®¤ , ўлЇ®«пҐ¬®Ј® Є®¬ ¤®© "??" (Є®¬ ¤ "?" ЇҐаҐў®¤Ёв бва®Єг).
ЏаЁ¬Ґа. @ 9,0 && ЌҐ§ ўЁбЁ¬® ®в Ёб室®Ј® Ї®«®¦ҐЁп
?? "ЏђЋ‘’Ћ Џђ€Њ…ђ" && Єгаб®а ўлў®¤ зҐвбп ў 9-© бва®ЄҐ
Љ®¬ ¤л @ ... SAY ... GET ЇаҐ¤®бв ў«пов ў®§¬®¦®бвм ўў®¤ -
ўлў®¤ Ї® § ¤ л¬ Є®®а¤Ё в ¬ ў 㤮Ў®¬ д®а¬ ⥠Ё 梥⥠б б®ЇгвбвўгойЁ¬Ё
Їа®ўҐаЄ ¬Ё ўў®¤Ё¬ле ¤ ле. ЏаЁ Ї®«®¬ ЁбЇ®«м§®ў ЁЁ ў®§¬®¦®б⥩
®¤ в Є п Є®¬ ¤ § ¬ҐпҐв ҐбЄ®«мЄ® Їа®бвле Є®¬ ¤. ‡¤Ґбм
¬л а бᬮваЁ¬ ®б®ўлҐ ў®§¬®¦®бвЁ, ў Ј«. 7 н⨠ᢥ¤ҐЁп Ўг¤гв
¤®Ї®«Ґл. “бҐзҐ п Є®¬ ¤ (ЎҐ§ GET Ё Ї®б«Ґ¤гойЁе н«Ґ¬Ґв®ў)
@ Y,X SAY <ўла> PICTURE <ўлаC1> COLOR <ўлаC2>
ўлў®¤Ёв ®вд®а¬ вЁа®ў ®Ґ Ї® SAY-и Ў«®г (б¬. Ї. 1.11) § 票Ґ
<ўла> бЁ¬ў®« ¬Ё § ¤ ®Ј® 梥⠢ Ї®«Ґ § ¤ ®Ј® 梥в . …б«Ё ваЁЎгвл
PICTURE, COLOR Ґ § ¤ л, ЁбЇ®«м§гҐвбп д®а¬ в Ё жўҐв®ўлҐ е а ЄвҐаЁбвЁЄЁ
Ї® 㬮«з Ёо. ЏҐаҐ®б ®ўго бва®Єг Ґ ЇаҐ¤гᬮваҐ.
ЏаЁ¬Ґал. @ 5,10 SAY "„Ґм Ґ¤Ґ«Ё:" + CDOW(Date())
@ 7,0 SAY Diskspace() && ‚лў®¤ зЁб« бў®Ў®¤ле Ў ©в ¤ЁбЄҐ
€д®а¬ жЁо, б®бв®пйго Ё§ а §®вЁЇле н«Ґ¬Ґв®ў, ¬®¦® ᢥбвЁ ў
®¤® ўла ¦ҐЁҐ, ЇаЁў®¤п Ёе Є бЁ¬ў®«м®¬г вЁЇг.
ЏаЁ¬Ґа 1.21. ‚뢥¤Ґ¬ Ј®«®ўЄг в Ў«Ёжл "1 Єгаб 2 Єгаб ... 5 Єгаб"
@ 1,7 CLEAR TO && ЋзЁбвЁ«Ё а Ў®зго з бвм нЄа ,
FOR J = 1 TO 5 && ЇаЁзҐ¬ ⥪г饩 бв ®ўЁвбп 1-п бва®Є
@ Row(), Col() SAY Str(J) +" Єгаб"
ENDFOR
„«п Ї®Ё¬ Ёп ЇаЁ¬Ґа Ґ®Ўе®¤Ё¬® § вм, зв® Ї®б«Ґ Є ¦¤®Ј® Єв
ўлў®¤ Єгаб®а ®Є §лў Ґвбп бЇа ў ®в ўлўҐ¤Ґле ¤ ле, Ї®н⮬г
§ 票Ґ Col() ў жЁЄ«Ґ Ё§¬ҐпҐвбп; Їа®ЎҐ«л ЇҐаҐ¤ ®¬Ґа®¬ Єгаб
ў®§ЁЄг⠢⮬ вЁзҐбЄЁ, ЁЎ® Ї® 㬮«з Ёо дгЄжЁп Str ®вў®¤Ёв ¤«п
бва®з®Ј® ЇаҐ¤бв ў«ҐЁп зЁб« 10 Ї®§ЁжЁ©.
ќ«Ґ¬Ґвл, § ЇЁблў Ґ¬лҐ ў Є®¬ ¤Ґ Ї®б«Ґ б«®ў GET, ЁбЇ®«м§говбп
¤«п ўў®¤ Ё ¬®Јгв Ўлвм ®д®а¬«Ґл Є Є б ¬®бв®п⥫м п Є®¬ ¤ :
@ Y,X GET <ЇҐаҐ¬Ґ п Ё«Ё Ї®«Ґ § ЇЁбЁ> PICTURE<ўлаC1> COLOR<ўлаC2>;
WHEN <ўлаL1> RANGE <min>,<max> VALID <ўлаL2> ,
ЇаЁзҐ¬ ®Ўп§ ⥫мл «Ёим н«Ґ¬Ґвл б«Ґў ®в б«®ў PICTURE, ¤агЈЁ¬Ё
б«®ў ¬Ё, Ё¬п ўў®¤Ё¬®© ЇҐаҐ¬Ґ®© Ё«Ё Ї®«п § ЇЁбЁ ¤®«¦® гЄ §лў вмбп.
Ѓ®«ҐҐ в®Ј®, нв®© ЇҐаҐ¬Ґ®© (GET-ЇҐаҐ¬Ґ®©) ЇаҐ¤ў аЁвҐ«м® ¤®«¦®
Ўлвм § ¤ ® § 票Ґ, е®вп Ўл ®«м Ё«Ё бва®Є Їа®ЎҐ«®ў (® Ґ Їгбв п
бва®Є ). ЌҐ®Ўп§ ⥫млҐ н«Ґ¬Ґвл Ўг¤гв Ї®пбҐл ЇаЁ¬Ґа е.
Љ®¬ ¤ (з бвм Є®¬ ¤л) б® б«®ў®¬ GET, ®ЎҐбЇҐзЁў Ґв ®д®а¬«ҐЁҐ
Ї®«п ўў®¤ , §лў Ґ¬®Ј® GET-Ї®«Ґ¬; ў з бв®бвЁ, Їа®Ёб室Ёв § ҐбҐЁҐ
ў GET-Ї®«Ґ Ёб室®Ј® § зҐЁп ЇҐаҐ¬Ґ®© (®® ¤®«¦® бгйҐбвў®ў вм,
е®вп Ўл Їгб⮥). ” ЄвЁзҐбЄЁ ўў®¤ б®бв®Ёвбп, в®«мЄ® Ґб«Ё §
Є®¬ ¤ ¬Ё @ ... GET Ё¤Ґв Є®¬ ¤ READ (ў®§¬®¦® ®в¤Ґ«Ґ п ®в Ёе
ҐбЄ®«мЄЁ¬Ё Є®¬ ¤ ¬Ё). ЏаЁ ўлЇ®«ҐЁЁ READ зЁ Ґв ¬Ґаж вм Єгаб®а
ў GET-Ї®«Ґ, ЇаЁЈ« и п Є Ў®аг § 票п GET-ЇҐаҐ¬Ґ®©. ЏаЁбў®ҐЁҐ
Ґ© Ўа ®Ј® (бЄ®а४вЁа®ў ®Ј®) § зҐЁп Їа®Ёб室Ёв ЇаЁ ¦ вЁЁ
Є« ўЁиЁ Enter Ё«Ё Ї® § Ї®«ҐЁЁ Ї®б«Ґ¤Ґ© Ї®§ЁжЁЁ GET-Ї®«п.
…б«Ё ў ®¤®© Є®¬ ¤Ґ ЁбЇ®«м§говбп Ё SAY, Ё GET, Є®®а¤Ё вл
гЄ §лў ов «Ёим ў ҐҐ з «Ґ; GET-Ї®«Ґ Ўг¤Ґв ўлў®¤Ёвмбп ®¤Ё
Їа®ЎҐ« Їа ўҐҐ Ёд®а¬ жЁЁ (§ 票п) SAY-ўла ¦ҐЁп; <ўлаC1> Ё <ўлаC2>
§ ¤ ов ᮮ⢥вб⢥® GET-и Ў«® (Ї®¤®Ўл© SAY-и Ў«®г) Ё 梥⮢лҐ
е а ЄвҐаЁбвЁЄЁ GET-Ї®«п.
ЏаЁ¬Ґа 1.22. Y = Space(30) && ђҐ§ҐаўЁа㥬 30 Ї®§ЁжЁ© ¤«п Y
@ 5,8 GET Y PICTURE "@!" && ЃгЄўл Ўг¤гв ўўҐ¤Ґл Їа®ЇЁбл¬Ё
ЏаЁ¬Ґа 1.23. Otvet = "Yes" && ‡ ¤ ЁҐ ®вўҐв Ї® 㬮«з Ёо
@ 9,6 SAY "‚ўҐ¤ЁвҐ ‚ и ®вўҐв: Yes, No" GET Otvet PICTURE "@K"
‚ ¤ ®¬ ЇаЁ¬ҐаҐ ЁбЇ®«м§гҐвбп дгЄжЁп д®а¬ в "@K", ®ЎҐбЇҐзЁў ой п
бвЁа ЁҐ ў GET-Ї®«Ґ ®вўҐв Ї® 㬮«з Ёо ("Yes"), Ґб«Ё Ї®«м§®ў ⥫м
з « Ў®а ®вўҐв ў Ї®«Ґ ўў®¤ . …б«Ё ¦Ґ ®вўҐв "Yes" ҐЈ® гбва Ёў Ґв,
® ¦Ё¬ Ґв Є« ўЁиг Enter.
ЌҐ®Ўп§ ⥫млҐ н«Ґ¬Ґвл. ЏаҐ¤бв ўЁ¬, зв® ў Ў §Ґ ¤ ле Ї®пўЁ«®бм
®ў®Ґ Ї®«Ґ DevFam - "„ҐўЁзмп д ¬Ё«Ёп". ‚ Їа®Ја ¬¬Ґ, ॠ«Ё§го饩 ўў®¤
ў нв® Ї®«Ґ § 票©, б«Ґ¤гҐв ҐЈ® ўлЇ®«пвм «Ёим ¤«п вҐе
ЇҐаб® ¦ҐбЄ®Ј® த , ᥬҐ©®Ґ Ї®«®¦ҐЁҐ Є®в®але "Ѓ"(ў Ўа ЄҐ) Ё«Ё
"ђ"(а §ўҐ¤Ґ ). ЏаҐ¤гб«®ўЁҐ, § ЇЁблў Ґ¬®Ґ Ї®б«Ґ "WHEN", Ўг¤Ґв
Їа®ўҐапвм Ї®« а ўҐбвў® § 票о "†" Ё ᥬҐ©®Ґ Ї®«®¦ҐЁҐ
а ўҐбвў® "Ѓ" Ё«Ё "ђ". …б«Ё ЇаҐ¤гб«®ўЁҐ «®¦®, ўў®¤ ў GET-Ї®«Ґ
ўв®¬ вЁзҐбЄЁ Їа®ЇгбЄ Ґвбп; ў GET-Ї®«Ґ Ґ Ї®пўЁвбп ¬Ґаж ойЁ© Єгаб®а.
‚ла ¦ҐЁп "min","max" Ї®б«Ґ б«®ў RANGE ЇаҐ¤бв ў«пов Ё¬Ґм襥
Ё ЁЎ®«м襥 Ё§ ў®§¬®¦ле § 票© GET-ЇҐаҐ¬Ґ®©. …б«Ё ўў®¤Ё¬®Ґ
§ 票Ґ ўл室Ёв Ё§ § ¤ ®Ј® ¤Ё Ї §® , в® ¦ вЁҐ Є« ўЁиЁ
Enter Ё«Ё § Ї®«ҐЁҐ Ї®б«Ґ¤Ґ© Ї®§ЁжЁЁ GET-Ї®«п ўл§лў Ґв §ўгЄ®ў®©
бЁЈ « Ё гЄ § ЁҐ ¤Ё Ї §® ў Їа ў®¬ ўҐа奬 гЈ«г нЄа ; § 票Ґ
GET-ЇҐаҐ¬Ґ®© Ґ Ё§¬ҐпҐвбп. ‚ п§лЄҐ FOXPRO «оЎ п Ё§ Ја Ёж ¬®¦Ґв
Ўлвм ®ЇгйҐ , в®Ј¤ б¬лб«®¬ Їа®ўҐаЄЁ Ўг¤Ґв "Ґ Ў®«миҐ"("Ґ ¬ҐмиҐ").
‹®ЈЁзҐбЄ®Ґ ўла ¦ҐЁҐ, § ЇЁблў Ґ¬®Ґ Ї®б«Ґ VALID (Ї®бвгб«®ўЁҐ),
Ї®§ў®«пҐв § ЇЁблў вм бЄ®«м гЈ®¤® б«®¦го Їа®ўҐаЄг ўў®¤Ё¬®Ј® § 票п
(ў Ї®бвгб«®ўЁЁ ¬®¦® ЁбЇ®«м§®ў вм дгЄжЁо Ї®«м§®ў ⥫п), ЇаЁзҐ¬
ў ®в«ЁзЁҐ ®в Їа®ўҐаЄЁ ¤Ё Ї §® § 票Ґ Ї® 㬮«з Ёо в Є¦Ґ
Ї®¤ўҐаЈ Ґвбп Є®ва®«о - Є®Ј¤ Ї®«м§®ў вҐ«м ¦Ё¬ Ґв Є« ўЁиг Enter.
€ ЇаЁ Їа®ўҐаЄҐ ¤Ё Ї §®, Ё ЇаЁ Їа®ўҐаЄҐ Ї®бвгб«®ўЁп Їа®жҐбб
ўў®¤ Ґ § ўҐаи Ґвбп ¤® вҐе Ї®а, Ї®Є Ї®«м§®ў вҐ«м Ґ ¤ бв Їа ўЁ«м®Ј®
§ 票п GET-ЇҐаҐ¬Ґ®©: ¤® нв®Ј® ¦Ё¬ вм Enter ЎҐбЇ®«Ґ§®.
GET-и Ў«® бва®Ёвбп Ї® ⥬ ¦Ґ Їа ўЁ« ¬, Є Є Ё SAY-и Ў«® (б¬.
Ї. 1.13). ‚ дгЄжЁпе д®а¬ вЁа®ў Ёп, Єа®¬Ґ бЁ¬ў®«®ў, гЄ § ле ў
в Ў«. 1.4, ЁбЇ®«м§говбп б«Ґ¤гойЁҐ бЇҐжЁ «млҐ бЁ¬ў®«л:
A - а §аҐи Ґв в®«мЄ® ЎгЄўл ЇаЁ ўў®¤Ґ бва®ЄЁ бЁ¬ў®«®ў;
K - § ¬ҐпҐв § 票Ґ Ї® 㬮«з Ёо Їа®ЎҐ« ¬Ё (б¬. ЇаЁ¬Ґа 1.23),
в®«мЄ® Ґб«Ё ЇҐаў®© ¦ в®© Є« ўЁиҐ© Ґ пў«пҐвбп Є« ўЁи гЇа ў«ҐЁп
Єгаб®а®¬, в.Ґ. ®бв ў«Ґ ў®§¬®¦®бвм । ЄвЁа®ў Ёп § зҐЁп Ї® 㬮«з Ёо;
S<а §¬Ґа GET-Ї®«п> - ®ЇаҐ¤Ґ«пҐв ¬ҐмиЁ©, 祬 ¤«Ё । ЄвЁа㥬®©
бва®ЄЁ, а §¬Ґа GET-Ї®«п; ¦ вЁп¬Ё Є« ўЁи ->, <- ¬®¦® ®бгйҐбвў«пвм
"Їа®ЄагвЄг" ⥪бв бва®ЄЁ ў GET-Ї®«Ґ, Є Є бў®ҐЈ® த ®ЄҐ.
‚ ¬ бЄҐ бЁ¬ў®« A ¬ бЄЁагҐв ЎгЄўг, 9 - жЁдаг, N - ЎгЄўг Ё«Ё
жЁдаг; ўў®¤ Ё®Ј® бЁ¬ў®« ў ᮮ⢥вбвўгойго Ї®§ЁжЁо Ў«®ЄЁагҐвбп.
‘Ё¬ў®« X а §аҐи Ґв ўў®¤ «оЎле § Є®ў, бЁ¬ў®« # - ўў®¤ жЁда, § Є
зЁб« Ё«Ё Їа®ЎҐ« . ЏаЁ¬Ґа: ¬ бЄ "AAA#99#99" ¬®¦Ґв Ўлвм ЁбЇ®«м§®ў
¤«п ўў®¤ ўв®¬®ЎЁ«м®Ј® ®¬Ґа . Џ®бЄ®«мЄг ¤ҐдЁб Ё § Є зЁб«
Ё§®Ўа ¦ овбп ®¤Ё¬ § Є®¬, ¬л ЇаЁ¬ҐЁ«Ё бЁ¬ў®« #, ¬ бЄЁагп ¤ҐдЁб.
ЌҐ®Ўп§ ⥫мл© ваЁЎгв COLOR ®ЎкпбпҐвбп ў Ї. 7.1.
‡ ¤ ЁҐ 1.14. ЋбгйҐб⢨⥠ўлў®¤ ў Єа ⮬ жЁЄ«Ґ б Ї®¬®ймо
®¤®© Є®¬ ¤л SAY н«Ґ¬Ґв®ў зЁб«®ў®Ј® ¬ ббЁў A ў б«Ґ¤го饬 ўЁ¤Ґ:
A(1,1) = ... A(1,2) = ... A(1,3) = ...
A(2,1) = ... A(2,2) = ... A(2,3) = ...
(в஥в®зЁп¬Ё Ї®Є § ® ¬Ґбв® ўлў®¤ § 票© н«Ґ¬Ґв®ў).
1.15. ‘®§¤ Ґ¬ бўҐв®ўлҐ ¬Ґо - PROMPT-¬Ґо
PROMPT-¬Ґо ЇаҐ¤« Ј Ґв ўлЎ®а Ё§ ҐбЄ®«мЄЁе ЇгЄв®ў ¬Ґо (¤® 32
ў CLIPPER, ¤® 128 - ў FOXPRO), Є ¦¤л© Ё§ Є®в®але ЇаҐ¤бв ў«пҐв бва®Єг
бЁ¬ў®«®ў, ЇаЁ¬Ґа "‘®§¤ ЁҐ", "Љ®а४вЁа®ўЄ " Ё в.Ї. Ћ¤Ё Ё§
ЇгЄв®ў ўл¤Ґ«Ґ (Ї®¤бўҐзҐл© Їаאַ㣮«мЁЄ), ҐЈ® §®ўҐ¬ ЄвЁўл¬.
—в®Ўл ᤥ« вм ЄвЁўл¬ ¤агЈ®© ЇгЄв, Їаאַ㣮«мЁЄ " ¤ўЁЈ ов"
ҐЈ® Є« ўЁи ¬Ё гЇа ў«ҐЁп Єгаб®а®¬. ЂЄвЁўл© ЇгЄв бв ®ўЁвбп
ўлЎа л¬ ЇгЄв®¬ ЇаЁ ¦ вЁЁ Є« ўЁиЁ Enter.
Љ®¬ ¤ PROMPT бв®«мЄ®, бЄ®«мЄ® ЇгЄв®ў, Ё ®Ё а §¬Ґй ов ЇгЄвл
¬Ґо, ЁЎ® ў Є ¦¤®© Ё§ Ёе § ¤ л Є®®а¤Ё вл Y,X «Ґў®Ј® Єа п ЇгЄв :
@ Y, X PROMPT <‚лаC1> MESSAGE <‚ла‘2>,
<‚лаC1> ЇаҐ¤бв ў«пҐв ⥪бв ЇгЄв , Ґ®Ўп§ ⥫млҐ н«Ґ¬Ґвл MESSAGE
<‚лаC2> ®ЎҐбЇҐзЁў ов ўл¤ зг Ї®пбҐЁп Є ЇгЄвг ¬Ґо. ЏгЄвл ¬Ґо
Ї®«гз ов ®¬Ґа (ҐпўлҐ) Ї® Ї®ап¤Єг б«Ґ¤®ў Ёп Є®¬ ¤ PROMPT.
Љ®®а¤Ё вл Y, X ¬®Јгв Ўлвм ®в®бЁвҐ«мл¬Ё, ЇаЁ¬Ґа: @ ROW(), COL()+5,
Ј¤Ґ ROW(), COL() - ®¬Ґа ⥪гйЁе бва®ЄЁ Ё бв®«Ўж . Ќ ¤® Ё¬Ґвм ў
ўЁ¤г, зв® Ї®б«Ґ ўлЇ®«ҐЁп Є®¬ ¤л PROMPT Єгаб®а бЇа ў ®в ЇгЄв .
Љ®¬ ¤ MENU TO <ЏҐаҐ¬Ґ п> ¤Ґ« Ґв ЄвЁўл¬ 1-© ЇгЄв ¬Ґо,
ўЄ«оз Ґв ¬Ґе Ё§¬л ЇҐаҐ¬ҐйҐЁп Ї® ¬Ґо Ё ўл¤ зЁ Ї®пᥨ©, Є®Ј¤
ўлЎ®а ᤥ« , ЇаЁбў Ёў Ґв <ЏҐаҐ¬Ґ®©> ®¬Ґа ўлЎа ®Ј® ЇгЄв
(Ґб«Ё ¦ вЁҐ¬ Esc ®бгйҐбвў«Ґ ®вЄ § ®в ўлЎ®а , ЇаЁбў Ёў Ґвбп 0).
Ќ зЁ ов ўлЇ®«пвмбп б«Ґ¤гойЁҐ Є®¬ ¤л, Ј¤Ґ <ЏҐаҐ¬Ґ п> ЁбЇ®«м§гҐвбп
Є Є гЇа ў«пой п ў бвагЄвгॠDO CASE ... ENDCASE Ё«Ё IF ... ENDIF.
ЏаЁ¬Ґа 1.24. ‚ҐавЁЄ «м®Ґ ¬Ґо Ё§ ¤ўге ЇгЄв®ў:
@ 5,21 PROMPT "‘®§¤ ЁҐ Ў §л ¤ ле"
@ 7,21 PROMPT "Ќ Ї®«ҐЁҐ Ў §л ¤ ле"
MENU TO j //ЏаЁбў®ҐЁҐ ЇҐаҐ¬Ґ®© j ®¬Ґа ўлЎа ®Ј® ЇгЄв
DO CASE
CASE j = 1
<„Ґ©бвўЁп Ї® ᮧ¤ Ёо Ў §л ¤ ле>
CASE j = 2
<„Ґ©бвўЁп Ї® Ї®«ҐЁо Ў §л ¤ ле>
ENDCASE
Њл ¬®Ј«Ё Ўл ¤®Ў ўЁвм ваЁЎгв MESSAGE, ЇаЁ¬Ґа, ў 1-о Є®¬ ¤г:
@ 5,21 PROMPT "‘®§¤ ЁҐ Ў §л ¤ ле" MESSAGE "‡ ЇЁбм бвагЄвгал Ў §л"
„®Ў ў«Ґ®Ґ Ї®пᥨҐ ўлᢥ稢 Ґвбп ў бва®ЄҐ б ®¬Ґа®¬ <‚лаN>,
в®«мЄ® Ґб«Ё ¤® Є®¬ ¤л MENU TO j § ЇЁб Є®¬ ¤ SET MESSAGE TO <‚лаN>
CENTER. ЌҐ®Ўп§ ⥫мл© ваЁЎгв CENTER § ¤ ов, Ґб«Ё б®®ЎйҐЁҐ ¤®
жҐваЁа®ў вм ў бва®ЄҐ. Љ®¬ ¤ SET MESSAGE TO ЎҐ§ аЈг¬Ґв ®в¬ҐпҐв
ўлў®¤ б®®ЎйҐЁ©. ‚ CLIPPER Є®¬ ¤ SET WRAP ON ®ЎҐбЇҐзЁў Ґв жЁЄ«Ёз®бвм
®ЎҐЈ Ёп ¬Ґо (®в Ї®б«Ґ¤ҐЈ® ЇгЄв ЇҐаҐе®¤ Є ЇҐаў®¬г Ё ®Ў®а®в).
ЏгЄвл PROMPT-¬Ґо ¬®¦® а §¬Ґй вм Їа®Ё§ў®«мл¬ ®Ўа §®¬.
‡ ¤ ЁҐ 1.15. ‘¤Ґ« ©вҐ Ё ЁбЇл⠩⥠Ј®аЁ§®в «м®Ґ ¬Ґо б
ЇгЄв ¬Ё "ЉЂ‡Ќ€’њ", "Ќ…‹њ‡џ", "ЏЋЊ€‹Ћ‚Ђ’њ", ЇаЁзҐ¬ ¤«п ЇгЄв "ЉЂ‡Ќ€’њ"
ᤥ« ©вҐ ўҐавЁЄ «м®Ґ Ї®¤¬Ґо б ЇгЄв ¬Ё "Џђ…‡ђ…Ќ€…Њ", "„€””ЂЊЂ–€…‰"
Ё в.Ї. €бЇ®«м§г©вҐ ®в®бЁвҐ«млҐ Є®®а¤Ё вл. Љ ЇгЄвг "ЉЂ‡Ќ€’њ"
ўлў®¤ЁвҐ Ї®пᥨҐ ў 24-© бва®ЄҐ (ЇаЁ¬ҐЁвҐ ваЁЎгв MESSAGE):"€¬ҐҐвбп
ў ўЁ¤г Ґ дЁ§ЁзҐбЄ п, ¬®а «м п Є §м". ЏгЄв "Ќ…‹њ‡џ" ЁбЇ®«м§г©вҐ
¤«п ўл室 Ё§ ¬Ґо.
‡ЂЉ‹ћ—…Ќ€… Љ 1-‰ ѓ‹Ђ‚…. ‡Ђ„ЂЌ€џ
ЏаЁ а бᬮв२Ё ®б®ў п§лЄ ў ¤ ®© Ј« ўҐ ¬Ё Ї®Є §
®Ўй®бвм п§лЄ бЁб⥬ CLIPPER Ё FOXPRO. ЏаЁжЁЇЁ «млҐ а §«ЁзЁп Ё
а §«ЁзЁп ў ў®§¬®¦®бвпе а бб¬ ваЁў овбп ў® 2 Ё 3 а §¤Ґ« е ЄЁЈЁ.
Љ ¦¤ п Ё§ ⥬, Ўг¤м в® ўла ¦ҐЁп п§лЄ , Ў«®з п бвагЄвга Їа®Ја ¬¬,
ЇҐаҐ¬ҐлҐ, ЇаЁбў Ёў ЁҐ Ё ўў®¤-ўлў®¤, GET-бЁб⥬ , Ї®«гзЁв а §ўЁвЁҐ
ў Ї®б«Ґ¤гойЁе Ј« ў е.
…б«Ё ўл ўлЇ®«Ё«Ё § ¤ Ёп, ў ¬Ё ¤®бвЁЈгв з «мл© га®ўҐм
Ї®¤Ј®в®ўЄЁ, Ї®§ў®«пойЁ© бва®Ёвм ®¤®Ў«®злҐ Їа®Ја ¬¬л Ё Їа®Ја ¬¬л б
Їа®б⥩訬Ё Їа®жҐ¤га ¬Ё, Ї®Є ЎҐ§ ЁбЇ®«м§®ў Ёп д ©«®ў Ў § ¤ ле,
Ё ўлЇ®«пвм Ёе ќ‚Њ. “¤Ґ«ЁвҐ ®б®Ў®Ґ ўЁ¬ ЁҐ а Ў®вҐ б® бва®Є ¬Ё,
ЁЎ® ў Ў § е ¤ ле бЁ¬ў®«мл© вЁЇ ¤®¬ЁЁагҐв ¤ ¤агЈЁ¬Ё.
…б«Ё ўл Ґ ᬮЈ«Ё ўлЇ®«Ёвм Є Є®Ґ-«ЁЎ® Ё§ § ¤ Ё©, вй ⥫м®
Ё§гзЁвҐ ®вўҐв Є Ґ¬г (ў Є®жҐ ЄЁЈЁ). ЌҐ «ЁиЁ¬ Ўг¤Ґв ¤Ґ« вм нв®
ўбҐЈ¤ , Є®Ј¤ ў и ॠ«Ё§ жЁп § ¤ Ёп Ґ б®ўЇ ¤ Ґв б ®вўҐв®¬,
Ўг¤гзЁ, ў®§¬®¦®, Їа ўЁ«м®©. Џ®бв㯨⥠⠪ Ё ЇаЁ ўлЇ®«ҐЁЁ
б«Ґ¤го饣® Ё¦Ґ § ¤ Ёп.
‡ ¤ ЁҐ 1*. €бЇ®«м§гп Є®¬ ¤л @ ... SAY, @ ... GET Ё бвагЄвгаг
DO CASE, Ї®бвன⥠Їа®б⥩襥 ¬Ґо ¤«п ўлЎ®а ®¤®Ј® Ё§ ¤Ґ©бвўЁ©:
) 㬥миҐЁп ЇҐаҐ¬Ґ®© K 1; Ў) ҐҐ 㢥«ЁзҐЁп 1;
ў) ўлў®¤ ҐҐ § зҐЁп ў 7-© бва®ЄҐ б 9-© Є®«®ЄЁ Є®¬ ¤®© "??".
Љ®¬ ¤л SAY ЇаЁ¬ҐЁвҐ ¤«п ўлў®¤ ЇгЄв®ў ¬Ґо "1. “¬Ґм襨Ґ",
"2. “ўҐ«ЁзҐЁҐ", "3. ‚лў®¤", Є®¬ ¤г @ ... SAY ... GET - ¤«п
гЄ § Ёп (ўў®¤ ) ®¬Ґа ўлЎа ®Ј® Ї®«м§®ў ⥫Ґ¬ ЇгЄв . ќв®в ®¬Ґа
ЁбЇ®«м§г©вҐ Є Є гЇа ў«пойго ЇҐаҐ¬Ґго ў бвагЄвгॠDO CASE...ENDCASE.
Џ®«гзЁў а Ў®в о饥 ¬Ґо, ®Ў¤г¬ ©вҐ Ё§¬ҐҐЁҐ Їа®Ја ¬¬л,
®ЎҐбЇҐзЁў о饥 ЁбЇ®«м§®ў ЁҐ ¬Ґо ¤«п Ї®б«Ґ¤®ў ⥫쮣®, ў®§¬®¦®,
Ґ®¤®Єа в®Ј® ўлЎ®а Є ¦¤®Ј® Ё§ гЄ § ле ¤Ґ©бвўЁ©.
‡ ¤ ЁҐ 2*. ‘®бв ўм⥠横«ЁзҐбЄго Їа®Ја ¬¬г ¤«п Ї®«г票п
§ 票© дгЄжЁЁ Sin(x)/x ¤«п x = 0.1, 0.2, 0.3, ... ,PI, б®еа ЁвҐ
в Ў«Ёжг Є Є ⥪бв®ўл© д ©« (б¬. Ї. 1.13) Ё ўлўҐ¤ЁвҐ ЇаЁвҐа,
а бЇ®« Ј п ў бва®ЄҐ Ї® 10 § 票©. Џа® «Ё§Ёаг©вҐ ў®§¬®¦®бвЁ
Ј«п¤®Ј® ®д®а¬«ҐЁп в Ў«Ёжл, ЇаЁ¬Ґа ЇҐз в Ёп ў ®в¤Ґ«м®© бва®ЄҐ
§ 票© аЈг¬Ґв x.
Соседние файлы в папке материалы по FoxPro