[編集モード] ドント式の計算

ドント式の計算を行い、各団体の得票数と総議席数から各団体の議席数を求めます。

『「団体名,得票数」の形式で入力してください。』のラベル作成。
改行作成。
入力欄は空のテキストエリア作成。
その「cols」に30をDOM属性設定。
その「rows」に10をDOM属性設定。
改行作成。
「総議席数：」のラベル作成。
総議席数欄は「5」のエディタ作成。
その「type」に「number」をDOM属性設定。
その「min」に0をDOM属性設定。
計算ボタンは「計算」のボタン作成。
改行作成。
結果テーブルは「団体名,議席数」のテーブル作成。
それの「行揃え」に「右」をDOMスタイル設定。

計算ボタンをクリックした時には
  定数の入力配列は入力欄のテキスト取得してCSV取得。
  定数の団体数は入力配列の要素数。
  定数の最初取得は関数(A) それはA@0。ここまで。
  定数の二番目取得は関数(A) それはA@1。ここまで。
  定数の団体名リストは入力配列に最初取得を配列関数適用。
  定数の得票数リストは入力配列に二番目取得を配列関数適用。
  得票数リストを反復
    もし、(対象をNAN判定)または(対象＜0)ならば
      「得票数は非負の数でなければなりません。{改行}{対象}はダメです。」と言う。
      空を戻す。
    ここまで。
  ここまで。
  定数の総議席数は総議席数欄のテキスト取得して整数変換。
  もし、(総議席数をNAN判定)または(総議席数＜0)ならば
    「総議席数は非負整数でなければなりません。」と言う。
    空を戻す。
  ここまで。

定数の議席数リストは0を団体数だけ配列要素作成。
  (総議席数)回、繰り返す
    変数の議席獲得者は0。
    iで0から(団体数-1)まで繰り返す
      もし、(得票数リスト@i)×((議席数リスト@議席獲得者)+1)が(得票数リスト@議席獲得者)×((議席数リスト@i)+1)超ならば
        議席獲得者はi。
      ここまで。
    ここまで。
    議席数リスト@議席獲得者を1増やす。
  ここまで。

定数の最大議席数は議席数リストの配列最大値。
  定数の結果リストは空配列。
  iで0から(団体数-1)まで繰り返す
    変数の結果は[(団体名リスト@i), (議席数リスト@iの通貨形式)]。
    jで0から最大議席数まで繰り返す
      変数の結果セルは空。
      もし、jが議席数リスト@i未満ならば
        結果セルは結果セルに「(当) 」を追加。
      ここまで。
      得票数リスト@iを(j+1)で割って切り捨てして通貨形式。
      結果セルは結果セルにそれを追加。
      結果に結果セルを配列追加。
    ここまで。
    結果リストに結果を配列追加。
  ここまで。
  変数の結果ヘッダは["団体名", "議席数"]。
  iで0から最大議席数まで繰り返す
    結果ヘッダは結果ヘッダに「÷{i+1}」を配列追加。
  ここまで。
  結果リストの0に結果ヘッダを配列挿入。
  結果テーブルを結果リストにテーブル更新。
ここまで。

デバッグ × キャンバス: 幅 × 高

🍯 プログラム貯蔵庫

[編集モード] ドント式の計算

素材のアップロード