Ieienoa?noai ia?aciaaiey, eoeueoo?u e cae?aaiio?aiaiey
?anioaeeee Eacaonoai
Aeiaoeineee AOC eiaeono?ee, yeiiiieee e eeaa?iaoeee
Oaeoeueoao eioi?iaoeee
Eaoaae?a oaoie/aneie eeaa?iaoeee
Iiynieoaeueiay caienea
e eo?niaie ?aaioa ii i?aaeiaoo «sscuee e oaoiieiaee i?ia?aiie?iaaiey»
Oaia: «I?eiaiaiea ycueia i?ia?aiie?iaaiey aunieiai o?iaiy aeey
?aaeecaoeee /eneaiiuo iaoiaeia e i?eeeaaeiuo i?ia?aii»
Auiieiee nooaeaio 2-ai eo?na c.i.
A?eiaa I.A.
I?eiye no. i?ai. Eao. OE
Io?oaceia A.O.
Aeiaou 1998 a.
Aaaaeaiea
Aiaae?aiea YAI ai ana noa?u /aeiaa/aneie aeayoaeueiinoe o?aaoao io
niaoeeaeenoia ?aciiai i?ioeey iaeaaeaiey iaaueaie eniieueciaaiey
au/eneeoaeueiie oaoieee. Iiauoaaony o?iaaiue iiaeaioiaee nooaeaioia
aocia, eioi?ua oaea n ia?auo eo?nia i?eiauathony e eniieueciaaieth YAI e
i?inoaeoeo /eneaiiuo iaoiaeia, ia aiai?y oaea i oii, i?e /oi auiieiaiee
eo?niauo e aeeieiiiuo i?iaeoia i?eiaiaiea au/eneeoaeueiie oaoieee
noaiiaeony ii?iie a iiaeaaeythuai aieueoeinoaa aocia.
Au/eneeoaeueiay oaoieea eniieuecoaony nae/an ia oieueei a eiaeaia?iuo
?an/aoao e yeiiiie/aneeo iaoeao, ii e oaeeo o?aaeeoeeiiii
iaiaoaiaoe/aneeo niaoeeaeueiinoyo, eae iaaeeoeeia, eeiaaenoeea,
ineoieiaey. A nayce n yoei iiaeii eiinoaoe?iaaoue, /oi i?eiaiaiea YAI
i?eia?aei ianniaue oa?aeoa?. Aicieeea iiiai/eneaiiay eaoaai?ey
niaoeeaeenoia – iieueciaaoaeae YAI, eioi?ui iaiaoiaeeiu ciaiey ii
i?eiaiaieth YAI a naiae io?anee – iaauee ?aaiou n oaea eiathueiny
i?ia?aiiiui iaania/aieai, a oae aea nicaeaiey naiaai nianoaaiiiai II,
i?eniiniaeaiiiai aeey ?aoaiey eiie?aoiie caaea/e. E caeanue ia iiiiuue
iieueciaaoaeth i?eoiaeyo iienaiey ycueia i?ia?aiie?iaaiey aunieiai
o?iaiy (aeaeaa ssAO) e /eneaiiua iaoiaeu (aeaeaa *I).
*I ?ac?aaaouaatho e enneaaeotho, eae i?aaeei, aunieieaaeeoeoee?iaaiiua
niaoeeaeenou-iaoaiaoeee. Aeey aieueoeinoaa iieueciaaoaeae aeaaiie
caaea/ae yaeyaony iiieiaiea iniiaiuo eaeae e iaoiaeia, iniaaiiinoae e
iaeanoae i?eiaiaiey.
Iaeiaei, iieueciaaoaee oioyo ?aaioaoue n YAI ia oieueei eae n
aunieieioaeeaeooaeueiui eaeueeoeyoi?ii, a aua e eae n iiiiuieeii a
iianaaeiaaiie ?aaioa, o?aieeeuai eioi?iaoeee n auno?ui e oii?yaei/aiiui
aeinooiii, a oae aea n enoi/ieeii e ia?aaio/eeii a?aoe/aneie
eioi?iaoeee. Ana yoe ooieoeee nia?aiaiiie YAI y i?aaeiieaaath
i?iaeaiiino?e?iaaoue a ianoiyuae eo?niaie ?aaioa.
A ia?aie /anoe ?aaiou i?aaenoaaeaia i?ia?aiia ii iaoiaeaeaieth ei?iae
nenoaiu ec aeaoo iaeeiaeiuo o?aaiaiee iaoiaeaie Iuethoiia e i?inouo
eoa?aoeee.
Ai aoi?ie /anoe iiae ?aaiou i?aaenoaaeaia i?ia?aiia, aeaiiino?e?othuay
iieueciaaoaeth anth iiuue e iiiaiia?acea a?aoe/aneeo aiciiaeiinoae
nia?aiaiiuo IE ia i?eia?a i?eiaiaiey a?aoe/aneeo ooieoeee ycuea N++ n
eniieueciaaieai VGA-a?aoeee.
A o?aoueae /anoe ?aaiou i?aaenoaaeaia i?ia?aiia «Yeaeo?iiiie caieniie
eieaeee», eioi?ay eiaao e i?aeoe/aneia cia/aiea aeey iieueciaaoaeae
iaeiiiuiuo ia?niiaeueiuo eiiiuethoa?ia e IE aeieiioia n iaeui aeeneiaui
?ano?nii aeey eioi?uo ia?aioaaaeueia yenieoaoaoeey II oeia Lotus
Organizer e iiaeiaiuo II n iiuiui a?aoe/aneei eioa?oaenii.
E iiaio niaeaeaieth ec-ca ionoonoaey iaiaoiaeeiiai ni?aai/iiai iaoa?eaea
iia ia oaeaeinue i?iaeaiiino?e?iaaoue a o?aoueae /anoe SUPER
VGA-a?aoeeo, ii yoi aeaei iaaeaeaeiai aoaeouaai. Ia?aay e aoi?ay /anoe
?aaiou auiieiaiu n i?eiaiaiea ycuea N++ oe?iu Borland aa?nee 3.1 aeey
DOS e WINDOWS, a o?aouey /anoue auiieiaia ia ssAO «Oo?ai Ianeaeue»
aa?nee 7.0 aeey DOS e WINDOWS oe?iu Borland n i?eiaiaieai n?aaenoa TURBO
VISION.
Oai?aoe/aneay /anoue.
Yoaiu ?aoaiey caaea/e ia YAI.
Iaeaieaa yooaeoeaiia i?eiaiaiea AO iaoea i?e i?iaaaeaiee o?oaeiaieeo
?an/aoia a iao/iuo enneaaeiaaieyo e eiaeaia?iuo ?an/aoao. I?e ?aoaiee
caaea/e ia YAI iniiaiay ?ieue ana-oaee i?eiaaeeaaeeo /aeiaaeo. Iaoeia
eeoue auiieiyao aai caaeaiey ii ?ac?aaioaiiie i?ia?aiia. ?ieue /aeiaaea
e iaoeiu eaaei oynieoue, anee i?ioeann ?aoaiey caaea/e ?acaeoue ia
ia?a/eneaiiua ieaea yoaiu.
Iinoaiiaea caaea/e. Yoio yoai caeeth/aaony a niaea?aeaoaeueiie
(oece/aneie) iinoaiiaea caaea/e e ii?aaeaeaiee eiia/iuo ?aoaiee.
Iino?iaiea iaoaiaoe/aneie iiaeaee. Iiaeaeue aeieaeia i?aaeeueii
(aaeaeaaoii) iienuaaoue iniiaiua caeiiu oece/aneiai i?ioeanna.
Iino?iaiea eee auai? iaoaiaoe/aneie iiaeaee ec nouanoaothueo o?aaoao
aeoaieiai iiieiaiey i?iaeaiu e ciaiey niioaaonoaothueo ?acaeaeia
iaoaiaoeee.
?ac?aaioea *I. Iineieueeo YAI iiaeao auiieiyoue eeoue i?inoaeoea
iia?aoeee, iia «ia iiieiaao» iinoaiiaee caaea/e, aeaaea a iaoaiaoe/aneie
oi?ioee?iaea. Aeey aa ?aoaiey aeieaeai auoue iaeaeai /eneaiiue iaoiae,
iicaieythuee naanoe caaea/o e iaeioi?iio au/eneeoaeueiiio aeai?eoio. A
eaaeaeii eiie?aoiii neo/aa iaiaoiaeeii aua?aoue iiaeoiaeyuaa ?aoaiea ec
oaea ?ac?aaioaiiuo noaiaea?oiuo.
?ac?aaioea aeai?eoia. I?ioeann ?aoaiey caaea/e(au/eneeoaeueiue
i?ioeann) caienuaaaony a aeaea iineaaeiaaoaeueiinoe yeaiaioa?iuo
a?eoiaoe/aneeo e eiae/aneeo iia?aoeee, i?eaiaeyuae e eiia/iiio
?acoeueoaoo e iacuaaaiie aeai?eoiii ?aoaiey caaea/e.
I?ia?aiie?iaaiea. Aeai?eoi ?aoaiey caaea/e caienuaaaony ia iiiyoiii
iaoeia ycuea a aeaea oi/ii ii?aaeaeaiiie iineaaeiaaoaeueiinoe iia?aoeee
– i?ia?aiiu. I?ioeann iau/ii i?iecaiaeeony n iiiiuueth iaeioi?iai
i?iiaaeooi/iiai ycuea, a aa o?aineyoeey inouanoaeyaony naiie iaoeiie e
aa nenoaiie.
Ioeaaeea i?ia?aiiu. Ninoaaeaiiay i?ia?aiia niaea?aeeo ?aciiai ?iaea
ioeaee, iaoi/iinoe, iienee. Ioeaaeea aeeth/aao eiio?ieue i?ia?aiiu,
aeeaaiinoeeo (iiene e ii?aaeaeaiea niaea?aeaiey) ioeaie, e eo
ono?aiaiea. I?ia?aiia eniuouaaaony ia ?aoaiee eiio?ieueiuo (oanoiauo)
caaea/ aeey iieo/aiey oaa?aiiinoe a aeinoiaa?iinoe ?acoeueoaoia.
I?iaaaeaiea ?an/aoia. Ia yoii yoaia aioiayony enoiaeiua aeaiiua aeey
?an/aoia e i?iaiaeeony ?an/ao ii ioeaaeaiiie i?ia?aiia. i?e yoii aeey
oiaiueoaiey ?o/iiai o?oaea ii ia?aaioea ?acoeueoaoia iiaeii oe?iei
eniieueciaaoue oaeiaiua oi?iu auaea/e ?acoeueoaoia a aeaea oaenoiaie e
a?aoe/aneie eioi?iaoeee, a iiiyoiii aeey /aeiaaea aeaea.
Aiaeec ?acoeueoaoia. ?acoeueoaou ?an/aoia ouaoaeueii aiaeece?othony,
ioi?ieyaony iao/ii-oaoie/aneay aeieoiaioaoeey.
Iaoaiaoe/aneea iiaeaee.
Iniiaiia o?aaiaaiea, i?aaeuyaeyaiia e iaoaiaoe/aneie iiaeaee, –
aaeaeaaoiinoue ?anniao?eaaaiiio i?ioeanno, yaeaieth, o.a. iia aeieaeia
aeinoaoi/ii oi/ii ( a ?aieao aeiionoeiie iia?aoiinoe) io?aaeaoue
oa?aeoa?iua /a?ou yaeaiey. Aianoa n oai iia aeieaeia iaeaaeaoue
n?aaieoaeueiie i?inoioie e aeinooiiinoueth enneaaeiaaiey.
Aaeaeaaoiinoue e n?aaieoaeueiay i?inoioa iiaeaee ia en/a?iuaatho
i?aaeuyaeyaiuo e iae o?aaiaaiee. Iaiaoiaeeii ia?aoeoue aieiaiea ia
i?aaeeueiinoue ioeaiee iaeanoe i?eiaieiinoe iaoaiaoe/aneie iiaeaee.
Iai?eia?, iiaeaeue naiaiaeii iaaeathuaai oaea, a eioi?ie i?aiaa?aaee
nii?ioeaeaieai aicaeooa, aanueia yooaeoeaia aeey oaa?aeuo oae n aieueoie
e n?aaeiae ieioiinoueth e oi?iie iiaa?oiinoe, aeeceie e noa?e/aneie.
Aianoa n oai, a ?yaea ae?oaeo neo/aaa aeey ?aoaiey caaea/e oaea ia
aeinoaoi/ii ecaanoiuo ec eo?na oeceee i?inoaeoeo oi?ioe. Caeanue
iaiaoiaeeiu aieaa neiaeiua iaoaiaoe/aneea iiaeaee, o/eouaathuea
nii?ioeaeaiea aicaeooa e i?i/ea oaeoi?u. Ioiaoei, /oi oniao ?aoaiey
caaea/e a cia/eoaeueiie noaiaie ii?aaeaeyaony auai?ii iaoaiaoe/aneie
iiaeaee; caeanue a ia?aoth i/a?aaeue ioaeiu aeoaieea ciaiey oie iaeanoe,
e eioi?ie i?eiaaeeaaeeo iinoaaeaiiay caaea/a. E?iia oiai, iaiaoiaeeiu
ciaiey niioaaonoaothueo ?acaeaeia iaoaiaoeee e aiciiaeiinoae YAI.
*eneaiiua iaoiaeu.
N iiiiuueth iaoaiaoe/aneiai iiaeaee?iaaiey ?aoaiea iao/ii-oaoie/aneie
caaea/e naiaeeony e ?aoaieth iaoaiaoe/aneie caaea/e, yaeythuaeny aa
iiaeaeueth. Aeey ?aoaiey iaoaiaoe/aneeo caaea/ eniieuecothony iniiaiua
a?oiiu iaoiaeia: a?aoe/aneea, aiaeeoe/aneea, /eneaiiua.
A?aoe/aneea iaoiaeu iicaieytho a ?yaea neo/aaa ioeaieoue ii?yaeie
eneiiie aaee/eiu. Iniiaiay eaeay yoeo iaoiaeia ninoieo a oii, /oi
?aoaiea iaoiaeeony iooai aaiiao?e/aneeo iino?iaiee. Iai?eia?, aeey
iaoiaeaeaiey ei?iae o?aaiaiey f(x)=0 no?ieony a?aoee ooieoeee y=f(x),
oi/ee ia?ana/aiey eioi?iai n inueth aanoeenn e aoaeoo eneiiuie ei?iyie.
I?e eniieueciaaiee aiaeeoe/aneeo iaoiaeia ?aoaiea caaea/e oaeaaony
au?aceoue n iiiiuueth oi?ioe. A /anoiinoe, anee iaoaiaoe/aneay caaea/a
ninoieo a ?aoaiee i?inoaeoeo aeaaa?ae/aneeo eee o?ainoeaiaeaioiuo
o?aaiaiee, aeeooa?aioeeaeueiuo o?aaiaiee e o.i., oi eniieueciaaiea
ecaanoiuo ec eo?na iaoaiaoeee i?eaiia n?aco i?eaiaeeo e oeaee. E
niaeaeaieth, ia i?aeoeea yoi neeoeii ?aaeeea neo/ae.
Iniiaiui eino?oiaioii aeey ?aoaiey neiaeiuo iaoaiaoe/aneeo caaea/ a
ianoiyuaa a?aiy yaeythony /eneaiiua iaoiaeu, iicaieythuea naanoe ?aoaiea
caaea/e e auiieiaieth eiia/iiai /enea a?eoiaoe/aneeo aeaenoaee iaae
/eneaie; i?e yoii ?acoeueoaou iieo/athony a aeaea /eneiauo cia/aiee.
Iiiaea *I ?ac?aaioaiu aeaaii, iaeiaei i?e au/eneaieyo a?o/ioth iie iiaee
eniieueciaaoueny eeoue aeey ?aoaiey ia neeoeii o?oaeiaieeo caaea/.
N iiyaeaieai YAI ia/aeny ia?eiae ao?iiai ?acaeoey *I e eo aiaae?aiey a
i?aeoeeo. Oieueei au/eneeoaeueiie iaoeia iiae neeo auiieieoue ca
n?aaieoaeueii ei?ioeia a?aiy iauai au/eneaiee a ieeeeiiu, ieeeea?aeu e
aieaa iia?aoeee, iaiaoiaeeiuo aeey ?aoaiey iiiaeo caaea/. I?e n/aoa
a?o/ioth /aeiaaeo ia oaaoeei au aeecie aeey ?aoaiey iaeiie oaeie
caaea/e. *I ia?yaeo n aiciiaeiinoueth iieo/aiey ?acoeueoaoa ca
i?eaieaiia a?aiy aeieaeai iaeaaeaoue e aua iaeiei aaaeiui ea/anoaii – ia
aiineoue a au/eneeoaeueiue i?ioeann cia/eoaeueiuo iia?aoiinoae.
*eneaiiua iaoiaeu, eniieuecoaiua a aeaiiie ?aaioa.
I?e iaienaiee i?ia?aiiu ?aoaiey nenoaiu ec aeaoo iaeeiaeiuo o?aaiaiee
iiith eniieueciaaeenue aeaa ecaanoiuo e oe?iei i?eiaiyaiuo /eneaiiuo
iaoiaea. Yoi iaoiae Iuethoiia e iaoiae i?inouo eoa?aoeee.
Iaoiae Iuethoiia. Yoio iaoiae iaeaaeaao auno?ie noiaeeiinoueth e
n?aaieoaeueii oi?ioae oi/iinoueth au/eneaiee. A neo/aa iaeiiai o?aaiaiey
F(x)=0 aeai?eoi iaoiaea aue eaaei iieo/ai iooai caiene o?aaiaiey
eanaoaeueiie e e?eaie y=F(x). A iniiaa iaoiaea iuethoiia aeey nenoaiu
o?aaiaiee eaaeeo eniieueciaaiea ?aceiaeaiey ooieoeee Fi(x1,x2,…xn) a
?yae Oaeei?a, i?e/ai /eaiu, niaea?aeauea aoi?ua (e aieaa aunieeo
ii?yaeeia) i?iecaiaeiua, ioa?anuaathony.
Ionoue i?eaeeaeaiiua cia/aiey iaecaanoiuo nenoaiu o?aaiaiee
F1(x1,x2,…xn)=0,
F2(x1,x2,…xn)=0,
……………. (1)
Fn(x1,x2,…xn)=0,
(iai?eia?, iieo/aiiua ia i?aaeuaeouae eoa?aoeee) ?aaiu niioaaonoaaiii
a1,a2,…an. Caaea/a ninoieo a iaoiaeaeaiee i?e?auaiee (iii?aaie) e yoei
cia/aieyi Dx1, Dx2,…., Dxn, aeaaiaea?y eioi?ui ?aoaiea nenoaiu (1)
caieoaony a aeaea:
xi=ai+ Dx1, x2=a2+ Dx2,…,xn,=an+ Dxn. (2)
I?iaaaeai ?aceiaeaiea eaauo /anoae o?aaiaiee (1) a ?yae Oaeei?a,
ia?aie/eaaynue eeoue eeiaeiuie /eaiaie ioiineoaeueii i?e?auaiee:
……………………………………….
.
Iineieueeo a niioaaonoaee n (1) eaaua /anoe yoeo au?aaeaiee aeieaeiu
ia?auaoueny a ioeue, oi i?e?aaiyai ioeth e i?aaua /anoe. Iieo/ei
neaaeothuoth nenoaio eeiaeiuo aeaaa?ae/aneeo o?aaiaiee ioiineoaeueii
i?e?auaiee:
=-F1
=-F2 (2)
……………………….
=-Fn
Cia/aiey F1,F2,…,Fn e eo i?iecaiaeiua au/eneythony i?e x1=a1,
x2=a2,…xn=an.
Ii?aaeaeeoaeai nenoaiu (2) yaeyaony yeiaeai:
Aeey nouanoaiaaiey aaeeinoaaiiiai ?aoaiey nenoaiu (2) ii aeieaeai auoue
ioee/iui io ioey ia eaaeaeie eoa?aoeee.
Oaeei ia?acii, eoa?aoeeiiiue i?ioeann ?aoaiey nenoaiu o?aaiaiee (1)
iaoiaeii Iuethoiia ninoieo a ii?aaeaeaiee i?e?auaiee Dx1, Dx2,… Dxn, e
cia/aieyi iaecaanoiuo ia eaaeaeie eoa?aoeee. N/ao i?ae?auaaony, anee ana
i?e?auaiey noaiiayony iaeuie ii aaniethoiie aaee/eia: max| Dxi|
#include //iienaiea ia?aiaiiuo, eniieuecoaiuo a i?ia?aiia double pi=3.14,a=1.8,b=-2.0,c=0.1,d=1.6,e=0.9,eps=0.000001; int i=0; double x,y; //iienaiey ooieoeee ?aoaiey iaoiaeaie Iuethoiia e i?inouo eoa?aoeee extern double newton(double xn,double yn); extern double iterac(double xn,double yn); int main(void) { //cai?in ia/aeueiiai i?eaeeaeaiey o iieueciaaoaey scanf(“%f”,&x); scanf(“%f”,&y); //auaiae ?acoeueoaoia /a?ac auciau ooieoeee ia ye?ai printf (“Ieii/aoaeueiia ?aoaiea ii iaoiaeo Iuethoiia\n”); printf (“%g\t%g\n”, newton(x,y)); printf (“Ieii/aoaeueiia ?aoaiea ii iaoiaeo eoa?aoeee\n”); printf (“%g\t%g\n”, iterac(x,y)); return (0); } //ooieoeey ?aoaiey nenoaiu o?aaiaiee iaoiaeii iuethoiia double newton(double xn,double yn) { double f1,f2,xxn,yyn; double df1dx,df1dy,df2dx,df2dy,dxy; do { i++; //iienaiey enoiaeiuo o?aaaiaiee f1=sin(xn+a)+b*yn+c; f2=cos(yn+d)+e*xn; //i?iecaiaeiua df1dx=cos(xn+a); df1dy=b; df2dx=e; df2dy=-sin(yn+d); //yeiaeai nenoaiu dxy=df1dx*df2dy-df1dy*df2dx; //i/a?aaeiia cia/aiea o xxn=xn-((f1*df2dy-f2*df1dy)/dxy); //i/a?aaeiia cia/aiea y yyn=yn+((f1*df2dx-f2*df1dx)/dxy); //i?iaa?ea oi/iinoe ?aoaiey e ieii/aiey n/aoa if (fabs(xxn-xn) #include #include #include #include #include #define NFONTS 11 char *Fonts[NFONTS] = { “Default_Font”, “Triplex_Font”, “Small_Font”, “SansSerif_Font”, “Gothic_Font”, “Script_Font”, “Simplex_Font”, “Complex_Font”, “European_Font”, “Bold_Font” }; int xmax,ymax,i=0,MaxColors; // //i?ioioeiu ooieoeee // void demoline(void); void democircle(void); void demopix(void); void demopieslice(void); void demotext (void); void MainWindow(char *header); void DrawBorder(void); void StatusLine(char *msg); void demoarcs(void); void demobars(void); void demo3dbars(void); void diagram(void); void endpage(void); void endpage1(void); void endpage2(void); // //ia/aei aeaaiie ooieoeee // int main(void) { /* aaoiiaoe/aneia ii?aaeaeaiea oeia aeaeaiaaeaioa?a */ int gdriver = DETECT, gmode, errorcode; char msg[80]; // eieoeeaeecaoeey a?aoe/aneeo e eieaeueiuo ia?aiaiiuo initgraph(&gdriver, &gmode, “”); xmax=getmaxx(); ymax=getmaxy(); // i?iaa?ea ?acoeueoaoia eieoeeaeecaoeee errorcode = graphresult(); if (errorcode != grOk) { printf(“Graphics error: %s\n”, grapherrormsg(errorcode)); printf(“Press any key to halt:”); getch(); exit(1); } //auciau ooieoeee demoline(); demopix(); demobars(); demo3dbars(); demopieslice(); diagram(); democircle(); demoarcs(); demotext(); endpage(); endpage1(); endpage2(); cleardevice(); closegraph(); return 0; } // //ooieoeey aeaiiino?aoeee eeiee // void demoline(void) { //oi?ie?iaaiea a?aoe/aneiai ieia e noaooniie no?iee MainWindow( “Line demonstration” ); StatusLine( “Press any key to continue…” ); //i?ioeann ?eniaaiey eeiee do { setcolor( random( MaxColors – random(15) ) + random(15) ); lineto (xmax,i); lineto (xmax,ymax); lineto (i,ymax); lineto (i+1,i+1); i=i+1;xmax=xmax-1;ymax=ymax-1; } while (xmax!=(xmax/2)); getch(); cleardevice(); clearviewport(); } // //ooieoeey aeaiiino?aoeee ie?oaeiinoae // void democircle(void) //xmax=getmaxx(); //ymax=getmaxy(); { MainWindow( “Circle demonstration” ); StatusLine( “Press any key to continue…” ); randomize(); moveto(random(xmax),random(ymax)); do { i++; //onoaiiaea neo/aeiiai oeaaoa setcolor( random( MaxColors – random(15) ) + random(15) ); circle(random(getmaxx()),random(getmaxy()),random(100)); } while( !kbhit() ); // iiaoi?aiea iiea ia iaaeaoa eeaaeoa getch(); clearviewport(); i=1; do { i++; setcolor( random( MaxColors – random(15) ) + random(15) ); circle(getmaxx()/2,getmaxy()/2,i); if (i==400) {setcolor(0); do {i–;circle(getmaxx()/2,getmaxy()/2,i);} while(i!=0);} } while( !kbhit() ); // iiaoi?aiea iiea ia iaaeaoa eeaaeoa getch(); cleardevice(); } // //ooieoeey aeaiiino?aoeee ?eniaaiey oi/ae a i?iecaieueiii //ii?yaeea // void demopix(void) { MainWindow( “Pix demonstration” ); StatusLine( “Press any key to continue…” ); do { i++; setcolor( random( MaxColors – random(15) ) + random(15) ); putpixel(random(getmaxx()),random(getmaxy()),random(15)); } while( !kbhit() ); // iiaoi?aiea iiea ia iaaeaoa eeaaeoa xmax=getmaxx(); ymax=getmaxy(); getch(); cleardevice(); } // //ooieoeey aeaiiino?aoeee ?eniaaiey naeoi?ia // void demopieslice(void) { MainWindow( “Pie Chart Demonstration” ); StatusLine( “Press any key to continue…” ); do { i++; setcolor(random( MaxColors – random(15) ) + random(15)); setfillstyle(random(12), getmaxcolor()); // setcolor(random( MaxColors – random(15) ) + random(15)); pieslice(random(getmaxx()),random(getmaxy()), random(360),random(360),random(150)); if(i>1000) {clearviewport();i=0;} } while( !kbhit() ); // iiaoi?aiea iiea ia iaaeaoa eeaaeoa getch(); clearviewport(); } // //e?oaiaay aeeaa?aiia // void diagram(void) { int sektors[] = {20,10,35,15,20}; char *percent[]={“20%”,”10%”,”35%”,”15%”,”20%”}; int secsize,k=0,i,r=150; MainWindow( “Pie Chart Demonstration” ); StatusLine( “Press any key to continue…” ); settextjustify(CENTER_TEXT,CENTER_TEXT); settextstyle(5,0,2);//onoaiiaea ao?eaooia oaenoa outtextxy( getmaxx()/2,25,”This is the pie chart diagramm”); //i?ioeann ?eniaaiey aeeaa?aiiu ii aeaiiui ec ianneaa for( i=0;i10000) {clearviewport();i=0;} } while( !kbhit() ); // iiaoi?aiea iiea ia iaaeaoa eeaaeoa getch(); clearviewport(); i=0; //?eniaaiea iiiaioaieueieeia n i?iecaieueiui oeaaoii do { i++; poly[0] = random(i+random(20));//1-aa?oeia poly[1] = random(random(ymax)/i+2); poly[2] = xmax-(i+20); /* 2-y */ poly[3] = i+20; poly[4] = xmax-(i+50); /* 3-y */ poly[5] = ymax-(i+20); poly[6] = i+xmax/2; /* 4-y */ poly[7] = i+ymax/2; /* drawpoly aaoiiaoe/anee ia cae?uaaao iiiaioaieueiee iiyoiio iaiaoiaeeii yoi naeaeaoue naiiio */ poly[8] = poly[0]; poly[9] = poly[1]; //?enoao iiiaioaieueieee, eciaiyy eii?aeeiaou aa?oei setcolor(random( MaxColors – random(15) ) + random(15)); drawpoly(5, poly); if(i>1000) {clearviewport();i=0;} } while( !kbhit() ); // iiaoi?aiea iiea ia iaaeaoa eeaaeoa getch(); clearviewport(); } // //ooieoeey aeaiiino?aoeee cae?aoaiuo iiiaioaieueieeia e //oeaaoia // void demobars(void) { MainWindow( “Bars and colors demonstration” ); StatusLine( “Press any key to continue…” ); int kxb=15,kyb=15; double stx,sty,x,y; stx=floor(getmaxx()/kxb); sty=floor(getmaxy()/kyb); do { for(x=3;x } while( !kbhit() ); // iiaoi?aiea iiea ia iaaeaoa eeaaeoa getch(); clearviewport(); } // //ooieoeey nicaeaiey caaa?oathuae no?aieoeu // void endpage(void) { MainWindow( “The cycle” ); StatusLine( “Press any key to continue…” ); int i,j,rad=50; do { for (i=0;i 0 then Rewrite(Datafile); OpFileF := IOResult=0; {$I+} if OpFileF then begin DisableCommands(WinCom2); EnableCommands(WinCom1); Work {ia?aoiae e ?aaioa} end end; end; {caseControl} Dispose(PF, Done) {oie/oiaeaiea yecaiiey?a} end; {FileOpen} {—————————} procedure TNotebook.FileSave; {cae?uaaao oaee aeaiiuo} begin Close(DataFile); OpFileF :=False; EnableCommands(WinCom2); {?ac?aoaiea ioe?uoue oaee} DisableCommands(WinCom1) {cai?auaiea ?aaiou e nio?aiaiea} end; {TNotebook.FileSave} {————————–} procedure TNotebook.ChangeDir; {eciaiyao oaeouee eaoaeia} var PD: PChDirDialog; {aeeaeiaiaia ieii niaiu eaoaeiaa aeenea} Control: Word; begin New(PD, Init(cdNormal,0)); {nicaeaiea aeeaeiaiaiai ieia} Control :=DeskTop^.ExecView(PD); {eniieueciaaiea ieia} ChDir(PD^.DirInput^.Data^); {onoaiiaea iiaiai eaoaeiaa} Dispose(PD, Done) {oaeaeaiea ieia ec eo/e} end; {TNotebook.ChangeDir} {————————-} procedure TNotebook.DOSCall; {a?aiaiiue auoiae a aein} const txt=’Aeey aica?aoa aaaaeeoa EXIT a ioaao’+ ‘ia i?eaeaoaiea AeIN…’; begin DoneEvents; {cae?uoue ia?aaio/ee niauoee} DoneVideo; {cae?uoue iiieoi? ye?aia} DoneMemory; {cae?uoue iiieoi? iaiyoe} SetMemTop(HeapPtr); {inaiaiaeeoue eo/o} writeln(‘Aaaaeeoa EXIT aeey aica?aoa’); {auaeaoue niiauaiea i SwapVectors; {onoaiiaeoue noaiaea?oiua aaeoi?u} {ia?aaeaoue oi?. eii. i?ioeanni?o aein} Exec(GetEnv(‘COMSPEC’),”); {aica?ao ec aein} SwapVectors; {ainnoaiiaeoue aaeoi?u} SetMemTop(HeapEnd); {ainnoaiiaeoue eo/o} InitMemory; {ioe?uoue iiieoi? iaiyoe} InitVideo; {ioe?uoue iiieoi? ye?aia} InitEvents; {ioe?uoue ia?aaio/ee niauoee} InitSysError; {ioe?uoue ia?aaio/ee ioeaie} Redraw {ainnoaiiaeoue aeae ye?aia} end; {DOSCall} {——————————} constructor TInterior.Init; {nicaeaao ieii ne?ieea?a} begin TScroller.Init(Bounds, HS, VS); ReadFile; GrowMode :=gfGrowHiX+gfGrowHiY; SetLimit(LLine, PS^.Count) end; {———————–} destructor TInterior.Done; begin Dispose(PS,Done); inherited Done end; {————————–} procedure TInterior.ReadFile; {/eoaao niaea?aeeiia oaeea aeaiiuo a iannea LINES} var k: Integer; s: String; Data: DataType; f: text; begin PS:= New(PStringCollection, Init(100,10)); seek(DataFile,0); while not (EOF(DataFile) or LowMemory) do begin Read(DataFile, data); with data do begin s:= Name; while Length(s) ” then PS^.Insert(NewStr(S)) end; Location:= 0; end; {ReadFile} {—————————-} procedure Tinterior.Draw; {auaiaeeo aeaiiua a ieii i?iniio?a} var n, {oaeouay no?iea ye?aia} k: integer; {oaeouay no?iea ianneaa} B: TDrawBuffer; Color: Byte; p: PString; begin if Delta.Y>Location then Location:= Delta.Y; if Location>Delta.Y+pred(Size.Y) then Location:= Delta.Y+pred(Size.Y); for n:= 0 to pred(Size.Y) do {Size.Y- eie-ai no?ie ieia} begin k:= Delta.Y+n; if k=Location then Color:= GetColor(2) else Color:= GetColor(1); MoveChar(B,’ ‘,Color,Size.X); if k write(DataFile,Data) {aea – aeiaaaeyai a oaee} end until Edit or (Control=cmCancel); Draw end; {AddItem} {——————–} procedure SearchItem; {euao ioaeiue yeaiaio } function UpString(s: String): string; {i?aia?acoao no?ieo a aa?oiee ?aaeno?} var k: Integer; begin for k:=1 to Length(s) do if s[k] in [‘a’..’z’] then s[k]:=chr(ord(‘A’)+ord(s[k])-ord(‘a’)) else if s[k] in [‘a’..’i’] then s[k]:=chr(ord(‘A’)+ord(s[k])-ord(‘a’)) else if s[k] in [‘?’..’y’] then s[k]:=chr(ord(‘P’)+ord(s[k])-ord(‘p’)); UpString:=s end; {UpString} var InWin: PDialog; R: TRect; s: String; p: PInputLine; k: Word; begin {SearchItem} R.Assign(15,8,65,16); InWin:=New(PDialog, Init(R,’Iiene caiene:’)); with InWin^ do begin R.Assign(2,2,47,3); p:=New(PInputLine,Init(R,50)); Insert(p); R.Assign(1,1,40,2); Insert(New(PLabel, Init(R, ‘Aaaaeeoa ia?acaoe iienea:’,p))); R.Assign(10,5,20,7); Insert(New(PButton,Init(R,’Aaanoe’,cmOK,bfDefault))); R.Assign(25,5,35,7); Insert(New(PButton,Init(R,’Auoiae’,cmCancel,bfNormal))); SelectNext(False) end; if DeskTop^.ExecView(InWin)=cmCancel then exit; s:=p^.Data^; Location:=0; while (UpString(s)>=UpString(PString(PS^.At(Location))^)) and (Location
“TriplexScript_Font”,
auoiaea}
Нашли опечатку? Выделите и нажмите CTRL+Enter
