代码大全

Pascal

For Column:=1 to 100 do

begin

for Now:=1 do 5 do

begin

sum =sumTable[1000 column]

end

end

100 100*5 500
600 500 5
505 600 5O5 /600=16

Pasic 2.53 2.42 4% 1:1
Ada 2.14 2.03 5% 1:1
Fortran 1.97 3.57 -81% 1:2
Fortran 81 Fortran
Fortran

Basic

for i=1 to Num

Commission(i)=i*Revenue*BaseCommission*Discount

next i

Basic

Increment=Revenue * BaseCommission * Discount