,,,
, , , , . , , . .
, . :
;
;
;
;
.
( , ) , .
, , , , . , , .
.
, . , (.. ), .
. , , , . . , , .
, , , . , , .
, .
, , . , , , .
, , : , , ( ) .
, , , . . , , . , , . , , , . , , . , , ; () . , , . . . , .
.
. , , . . .
, , , , . . . .
, , . , .
. , , . . .
, , . , , . , . 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.
IBM PC XT/AT ;
EPSON;
MS-DOS 3.31 ;
700Kb ;
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}
() () :
.
.
- Data , Write(DataFile,Data). - Read(DataFile,Data);
.
. :
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}
. : , , , , ( ), , , , .
, .
, , :
SdelkaFile ItemsFile;;
SdelkaFile (Seek(SdelkaFile,n));
(Read(SdelkaFile,Sdelka);
, Sdelka.ItemIndex ItemsFile ( Sdelka.ItemsIndex Sdelka.ItemsIndex+Sdelka.ItemsTaken) . (Read(ItemsFile,Item);
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
Copyright (c) 2024 Stud-Baza.ru , , , .