#比例代表選挙で用いられるドント方式のプログラム
Tomei = ["A 党","B 党","C 党","D 党"]
Tokuhyo = [1200,660,1440,180]
Tosen = [0,0,0,0]
Hikaku = [0,0,0,0]
Koho = [5,4,2,3]
tosenkei = 0
giseki = 6
m を 0 から 3 まで 1 ずつ増やしながら繰り返す:
    Hikaku[m] = Tokuhyo[m]
tosenkei < giseki の間繰り返す:
    max = 0
    i を 0 から 3 まで 1 ずつ増やしながら繰り返す:
        もし max < Hikaku[i] and Koho[i] >= Tosen[i] + 1 ならば:
            max = Hikaku[i]
            maxi = i
    Tosen[maxi] = Tosen[maxi] + 1
    tosenkei = tosenkei + 1
    Hikaku[maxi] = 切り捨て(Tokuhyo[maxi] / (Tosen[maxi] + 1))
k を 0 から 3 まで 1 ずつ増やしながら繰り返す:
    表示する(Tomei[k],"：",Tosen[k],"名")