代码大全

29 RecordIndex := RecordIndex+1 Recordlndex
...
6 5 while not Done
begin
...
70 if (Total > ProjectedTotal) Total
7 1 Done := True; Done

RecordIndex ( 29 - 3 1)=27
Total ( 70 - 4 4)=67
Done ( 71 - 5 1)=67
(27 67 67)/3=54

Pascal
...
26 RecordIndex:=0 RecordIndex 3
27 while (RecordIndex< RecordCount) do
28 begin
29 RecodIndex:=RecordIndex+1;
...
63 Total:=0 Total Done 4 5
6 4 Done:=False
65 while not Done
begin
...
7 0 if (Total>ProjectedTotal)
71 Done:=True;