打程序应注意的一个问题

首先看这样一个代码，本文中称之为代码1：

const
        maxo=5000000+5;
var
        i,j,maxn:longint;
        phi,f:array[0..maxo] of longint;
begin
        maxn:=maxo;
        for i:=1 to maxn do
        begin
                j:=2*i;
                while j<maxn do
                begin
                        inc(f[j],i*phi[j div i]);
                        inc(j,i);
                end;
        end;
end.

代码2：

const
        maxn=5000000+5;
var
        i,j:longint;
        phi,f:array[0..maxn] of longint;
begin
        for i:=1 to maxn do
        begin
                for j:=2 to maxn div i do
                begin
                        inc(f[j*i],i*phi[j]);
                end;
        end;
end.

这两个代码的作用都是一样的， 那么完成同样工作的不同代码，效率又如何呢？鄙人测试了一下，发现程序1在oj上运行大概需要1760ms左右，而后者大概只需要760ms左右，这是为什么导致两个完成的工作量相同的程序效率不同呢？一下是我的几点猜想，不对的地方，多多指教。
①：大家都知道除法的效率是很低的，加减乘需要300ms的程序，除可能要1500ms，甚至更多。
下面这两个程序就是例子：

var
        a,b:longint;
begin
        for a:=1 to 100000000 do
              b:=b div a; 
end.

var
        a,b:longint;
begin
        for a:=1 to 100000000 do
              b:=b-a; 
end.

只有符号不同，但效率相差很大。
②做了太多无谓的运算，这点相信大家都能看出来。
鄙人学术不精只能分析出这么多了，如果有别的看法或认为我写错了的，欢迎指出错误或说出你的看法。

启发

就算是实现同一个东西的代码，也要注意把代码打好一点。

the end

由于我的水平有限，难免会有些写错的地方，希望大家批评指正，多多包容，thank you for your patience.