. , , ,

,,,


, , , , . , , . .

, . :

;

;

;

;

.

( , ) , .

, , , , . , , .

.

, . , (.. ), .

. , , , . . , , .

, , , . , , .

, .

, , . , , , .

, , : , , ( ) .

, , , . . , , . , , . , , , . , , . , , ; () . , , . . . , .

.

. , , . . .

, , , , . . . .

, , . , .

. , , . . .

, , . , , . , . 50% 20 40%, , , . 30% .

.

: , ; - ; -, - ; (); , , .

: , , ; ; , ; , .

: , ; , .

. , 600 1500 . , , . , . 80 120 , , , , , .

35 70 . 20 30 , 10, 5 . .

. , . - . , , ( ). ( 1800 8000 10000 ). . . , , 20 , 1 .

, .. , . , , , , , , ...

, , , , , . () , , , , , , , , , .

. , , , , . , , . , , ( ), .

, , , , . , , , . , .

, , : , , , , , , , , .

, , . , ( , , .. , ).

, , , 10 (0,1 /.). 125 (3 /.) . 10 . , 1 20 , 18 , , 17 , 10 11 .

. , . , ( , 250 420 /., .. 6 10 /.).

, , ; , ; .

, : , . , , , ; , .

, , , . .

, . .

, ( ) .

, . , , 50 60 / . 20%.

(1, 2, 3, 4, 5) . () 1 2 , . 4 5 .

, , . . .

: , , , .

, , , , , , , , ..

, - 28 120 ; , , .

, , , ; , ; .

, , , .

, .

. , .

.

, , , - 300 , 100 .

, , , , , 1,5 , , , . .

, , .

2, . 35%.

, .

Rmin = 4 0,1 = 3,9

. 25 , 1200 /.

, , 1 ; .

, , , , ... , , 300 , .

, , , . , .

, , , , . . . . .




.


............................................................................................................4


1. ............................................................................6


2. ..................................................................................7

2.1 .................................................................................7

2.1.1 ....................................................................7

2.1.2 , ....8

2.1.3 .................9

2.1.4 , , ..............................................................11

2.1.5 , ..............................................................................................12

2.1.6 .........................................................13

2.1.7 ............................................13

2.1.8 ..............................................14

2.2 ...............15

2.2.1 .........................................................................................15

2.2.2 ...............................................................18

2.2.3 .........................................................................21

2.3. Ethernet.............25

2.4. ..........................27

2.5. ...........................................................................28

2.5.1. .........................................................28

2.5.2. ..............................................................29

2.5.3. .......................................................29

2.5.4. ..............................................................29

2.5.5. ...................................................................29

2.6. ............................................................................30

2.6.1. Borland Pascal 7.0....................................................................31

2.6.2. - Turbo Vision...........31

2.6.3. Turbo Vision.............................................................31

2.6.4 . .............................33

2.6.4.1 ..........................................................33

2.6.4.2 ......................34

2.6.4.3. ......................................................37

2.6.4.4. ................39

2.6.4.5. ..............................................45

2.6.4.6. .............................................46


2.6.4.7. ..........................................................46

2.6.4.8. ...........................................47 2.6.4.9. ()........................................47

2.6.5. ..............................................................................50

2.7 ..................................................50

2.7.1. , .......................................................................................50

2.7.2. .......53

2.7.3. ...............................................58

2.7.4.

- ......................................................................................59


3. ....................................................................63

3.1 .. ....63

3.2 .........................................................................................71

4. ..................................................................................72

5. ....................................................................74


........................................................................................82


1. .................................................................................83

2. ....................................................................................................84

3. .........................................................................................85


.


. , , - . , , , .

, , , , ... , , (, , , ), , , , , , , - , - . , - .

. - , , , , . , (), , -- . 80- - -- () . , , , .

. , , , , , , , - , , . , , .

. , () . , . , -, , , , -- .

, , (, ..) , . ( ), , , . (, , , , , ). , , , () , , , ., () .

, , . . ,


1.


1.1 .


. , , , , , , , .

, . , , , , , , , , , .

, , , . . , , .

:

- , . “ ” “ ” ( );

- .

:

- IBM Intel386SX ( ) , ;

- - ;

- ;

- , ( , , ) ;

- ;

- , ;

- - ;

- , ;

-

;

- , .


2. .


2.1 .


2.1.1 .


, , , - .. , , - , .

, , , , . , . , -, , , , . , .

, , . .

, , , - , .


2.1.2 , .


, , . - .

, , . . . , . , .

, .

- , , , , , -. , .

, , .

. :

, ;

;

, .


2.1.3 .


, Intel 486 ,

, .

, .

, , , - .

- “ ”, , “ ”.

, -, , , , - .

, , , , , . : , .. , - ; , .. -, - , .

, , , , .

, , ; ; , .

80- , , . : . , , . .

, : , , .

.


2.1.4 , , .


:

1. ;

2. , ;

3. ( , ) ;

4. , ;

5. , , , ;

6. ;

7. , , ;

8. - .

:

;

, ;

.

, , , .

.

: , , .

, - , .

:

- ;

, .


2.1.5 , .


, , , , , , -, , , , .

, , . (, ) “ ” , .

, .

- , , :

;

, ;

;

;

;

;

.

. ( , ).

, , , . , , .


2.1.6 .


, . :

, , - ;

, - , ;

, ;

;

;

;

;

.

:

1. () , , , , ;

2. .


2.1.7 .


- . . , , . , , , , ; - (); .

: , , () , .

. .

, , .


2.1.8 .


, - , , , . , , , , , , , . () . .

, , , . , , , , .

, , .

, .

, .

, , , , .

, , . :

1. ;

2. ;

3. , : , , , .

, , , .

, .

.

- , , , , .


2.2 - .


2.2.1 .


, , ( 5 - 10 ) , , , , , - ... , (), (), , , , .. (, ) , , .

, , , , , , , -, - , . , , - , , . , , , , , (), .

() () -- , , , , , ... () , , . , , .., -- CD-ROM , ... , -- .

, , . IEEE802 ( , ), , : “ , , , , , ... , , , , IEEE802 , 1-2 /”.

, , , , , (, ) . .

. , . 1 10 / .

, , , ( ) , . , , .

-- . , . : ( ), (), , .

, . , .

. . -- - . , -, , . , - . .

, , . ( ) . () ( ). .

: , . , , . , , , . , ( ) , -- .

, , . (), , , .


2.2.2


. , . , , , , , , , ..

: (, , ), (-), , -, ..

. , . , , ...

(-, -, ) ( ) , .

( ) . . ( ). ( ) (), . , , , . , , . .

, , , - . . - , , () . . . , , , ( ).

, , .

. -, . , - .

. . , . () .

() . , . , , .

, , . , , , “ ” (, “”) ..

, , . , , , . , , . , .

. , -, , -, , . , , ( ) ( ). . , , . , , - .

. ( ) . ( ).

, , . T, , : ( ).

. , , , ( ) ( ). , , . .

(), . , ( 1 . /), , - . , . : , , , ..

- , , . , , .

- . , . “ ” , “ ”.

. . , , , ( ) , .


2.2.3


, .. , . , , , , (), ..

. : . ( ) , . , , (. .). (. .). , , , , .

, . ( ). ( ), ,


T = KL + T + T,


L , ;

, ;

, ;

K = 10 /.


, 2 10 / 30 , 300 . , , . , 2 4 .

(. . ). () : ; ; ( ); ; . .25.

. , . , , . , , .

. (“”). , . . .

, . , . .

“” “”, , . . , “” “”, , . , “” , “” “ ”.

. , , .

, , . , . . , , . , , , , .

. “ ”. , . . , .

, ,

“”, “”, “ ”, “”.

“” “” . , , . . . , . - , . () , . - - . , “ ”, “” .

, . , , . , , . : , , . , .

, ( ) ; ; .

“” . . , . ,

. , . : .


2.3. Ethernet.


. , Ethernet Xerox , , 1972 .. , , Ethernet, DEC, Intel Xerox (DIX). 1982 . , 802 IEEE, (European Computer Manufactures Association).

“”. 50 . 10 /. , CSMA/CD. , 6,5 , 1 1,25 . . , “” , , , . “” , ALOHA.

C Ethernet , , . . Ethernet , , Ethernet .

CSMA/CD . , , , . , Ethernet 64 1518 .


8 6 6 2 64 1518 4 -

________________________________________________________

! ! ! ! ! - !

!( -! ( - ! ! ! - !

!) ! ) ! ! ! !


CSMA/CD. , . , , . , 1518 . . , 64 , ( 64 8 = 512 ), 10 /, 51,2 . CSMA/CD , , . 64 2,8 .

, Ethernet:

” Ethernet (Thick Ethernet). ( ) 2,5 . , , :

500 ;

1000 3Com;

” Ethernet (Thin Ethernet). Ethernet RG-58A/U. Ethernet . , - . , “” Ethernet:

185 ;

304 3Com.

Ethernet Ethernet 3Com () Novell Ethernet Novell (). -. Ethernet . - , .


2.4 .


() . . , Norton Commander. “” , () .

, ( ). LANtastic Artisoft, LANstart D-Link System, NET/30 Invisible Software, WebNos Websorp. IBM PC, , MS DOS. , (-) .

, . 1 2 . , , , . . .

NetWare Lite Novell. ( , , , ..). . 2 25 . . , , , () .

NetWare Lite , IBM PC XT/AT. MS DOS ( 3., 4., 5.0, 6.0), MS Windows, , , , . . NetWare Lite IPX/SPX, , NetBIOS, NetWare.

NetWare Lite Ethernet Arcnet.

, , , . ( 100 ) () , 250 . Novell. NetWare 2., 3..

, , , NetWare Lite Novell. - .


2.5 .


- . , . , : , - , , , ..


2.5.1. .


, , . . , . , , . - , . . - .

. , , , .


2.5.2 .


. - , , . .


2.5.3.


  1. IBM PC XT/AT ;

  2. EPSON;

  3. MS-DOS 3.31 ;

  4. 700Kb ;

  5. CONFIG.SYS FILES=NN, NN - 50.


2.5.4.


. INSTALL.EXE . IPX , , ( ) .


2.5.5.


1.

:

  • - , .

  • - .

  • - .


2. .

- . : , , , , , - , , . .


3.

-. . , , ( , ) . . . , , , .


4. .

, . , :

  • - .

  • - .

  • - .

  • - ( ).

  • - .


5. .

.


2.6.


2.6.1 BORLAND PASCAL 7.0


Borland Pascal 7.0 , DOS WINDOWS. , , , IBM PC/XT. , BP , - Turbo Vision 2.0, , DOS .


2.6.2. - TURBO VISION


- DOS- TURBO VISION 2.0 : TValidator , . , , - , , Paradox dBASE.

, Turbo Visoin 2.0 ? TV - - . Borland International Turbo Vision, .

Turbo Vision - - , :

  • ;

  • ;

  • ;

  • ;

  • , , , ;

TV .


2.6.3. TURBO VISION


Turbo Vision - , .

- , , . , , , , - . , . , , . :

  • - TDesktop, . , TWindow, TDialog .. TDesktop TApplication .

  • . Turbo Vision TWindow. TFrame . , - Tab Shift-Tab () .

  • . TDialog TWindow . TWindow , . cmCancel Esc ( ) cmDefault Enter.

  • . TButton - , . TButton TDialog , - .

  • . TInputLine. , - , /, Backspace, Delete, Insert, Home, End.

  • . TListViewer .

  • . TStaticText - , . , Writeln, TStaticText ( ) . , .

- -, . , TV. , - , . TV . Tapplication, TV .

, F1 , .

- , . , .

, . - , .

() - TURBO VISION. , , .


2.6.4 .


2.6.4.1 .


: , , , . , , ... , . . :


BEGIN

{ }

{}

{ }

END.


, . Borland Pascal’, Turbo Vision ! Turbo Vision , . Turbo Vision.


Uses App;

Var

SklVks : TSklVks;

Begin

SklVks.Init;

SklVks.Run;

SklVks.Done;

End.


Turbo Vision APP ( Application - ). Turbo Vision. TApplication, .. (, , , ). TApplication INIT, RUN DONE. . , (. 1) :


( 1)


, “”, , ALT-X . , ? , TApplication .

, , Init Run TApplication. , : ( ), ( ) ( ).


2.6.4.2 .


- . SKLVKS. () TApplication InitStatusLine InitMenuBar. InitStatusLine , : , . . F1 F10 . InitMenuBar , . (. 2)


USES APP,OBJECTS,MENUS,DRIVERS,VIEWS;

Const

cmPrnSklad = 200;

cmSklad = 201;

cmZak = 203;

cmPriceLst = 204;

cmHelp_About = 205;

cmPrint = 206;

cmPrihod = 207;

cmSbros = 208;

cmNext = 209;

cmMore = 213;

cmSKL = 214;

cmDostup = 215;

cmDobavka = 216;

cmRekviz = 217;

cmKurs = 218;

cmTemp = 219;

cmPriceList = 220;

cmSdelka = 221;

cmPrih = 222;

cmVozvrat = 223;

cmKorPrihod = 224;

cmDolgi = 225;

cmUdal = 226;

cmMoney = 227;

cmArchive = 228;


Type

TSklVks = object(TApplication)

Procedure InitStatusLine ; Virtual;

Procedure InitMenuBar ; Virtual;

End;


Procedure TSklVks.InitStatusLine; { }

var

R: Trect;

Begin

GetExtent(R);

R.A.Y:=pred(R.B.Y); { }

StatusLine:=New(PStatusLine,Init(R,NewStatusDef(0,$ffff,

NewStatusKey(' ~ALT-X~- ',kbAltX,cmQuit,

NewStatusKey(' ~F1~-',kbf1,cmHelp_About,

NewStatusKey(' ~F10~-',kbf10,cmMenu,

nil))),nil)));

END;


Procedure TSklVks.InitMenuBar; { }

var

R: Trect;

Begin

GetExtent(R);

R.B.Y :=succ(R.A.Y); { }

MenuBar:=New(PMenuBar,Init(R,NewMenu(NewSubMenu('~~',hcNoContext,

NewMenu(

NewItem('~~',' ',kbNokey,cmSklad,hcNoContext,

NewItem('~~',' ',kbNoKey,cmSdelka,hcNoContext,

NewItem('~~',' ',kbNoKey,cmPrih,hcNoContext,

NewItem('~~',' ',kbNoKey,cmDolgi,hcNoContext,

NewItem('~~',' ',kbNoKey,cmMoney,hcNoContext,

NewLine(

NewItem('~~','ALT-X',kbAltX,cmQuit,hcNoContext,nil)))))))),


NewSubMenu('~~',hcNoContext,(NewMenu(

NewItem('~~','',kbNoKey,cmZak,hcNoConText,

NewItem('~~','',kbNoKey,cmVozvrat,hcNoConText,

nil)))),


NewSubMenu('~~',hcNoContext,NewMenu(

NewItem(' ~~','',kbNoKey,cmPrihod,hcNoContext,

NewItem('~~ ','',KbNoKey,cmKorPrihod,hcNoContext,

nil))),


NewSubMenu('~~',hcNoContext,NewMenu(

NewItem('~~ ',' ',kbNoKey,cmPrnSklad,hcNoContext,

NewItem(' ~~',' ',KbNoKey,cmPriceList,hcNoContext,

nil))),


NewSubMenu('~~',hcNoContext,NewMenu(NewItem('~~ ',

' ',kbNokey,cmArchive,hcNoContext,nil)),


NewSubMenu('~~',hcNoContext,NewMenu(

NewItem('~~',' ',kbNoKey,cmDostup,hcNoContext,

NewItem('~~',' ',kbNoKey,cmRekviz,hcNoContext,

NewItem('~~ ',' ',kbNoKey,cmKurs,hcNocontext,

nil)))),


NewSubMenu('~~',hcNoContext,NewMenu(

NewItem(' ~~ ... ','',kbNokey,cmHelp_About,hcNoContext,

nil)),

nil))))))))));

end;


Var

SKLVKS : TSKLVKS;


BEGIN { }

SklVks.Init;

SklVks.Run;

SklVks.Done;

END. { }


( 2)


2.6.4.3

, - . , - . HandleEvent TApplication. TSklVks ...

Type

TSklVks = Object(TApplication)

......

Procedure HandleEvent(var Event : Tevent); virtual;

End;

:


Procedure TSklVks.HandleEvent(var Event : TEvent);

Begin

TApplication.HandleEvent(Event);

if Event.What = evCommand then

case Event.Command of

cmPrnSklad : Begin

PrintSklad;

End;

cmSklad : begin

Sklad;

end;

cmZak : Begin

Zak;

End;

cmHelp_About : Begin

Help_About;

End;

cmPrihod : Begin

Prihod;

End;

cmPrih : Begin

Prih;

End;

cmDostup : begin

Dostup;

end;

cmRekviz : begin;

rekviz;

end;

cmKurs : Begin

Kurs;

end;

cmPriceList : Begin

GetDate(yyyy,mm,dd,ww);

PriceList(dd,mm,yyyy);

ClearEvent(Event);

end;

cmSdelka : Begin

Sdelki;

End;

cmVozvrat : Begin

Vozvrat;

End;

cmKorPrihod : Begin

KorPrihod;

End;

cmDolgi : Begin

Dolgi;

End;

cmMoney : Begin

Money;

End;

cmArchive : Begin

Arc_;

End;

else

ClearEvent(Event);

end;

ClearEvent(Event)

End;


2.6.4.4


TSklVks.HandleEvent , . Prih. - . , , . , . :


(* *)

Type PPP = record

Number : LongInt; { }

FirmName : String[22]; { }

Date : String[10]; { }

Kurs : Real; { }

TotalItems : LongInt; { - }

SebSumma : Real; { }

End;


(* }

Type PPPItems = Record

Number : LongInt; { }

PrihodNum : LongInt; { }

SkladNum : LongInt; { }

Name : String[lpname]; {}

Rasf : String[lprasf]; {}

Box : Integer; {- }

Kolvo : LongInt; {- }

SebPrice : Real; { }

Price : Real; { }

SellTimes : Boolean; {}

End;


SKLTYPES.PAS. , :


Var { }

PrihodData : PPP;

PrihodItemsData : PPPItems;

....{ }

PrihodFile : File of PPP;

PrihodItemsFile : File of PPPItems;

....


, . , . Dialog Designer 4.0. , , .

, c .


unit PRIHOD1;

interface

uses Drivers, Objects, Views, Dialogs, Validate;

type

PrihodDataRec = record

Field1 : String[10];

Field3 : String[13];

Field2 : String[22];

end;

PPrihodDataRec = ^PrihodDataRec;

{ TPrihodDataDialog }

PPrihodDataDialog = ^TPrihodDataDialog;

TPrihodDataDialog = object(TDialog)

constructor Init;

constructor Load(var S: TStream);

procedure HandleEvent(var Event: TEvent); virtual;

procedure Store(var S: TStream);

function Valid(Command : word): boolean; virtual;

destructor Done; virtual;

end;

Var

PRD : PrihodDataRec;

Const

RPrihodDataDialog : TStreamRec = (

ObjType: 12345; {<--- Insert a unique number >= 100 here!!}

VmtLink: Ofs(Typeof(TPrihodDataDialog)^);

Load : @TPrihodDataDialog.Load;

Store : @TPrihodDataDialog.Store);

implementation

{ TPrihodDataDialog }

constructor TPrihodDataDialog.Init;

var

R: TRect;

Control : PView;

begin

R.Assign(13, 3, 66, 17);

inherited Init(R, ' / ');

Flags := Flags and not wfMove;

R.Assign(24, 3, 36, 4);

Control := New(PInputLine, Init(R, 10));

Insert(Control);

PInputLine(Control)^.Validator := New(PPXPictureValidator, Init('{##}/{##}/{####}', true));

R.Assign(5, 3, 24, 4);

Insert(New(PLabel, Init(R, ' : ', Control)));

R.Assign(24, 5, 39, 6);

Control := New(PInputLine, Init(R, 13));

Insert(Control);

PInputLine(Control)^.Validator := New(PPXPictureValidator, Init('*#[.#][#]', False));

R.Assign(5, 5, 24, 6);

Insert(New(PLabel, Init(R, ' : ', Control)));

R.Assign(24, 7, 48, 8);

Control := New(PInputLine, Init(R, 22));

Insert(Control);

R.Assign(5, 7, 24, 8);

Insert(New(PLabel, Init(R, ' : ', Control)));

R.Assign(7, 10, 18, 12);

Control := New(PButton, Init(R, '~~', cmCancel, bfNormal));

Insert(Control);

R.Assign(23, 10, 41, 12);

Control := New(PButton, Init(R, '~~', cmOK, bfDefault));

Insert(Control);

R.Assign(37, 3, 51, 4);

Control := New(PStaticText, Init(R, '[ // ]'));

Insert(Control);

SelectNext(False);

end;

constructor TPrihodDataDialog.Load(var S: TStream);

begin

inherited Load(S);

end;

procedure TPrihodDataDialog.HandleEvent(var Event: TEvent);

begin

(*---

if Event.What = evMessage then

case Event.Command of

end; --*)

inherited HandleEvent(Event);

(*---

if Event.What = evMessage then

case Event.Command of

end; --*)

end;

procedure TPrihodDataDialog.Store(var S: TStream);

begin

inherited Store(S);

end;

function TPrihodDataDialog.Valid(Command : word): boolean;

var

Result : boolean;

begin

Result := inherited Valid(Command);

Valid := Result;

end;

destructor TPrihodDataDialog.Done;

begin

inherited Done;

end;

end.


PRIH :


PRD.Field1:=ShowDate; { - }

Str(GetKurs:-1:2,PRD.Field3); { - }

FillChar(PRD.Field2[1],22,' '); { }

c1:=ExecuteDialog(New(PPrihodDataDialog,Init),@PRD);1 { }


, . (. PRIH2.PAS), (, , , ..). (. . 3)


(.3)


, . , . ( . FIRMA.PAS) :


OpenPrihodFile; { . SklFiles.Pas}

Seek(PrihodFile,FileSize(PrihodFile)-1);

Write(PrihodFile,PrihodData);

ClosePrihodFile; { . SklFiles.Pas}


, ( PRIH ) TRUNCATE.


. (. PrintPrihodNakl PrintEndOfPrihodNakl SklUnit). LST, LPT1, Writeln(LST,‘ ’) . : SKLAD.001 ( ) , PRIHOD.001 ( ), PRIHOD.002 ( ). : -, -, --, - , -. -. . : , ( ). () ( , ). : , (), , . , , , . : SDELKA.001 ( ), SDELKA.002 ( ), SKLAD.001 .

, .


Data1:=New(PStrSor,Init(10,1)); { }

For N:=0 to FileSize(DataFile)-1 do { , )

begin {1}

Seek(DataFile,n);

Read(DataFile,Data); { }

val(Data.ProductOst,tempccc,code);

Str(Data1^.Count+1,Numm);

if tempccc=0 then goto ccc; { , }

o[0]:=chr(57);

FillChar(o[1],57,' ');

with data do

begin { : , , }

move(Numm[1],o[2],Length(Numm));

move(ProductName[1],o[succ(lpnum-1)+4],Length(Data.ProductName));

move(ProductRasf[1],o[succ(lpnum+lpname)+5],Length(Data.ProductRasf));

move(ProductNumber[1],o[50],Length(Data.ProductNumber));

end;

Data1^.Insert(NewStr(o)); { }

ccc:

end; {1}

Turbo Vision TListBox. . , TListBox.NewList.

Var

SCR : PScrollBar ;

LIST : PLitstBox;

.....

Begin

.....

RR.Assign(50,05,51,17); { }

Scr:=New(PscrollBar,Init(RR)); { }

Insert(Scr); { }

R.Assign(03,05,50,17); { }

List:=New(PMyListBox,Init(R,1,scr)); { }

List^.NewList(Data1); { }

Insert(list); { }

....

End;


:



-. . .

() . . , DATECOMP DATES.PAS. , ( ) (. SKLSTR.PAS). , , , , .


2.6.4.5 .


, Borland Pascal. (123 ). NUMSTR.PAS. 1000000.00 1,000,000.00. NUMSTR.PAS.


2.6.4.6 .


, . - . () (, ), , () . : , . Ec , SDELKA.ARCHIVE TRUE. SDELKA.ARCHIVE FALSE. .


2.6.4.7 .


, . ( ) FIRMA.DAT, :


Type { }

ConfigFileStructure = record

CassName : String[22]; { }

BuhName : String[30]; { }

GenName : String[30]; { }

UserName : String[30]; { }

Signature : String[10]; { BIOS' }

Reserved1 : String[10]; { }

Reserved2 : String[10]; { }

Reserved3 : String[20]; { }

Password : String[10]; {}

FirmName : String[60]; { }

Kurs : Real; { }

end;

. - . . . , , TInputLine.HandelEvent , , ‘*’ (). . PASSWORD.PAS. OK . , FIRMA.DAT Password. , .

.


2.6.4.8. .


, , . ConfigFileStructure PassWord String[10];


Type

ConfigFileStructure = record

....

Password : String[10];

....

End;


-

cmDostup, Dostup

SETUP.PAS. :

:

. OK

.

,

FIRMA.DAT.

.

(58+ )*2.

.

,

, ,

.


2.6.4.9. ().


. ,

, .

, , ( , ..). :


Type

DataType = record { }

ProductNumber : String[5]; {}

ProductName : String[22]; {}

ProductRasf : String[10]; {}

PieceInBox : String[5]; {- }

ProductPrice : String[12]; { }

ProductKol : String[12]; { }

ProductFirm : String[22]; { }

ProductDate : String[l10]; { }

ProductOST : String[12]; { }

ProductKurs : Real; { }

ProductSellPrice : Real; { }

ProductVozvrat : LongInt; {}

end;


Var

Data : DataType;

DataFile : File of DataType; { SKLAD.001}


() () :

  1. .

  2. .

  3. - Data , Write(DataFile,Data). - Read(DataFile,Data);

  4. .


. :


Type { }

SdelkaInfo = record

SdelkaNumber : LongInt; { }

Reserved : Word;

Archive : Boolean; { }

ItemIndex : LongInt; { }

ItemsTaken : LongInt; { }

FirmName : String[22]; {}

Date : String[10]; { }

OplataDate : String[10]; { }

Summa : Real; {}

Kurs : Real; { }

SummaSkidka : Real; { }

Oplata : Boolean; {TRUE - }

End;


Type

OneItemInfo = record { }

Number : LongInt;

SdelkaNumber : LongInt;

SklNum : LongInt;

Name : String[22];

Rasf : String[10];

Box : Integer;

KolVo : LongInt;

SBPrice : Real;

Price : Real;

Vozvrat : LongInt;

End;

Var

Sdelka : SdelkaInfo;

SdelkaFile : File of SdelkaInfo; { SDELKA.001}

Item : OneitemInfo;

ItemsFile : File of OneItemInfo; { SDELKA.002}


. : , , , , ( ), , , , .

, .

, , :

  1. SdelkaFile ItemsFile;;

  2. SdelkaFile (Seek(SdelkaFile,n));

  3. (Read(SdelkaFile,Sdelka);

  4. , Sdelka.ItemIndex ItemsFile ( Sdelka.ItemsIndex Sdelka.ItemsIndex+Sdelka.ItemsTaken) . (Read(ItemsFile,Item);

  5. SdelkaFile ItemsFile;


Borland Pascal :

OpenSdelkaFile;

OpenItemsFile; { : SKLFILES.PAS}

Seek(SdelkaFile, ); { }

Read(SdelkaFile,Sdelka); { }

for n:=Sdelka.ItemIndex to Sdelka.ItemsTaken do { - }

Begin

Seek(ItemsFile,n);

Read(ItemsFile,Items);

...... ( ) .....

End;

CloseItemsFile;

CloseSdelkaFile { };


, .


2.6.5.


BORLAND PASCAL 7.0 - TURBO VISION .


2.7


2.7.1. ,


, , () .

, , , , , .

, , . , , ... , , () , .

, , , . , , , , .

. , , , , ... , ...

: , , , , , , .

, ... , , ( ), , .

, , , , . .

, , , , , , . , , .

, , , , . , .

, , .

, . , , (, , ..) “ , .

, . , . , , , , .

- . , (. .). “ ” : 1, 2, 3, 4, 5, 6, 7.

, , : . . (): () , (). (), . , . , , .

.

, . . . . , , , . .

, .


2.7.2.


() , - . . .

“ ”, (), , . “ ” (, , ..), “ ”, . “ ” “ ”, . , “ ” , , .

“ ” , () () () . , “ “ ”. , , , , .

( - ), , , . , , , , . , , , - , .

“” , , . , , .

: , , () . , . , , .

. “” , , “”. , . , . , , , .

, , , .

, , . .

, , , . , . , , . . , . , , - . , . , .

“” . (-) ( ). , . - ( ), . , . , () -. , , . , , ( , ) . , , . “ ” , .

-, , , , -.

. .

, , , , , , , . , . , , , .

, , :

;

;

, , , , ;

.

. , , : , , , , .

. - . , , .

, , , , “” “” (“”) . , , , .

, , . . , . , , , . , , . , . , , , ...

, , , - , . , . , , , , , , “ ”.

, , . - , . , , , . , , (), , , . , .

, , , , . .

, , , , . , , , . , , , , . , ( 0,5 1 80 ). , , , “ ” , , . , , , , , .

, , : , , ...

, : , , , .


2.7.3.


, . , . , , : () ( , ) () ( , ); , ; , , ... , . , , , .. .

(, , , ..) (), . , . .

. , , , , () , . , “ ”, “ F” (F , .. ).

( , , ). m ( ) n ( ), , i- j- , i- j- . , m n , , , , , .

, . , “ ”, . (), i, i j .

. - . , . , .


2.7.6.


. , , . , .

1. , , .

2. , .. .

3. , .

4. , , .

5. .

6. , , .

7. , , .

8. .

9. ( , ).

10. .

11. ( ) ( ).

12. , , .

13. - , , , .

14. .

15. .

:

- ;

;

.

, , . .

, , .

.

1. .

2. , .

3. , .

4. .

5. , ( ).

6. , , ...

7. .

8. .

9. .

10. , , , .

11. , .

12. .

- , .

1. , , ( ) - ().

2. .

3. - , .

4. , .

5. 2,5 , , , , - , , .

6. .

7. , , .

8. .

, . , , .

1. , . 2 . 10.

2. . , . , . .

3. . .

4. , . , “ ” .

5. , .

6. (). , , , . .

7. , .

.

1. - .

2. .

3. , -. - , , , .

4. , . , .

, . , . , .


3.


3.1


, , , , . , , . .

, . :

;

;

;

;

.

( , ) , .

, , , , . , , .

.

, . , (.. ), .

. , , , . . , , .

, , , . , , .

, .

, , . , , , .

, , : , , ( ) .

, , , . . , , . , , . , , , . , , . , , ; () . , , . . . , .

.

. , , . . .

, , , , . . . .

, , . , .

. , , . . .

, , . , , . , . 50% 20 40%, , , . 30% .

.

: , ; - ; -, - ; (); , , .

: , , ; ; , ; , .

: , ; , .

. , 600 1500 . , , . , . 80 120 , , , , , .

35 70 . 20 30 , 10, 5 . .

. , . - . , , ( ). ( 1800 8000 10000 ). . . , , 20 , 1 .

, .. , . , , , , , , ...

, , , , , . () , , , , , , , , , .

. , , , , . , , . , , ( ), .

, , , , . , , , . , .

, , : , , , , , , , , .

, , . , ( , , .. , ).

, , , 10 (0,1 /.). 125 (3 /.) . 10 . , 1 20 , 18 , , 17 , 10 11 .

. , . , ( , 250 420 /., .. 6 10 /.).

, , ; , ; .

, : , . , , , ; , .

, , , . .

, . .

, ( ) .

, . , , 50 60 / . 20%.

(1, 2, 3, 4, 5) . () 1 2 , . 4 5 .

, , . . .

: , , , .

, , , , , , , , ..

, - 28 120 ; , , .

, , , ; , ; .

, , , .

, .

. , .

.

, , , - 300 , 100 .

, , , , , 1,5 , , , . .

, , .

2, . 35%.

:

1. , , :

Rmin = 4 0,1 = 3,9

3,9 q = 0,3

.max = 1200 /.;

max = 25

2. , . 1 .

3. , , . .

4. , . , , , .

5. , .

, , , , q = 300 290 /., , 1050 /..

6. , , .

.lim = 215 /.. .. .lim < .max, , .

7. , , , 25 . , , .

8. , . , , 1200 /., 35%, , .


,

-

-

-

-

-

-

-

-

(-

)

-

-

-

-

, -

-

-

-

-

-

-

- -

-

-

.max

-

,

- .

:

-

,-

,

-

, -

-

- 3

; -

-

-

,

-

-

1,5 ;

-

1

-

, -

-


-

290

/.


1050

215

/.


-


3.2


.

1. 1200 /. 25 , . .

2. , .. 300 /., .

3. , , , , , , .

4. 1200 /., :

;

;

;

( , ).


4. .


, , , . ; , , . , .

, .

, , , . , .

, , , , . , .

, , , . , , , .

, , , , . , , , .

. . , , . , , . , , , . , . , , , , .

, . . 3,5 . 250 , 5 . , 80 , 4 .


:


.

. , , , .


5.


. . , .

. , , . .. , , (, ). , , . , , , , .

, .

. , , , , , , , .

, - , , . , , ., , .

, , , . , “”, .

, . , . .

, , , . , , , .

. .

, , , . . , , , , , .

, , . , . . . , , .

, . , , , . , , , , .

. , , :


= + + ,


, .;

, .;

, 500000 .

, . .

(), , (d), () (q):


= a*f(d,c,q),


0 1, f(d,c,q) . .

, 1, , 0. f(d,c,q) d, c q, ..:


f(d,c,q) = f(d) + f(c) + f(q)


f(d,c,q) . d, c, q.

, , . , . , .. . 3 5%.

, .

, 6 , , , . :


Rs = (R/S)*100,


Rs ;

R ;

S , .

, (Rt), (t0 tn), :


Rt = Rti = Rs*Sti


, , , (Rs) . . , , , .

.

, , . , , , .

( ), , , .

, , , , . , . , ( ) , . , :


P < Ka ,

;

;

;


, , , 1 2% , 40 50% , . .

, , , , , . . .

, , . , , . , , . , , 25 50%.

, , , , . .

; ; F , , ; F ; .

, F F :


lim P/Pp = (1 F)*C/(1 F)*C = 1

FF


F F, .. , . , (F, , , ..


lim P/Pp = (1 F)*C/(1 F)*C = 0

F1


.


= (1 F)/(1 F)


.

, . .

5 10 . , , .

. : , , . , , , , .

. , , .

, n , , . :


= /n + /n + 1 + 1,


1 , ;

1 .


, + .

(1 + 1) .

. . , . , , , .

30%.

.

100 . , 600000 , , 3500 , 350 .

10% , , , 35 . 35% , 134750 .

, , , , 750 , .. , 75 .

, 400 , 6 , , , , 1200 / 120 .

30% , 105 .

772500 . , , 1004250 , .

, .

, , . .

1 ExecuteDialog ( Borlan Pascal) , .. .


.


, , , . ; , , . , .

, .

, , , . , .

, , , , . , .

, , , . , , , .

, , , , . , , , .

. . , , . , , . , , , . , . , , , , .

, . . 3,5 . 250 , 5 . , 80 , 4 .

.

. , , , .


A


.. , .





.B. “ “ - - . - , -.

, , .

- .

.


.B. ____________ .


___________________________/ /


C .


1. . C. . .. .: “ ”,1994

2. .., .. .-.: “ ”,1992

3. .. . - .: “ ”,1994

4. .. : . -.: “ ” , ,1994

5. .. ( 3- ). 3. . 1.-.: “- “- ”, 1993

6. .. ( 3- ). 2. Turbo Vision.-.: “- “- ”, 1993

7. . Borland Pascal : Turbo Vision 2.0.-: “”,1993

8. . Borland Pascal.-: “”,1994

9. Turbo Vision Pascal. .-M.:”...-”,1992

10. Turbo Vision Pascal. C. -.: “...-”,1992



ଠ N 57a



,

䥤 ""
""
. 䥤ன 襢஢ ..
"__"________________ 1994 .






஥஢ 㤥 ਣ쥢 ..
89480 䠪 ୥⨪ 㯯 -3-89
ᯥ樠쭮 01.02


1. ஥ ࠡ⪠ ⥬ ࠢ ࠡ⮩


(⢥ত ਪ "__" _________ 1994. N______)


2. ப ᤠ 祭 ஥ 䥢ࠫ 1995 .


3. 室 ஥
a) "Paradox For Windows" ࠪ᪮ 㪮⢮ ।. ᯨ饢
..,᪢,"",1993, ⮬ 1; ) "Paradox For Windows" ࠪ-
᪮ 㪮⢮ ।. ᯨ饢 ..,᪢,"",1993,
⮬ 2; ) ஫쪮 ."Widows For WorkGroups" ᠭ 짮⥫,
, ࣮-⥫᪮ ...,1994; ) ⮭ . ᠭ
ࠩ஢ Windows,ॢ ᪮,᪢,,1994 ) "-
쭮 ᫨⥫ ", ᪢, , 1994.


4. ঠ ⭮-᭨⥫쭮 ᪨ ( 祭
ࠧࠡ⪥ ᮢ) 1.; 2.᭮ ; 2.1.⠭
; 2.2. ࠡ⪠ ⬠ ணࠬ; 2.3.롮 । 㭪-
஢ ணࠬ; 2.4.ࠡ⪠ 䥩 ணࠬ; 2.5. -
ࠡ⪠ ⭮ ᯥ祭 ஥; 2.5.1.
쭮 ᫨⥫ ⥩; 2.5.2. 롮 ⭮ । 㭪-
஢ ணࠬ; 2.5.3. 㭪樮쭠 奬 ⭮
஥; 2.6. 짮⥫; 3. ࠭ 㤠; 4. ⭠
᪠ ; 5. Resume.


5. ࣠樮 ᪮ ஥
a) ᪠ 楫ᮮࠧ ᮧ ணࠬ த;
) ᥡ⮨ । 業 ணࠬ த;
) ᪮ 䥪⨢ ࠡ⪨.


6. ࠭ 㤠 ࠡ ⥬
।.




7. ᫥ ⨢୮ ⮩稢
ந ࠤ஭ .


8. ࣮ ______________________________________________
_______________________________________________________________________


9. 祭 ᪮ ਠ ( 㪠 易⥫
⥦)
1: ୠ 奬 ଠ樮 ⮪ ।⨨;
2: ࠬ;
3: 譨 䥩 ணࠬ;
4: 奬 ;
5: ୠ 奬 ;
6: 㭪樮쭠 奬 ⭮ ᯥ祭 ஥;


10. 㪮⥫ ⠭ ஥ ( 㪠 䠬, ., .,
ࠡ ):
) 㪮⥫ ஥ __________________________________ ⮢ ..
) ⠭ ⥬ ஥ ___________________________ ⮢ ..
) ⠭ ࣠樮-᪮ _____ ..
) ⠭ ࠭ 㤠 ..., ..
) ⠭ _____________________________________ ﭨ ..
) ⠭ _____________________________________________________


11. 뤠 01 1994 .







ࠡ ஥⮬ ਮ ஥஢ ( 㪠 ꥬ
믮 㤮 ⤥ ⠯ 栬)
1. 祭 ஥ - 10%
2. ⭮-᭨⥫쭠 ᪠ (᭮ ) - 50% ( 06.01.1995)
3. ᪨ ਠ - 30% ( 01.02.1995)
4. ⭮-᪠ - 10% ( 10.02.95)




㪮⥫ ⮢ .. __________
ਭ ᯮ 28 1994 .
㤥 ਣ쥢 .. __________



, , ,

 

 

 

! , , , .
. , :