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:
a?auaiey o?aoaieueieea.
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