代码大全

AcceptCustomerRetun(TransactionAmount)

end if

end if

next TransactionID

18-64

18-65

18-65 Pascal

{ comment zero }

CodeeStatermentZero ;

CodeStatementOn ;

{ comment one }

CodeStatementTWO ;

CodeStatementThree ;

18-66

18-86 Pascal

{ comment zero }

CodeStatementZero;

CodeStatmentOne;

{ comment one }

CodeStatmentTWO;

CodeStatmentThree;

18.7

18-67