.

Вращение треугольника

Язык: русский
Формат: реферат
Тип документа: Word Doc
0 300
Скачать документ

Niaea?aeaiea

TOC \o “1-3” \t “Caaieiaie;1” Iienaiea i?ia?aiiu GOTOBUTTON
_Toc358869182 PAGEREF _Toc358869182 6

2.1 Iauea naaaeaiey GOTOBUTTON _Toc358869183 PAGEREF _Toc358869183
6

2.2 Eniieuecoaiua oaoie/aneea c?aaenoaa GOTOBUTTON _Toc358869184
PAGEREF _Toc358869184 8

2.3 Eino?oeoeey ii auiieiaieth 8

2.4 Aoiaeiua e auoiaeiua aeaiiua GOTOBUTTON _Toc358869186 PAGEREF
_Toc358869186 9

2.5 Eniuoaiea i?ia?aiiu 9

Caeeth/aiea GOTOBUTTON _Toc358869188 PAGEREF _Toc358869188 10

Nienie eeoa?aoo?u GOTOBUTTON _Toc358869189 PAGEREF _Toc358869189
11

I?EEIAEAIEA 1 (OAENO I?IA?AIIU)………..12

Aaaaeaiea

sscue Turbo-Pascal – iaeei ec naiuo ?ani?ino?aiaiiuo ycueia
i?ia?aiie?iaaiey eiiiuethoa?ia. E aaaeiui aeinoieinoaai ycuea
Turbo-Pascal ioiineony iaaieueoie ?acia? eiiieeyoi?a, aunieay nei?inoue
o?aineyoeee i?ia?aii, eiiieeyoeee e eo eiiiiiiaee. E?iia oiai, oaeianoai
e aunieia ea/anoai aeecaeia aeeaeiaiaie iaiei/ee, aeaeatho iaienaiea e
ioeaaeeo i?ia?aii iaeaieaa oaeiaiui a n?aaiaiee n aeueoa?iaoeaiuie
ycueaie iiaiai iieieaiey.

Aeaiiay eo?niaay ?aaioa i?aaenoaaeyao ?ac?aaioeo i?ia?aiiiiai i?iaeoeoa
n eniieueciaaieai nenoaiiiai ycuea iiaiai o?iaiy – Turbo-Pascal. Yoa
i?ia?aiia iicaieyao ethaiio iieueciaaoaeth ( n ethaui o?iaiai
eiiiuethoa?iie a?aiioiinoe ) i?iecaiaeeoue iaiaoiaeeiua ?an/aou n
aunieie nei?inoueth e aeinoaoi/iui o?iaiai na?aena.

Iinoaiiaea caaea/e

Oaiie aeaiiiai eo?niaiai i?iaeoa, eioi?ue aue auiieiai a oiaea eco/aiey
eo?na “Iniiau i?ia?aiie?iaaiey e aeai?eoie/aneea ycuee”, – ?ac?aaioea
i?ia?aiiu aeey ?aaiou a a?aoe/aneii ?aaeeia n i?aaeeueiui
o?aoaieueieeii, eniieuecoy yeaiaiou ia?an/aoa eii?aeeiao aai aa?oei i?e
a?auaiee o?aoaieueieea aie?oa iienaiiie ieiei iaai ie?oaeiinoe .

Oneiaea caaea/e :

Aeai ?aaiinoi?iiiee o?aoaieueiee. O?aaoaony a?auaoue aai a ieineinoe
ye?aia aie?oa oeaio?a iienaiiie aie?oa iaai ie?oaeiinoe.

?ac?aaioea aeai?eoia

Aeai?eoi ?aaiou i?ia?aiiu eiaao ?acaaoaeaiioth no?oeoo?o.

I?ia?aiia ninoieo ec o?ao iniiaiuo /anoae :

1. Iienaiea ia?aiaiiuo eniieuecoaiuo i?e ?aoaiee iinoaaeaiiie caaea/e.

2. Iienaiea i?ioeaaeo? i?e iiiiue eioi?uo auea ?aaeeciaaia aeaiiay
i?ia?aiia.

3. Oaei aeaaiie i?ia?aiiu, yaeythuaeny aaaeiaeoae ninoaaiie /anoueth
?aoaiey iinoaaeaiiie caaea/e.

I?ioeaaeo?iay /anoue i?ia?aiiu ninoieo ec iaai?a i?ioeaaeo?
i?aaeiacia/aiiuo aeey aieaa iioeiaeueiie ?aaeecaoeee ?ac?aaioaiiiai
iaoiaea ?aoaiey caaea/e.

A i?ia?aiia eniieuecothony noaiaea?oiua iiaeoee ycuea Turbo-Pascal n
iaai?ii i?ioeaaeo?, iaiaoiaeeiuo aeey auiieiaiey ?aaiou.

I?e ninoaaeaiee i?ioeaaeo? auee eniieueciaaiu eeanne/aneea iaoiaeu
i?in/aoa eii?aeeiao aa?oei o?aoaieueieea, auaiaea ?acoeueoaoa ia ye?ai.

A i?ia?aiio oaeaea auee aeeth/aiu ooieoeee i?aaeinoaaeythuea
iieueciaaoaeth iaeioi?ue na?aen e oaeianoai i?e ?aaioa ( eniieueciaaiea
iiaeoeae Turbo-Vision 2.0 for Borland Pascal).

Iienaiea i?ia?aiiu

Iauea naaaeaiey

Aeaiiay i?ia?aiia i?aaeiacia/aia aeey

aecoaeueiiai ioia?aaeaiey a?auathuaainy o?aoaieueieea a ieineinoe
ye?aia.

O?aaiaaiey e Turbo-Pascal :

Iaee/ea iiaeoeae Crt, Graph, System, Drivers. Iiaeoeue System yaeyaony
aaoiiaoe/anee iiaeeeth/aaiui e o?aieo ana i?ioeaaeo?u e ooieoeee
noaiaea?oiiai Ianeaey, a oaeaea ano?iaiiua i?ioeaaeo?u e ooieoeee Oo?ai
Ianeaey, iiaeoeue Crt niaea?aeeo i?ioeaaeo?u e ooieoeee, iaania/eaathuea
oi?aaeaiea oaenoiaui ?aaeeiii ?aaiou ye?aia. N iiiiuueth aoiaeyueo a
iiaeoeue iiaei?ia?aii iiaeii ia?aiauaoue eo?ni? a i?iecaieueioth
iiceoeeth ye?aia, iaiyoue oeaao auaiaeeiuo neiaieia e ie?oaeathuaai
oiia, nicaeaaaoue e oaeaeyoue ieia. E?iia oiai, a iiaeoea niaea?aeaony
i?ioeaaeo?u oi?aaeaiey caoeii e i?ioeaaeo?u ?aaiou n eeaaeaoo?ie. Na?aen
i?e ?aaioa a a?aoe/aneii ?aaeeia i?aaeinoaaeai a iiaeoea Graph
(i?i?eniaea eeiee, ioia?aaeaiea oaenoa a a?aoe/aneii ?aaeeia, onoaiiaea
ioaeiiai aeaeai?aaeeia e o?eooa, eciaiaiea aoo?eaooa eeiee e oaenoa).
Iiaeoeue Drivers (oi/iaa iauaeo TEvent ) eniieueciaaeny n oeaeueth
oi?iuaiey ia?aaioee niauoee, iinooieaoeo n eeaaeaoo?u.

O?aaiaaiey e nenoaia :

Iaee/ea iia?aoeeiiiie nenoaiu MS-DOS aa?nee 3.xx e auoa eee OS/2
Warp 3.0 & FullScreen DOS. I?ia?aiia ia o?aaoao ie aunieie nei?inoe
i?ioeanni?a, ie aieueoiai iauaia iia?aoeaiie iaiyoe e ianoa ia aeenea,
ie iaee/ey iaieioeyoi?a oeia Mouse. A eiiieaeoa n eniieiyaiui oaeeii
iaoiaeeony oaee ni o?eooii TRIP.CHR, iaiaoiaeeiue aeey ei??aeoiie ?aaiou
i?ia?aiiu.

Eniieuecoaiua oaoie/aneea n?aaenoaa

I?e ioeaaeea i?ia?aiiu aue eniieueciaai eiiiuethoa? oeia IBM Pentium
120 Triton & PipeLine Cashe 256 / 16Mb RAM, a ninoaa eioi?ie aoiaeeo :

iiieoi? 17’’ n aaeaioa?ii SVGA S3TRIO Trio64 764;

eeaaeaoo?a 105 eeaaeo;

;

HDD Cuantum FireBall 1.08Gb;

Eino?oeoeey ii auiieiaieth

Aeey auciaa i?ia?aiiu iaiaoiaeeii oaaaeeoueny, /oi oaeeu CURSPROJ.EXE e
TRIP.CHR iaoiaeyony a iaeiie aee?aeoi?ee. Iinea i?iaa?ee iaiaoiaeeii
caionoeoue oaee CURSPROJ.EXE eee a n?aaea Ianeaey ioeiiiiee?iaaoue oaee
CURSPROJ.PAS (a eiieaeoa i?eeaaaaony oaee EGAVGA.OBJ , iaiaoiaeeiue aeey
eeieiaee a iniiaioth i?ia?aiio oaeea EGAVGA.BGI).

Eioa?oaen i?ia?aiiu i?aaenoaaeai ia aiaeeeneii ycuea aaeaeo a?aiaiiiai
ionoonaey aeiiieieoaeueiuo ?onneeo o?eooia.

Aiciiaeiua aeaenoaey a i?ioeanna auiieiaiey i?ia?aiiu:

– inoaiiaeoue/i?iaeieaeeoue a?auaiea o?aoaieueieea.

– eciaieoue iai?aaeaiea a?auaiey.

– c iiiiuueth eeaaeo aaa?o/aiec iiaeii iaiyoue nei?inoue
a?auaiey o?aoaieueieea.

– auoiae ec i?ia?aiiu.

I?ia?aiia CURSPROJ.PAS eiaao ?acia? 3772 aaeo eee 120 no?ie.

Auiieiyaiue oaee CURSPROJ.EXE eiaao ?acia? 24348 aaeo.

Aoiaeiua e auoiaeiua aeaiiua

Aoiaeiuie aeaiiuie aeey aeaiiie i?ia?aiiu yaeyaony aeaoia?iue iannea,
niaea?aeauee eii?aeeiaou aa?oei ?aaiinoi?iiiaai o?aoaieueieea.

Auoiaeiua aeaiiua : Aecoaeueiia ioia?aaeaiea a?auaiey o?aoaieueieea e
oaeoueo eii?aeeiao eaaeaeie ec aa?oei.

Eniuoaiea i?ia?aiiu

I?ia?aiia auea eniuoaia aeey anao aa?eaioia aaiaea-auaiaea e
?acee/iuo oeiia aeaeaiaaeaioa?ia, /oi eneeth/aao aicieeiiaaiea
oaoaeueiuo naiaa i?e ?aaioa i?ia?aiiu.

Caeeth/aiea

Aeaiiay eo?niaay ?aaioa i?aaenoaaeyao niaie i?ia?aiiiue i?iaeoeo,
i?aaeiacia/aiiue aeey ?aaiou a a?aoe/aneii ?aaeeia. I?ia?aiiiue i?iaeoeo
iaienai ia nia?aiaiiii ycuea Turbo-Pascal, eioi?ue iicaieee iaeaieaa
i?inoi i?aaenoaaeoue yoo ?aaioo.

A oiaea auiieiaiey eo?niaiai i?iaeoa y iciaeiieeny n iiauie i?eaiaie
i?ia?aiie?iaaiey e iniaaiiinoyie ycuea Turbo-Pascal /oi iicaieeei
?ac?aaioaoue aeaiiue i?ia?aiiiue i?iaeoeo.

Nienie eeoa?aoo?u

1

2

3. Aiaiaoieeia A.I., Aiaiaoieeia A.A., I?ia?aiie?iaaiea a n?aaea TURBO
PASCAL 7.0.-Iineaa:”Aeeaeia-IEOE”,1995

Coaa A.A., Nenoaia i?ia?aiie?iaaiey Turbo Pascal.-Iineaa: NI
“Aeeaeia”,1992

Aeiaaaeue N.E., Naeioaa A.E., Ia?niiaeueua YAI: TURBO PASCAL V7.0,
Iaaeoiia i?ia?aiie?iaaiea.-Eeaa: “Aeaaaeue”,1995

Program CursProj;

Uses graph,crt, Drivers;

const

Ctr : Array [1 .. 2 , 1 .. 3] of Integer =((-77,0 , 77 ),

(-50,91,-50));

Var x_c , y_c : Integer;

Time2W : Byte;

Event : TEvent;

grDriver : Integer;

grMode : Integer;

ErrCode : Integer;

xn, yn, a : Integer;

Angle : Real;

K : ShortInt;

Procedure VgaDrv; external;

{$L EGAVGA.OBJ }

procedure SetCenter(x_nc , y_nc : integer);

begin

x_c := x_nc ; y_c := y_nc;

end;

Function Str2(Num:Integer):String;

Type S = String;

var P : ^S;

Begin

New(P); Str(Num,P^); Str2 := P^; Dispose(P);

End;

procedure draw(color:integer);

begin

SetColor(Color);

Line(x_c+ctr[1][1],y_c+ctr[2][1],x_c+ctr[1][2],y_c+ctr[2][2]);

Line(x_c+ctr[1][2],y_c+ctr[2][2],x_c+ctr[1][3],y_c+ctr[2][3]);

Line(x_c+ctr[1][3],y_c+ctr[2][3],x_c+ctr[1][1],y_c+ctr[2][1]);

end;

procedure DrawText(XX,YY : Integer; Text : String);

Begin

SetColor(Black);

OutTextXY(XX,YY,'(((‘);

SetColor(White);

OutTextXY(XX,YY,Text);

End;

procedure ShowD;

Begin

GetKeyEvent(Event);

If Event.What = evKeyDown Then

Case Event.KeyCode of

kbUp : Begin

if Time2W > 2 Then Time2W := Time2W – 1;

SetColor(Black);

OutTextXY(85,10, ‘(((((((((((((‘);

SetColor(White);

OutTextXY(90,10,Str2(100-Time2W));

End;

kbDown : Begin

if Time2W

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2019