代码大全

Pascal C C++ Ada

18-41

18-41 Pascal

while PathName[StartPath + Pos ] <> ';' and and

( ( StartPath + Pos ) <= length PathName )do

...
TotalBill := TotalBill + CustomerPurchases [ CustomerID ]+

SalesTax( CustomerPurchases[ CustomerID ] ) ;

...

DrawLine(Window.North , Window.South , Window.East , Window.west,
CurrentWidth CurrentAttribute ) ;

...

18-42

18-42

CustomerBill := PrevBalance PayMentHistry[ CustomerID ] + LateCharge

PaymentHistory[ CustomerID ]

18-43

18-43 Pascal
CustomerBill := PrevBalance( PaymentHistory[ CustomerID ] ) +
LateCharge( PaymentHistory[ CustomerID ] ) ;

18-44

18-44 Pascal
DrawLine ( Window.North, Window.South, Window.East, Window.West,
CurrentWidth, CurrentAttribute );
SetFontAttributes( Font.FaceName, Font.Size, Font.Bold, Font.Italic,