代码大全

begin

end

for RecNum := ( Employee.Rec.Start + Employee.Rec.Offset ) to
( Employee.Rec.Start + Employee.Rec.Offset + Employee.NumRecs ) do
begin
...
end
C C 18-48
18-48 C
while( PathName[ StartPath Pos ] != ';') &&
( ( StartPath + Pos )<= length ( PathName ) )
{
...
}
for( RecNum = Employee.Rec.Start + Employee.Rec.Offset;
RecNum <= Employee.Rec.Start + Employee.Rec.Offset + Employee.NumRecs;
RecNum ++
{
...
}

18-49

18-49 Pascal

CustomerPurchases := CustomerPurchases + CustomerSales CustomerID

CustomerBill := CustomerBill + CustomerPurchases ;
TotalCustomerBill := CustomerBill + PreviousBalance CustomerID +

LateCharge ( CustomerID ) ;

CustomerRating := Rating ( CustomerID, TotalCustomerBill ) ;
LateCharge
customerID
18-50
: