代码大全

13-1

Pascal
l Initialize all variables
2
3 RecordIndex := 0
4 Total := 0
5 Done := False
...
27 while (RecordIndex<RecordCount) do
28 begin