#比例代表選挙で用いられるドント方式のプログラム
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],"名")