Basic 多角形の対角線の本数を計算する

さて、上記の通りのことをやります。計算アルゴリズムは非常に面倒な形式をとっています。というのも、多角形の対角線の本 数を求める関数が見つけられず、四角形の対角線は+2、五角形はそれに+3、六角形はそれに+4、という要領で繰り返しの作業をやってもらうプログラムで す。理屈を言ってもしょうがないのでプログラムをさっさと載せます。以下の通りです。十進Basicなどに貼り付けてご利用下さい。好きに改変してもらって結構です。

多角形の対角線の本数を算出する計算機.bas

!三角形は0本

! n角形 (3以外は) ex. 4角形 0+2=2本,五角形 2+3=5,六角形 5+4=9...

INPUT n

IF n<4 THEN

   pause "4角形以上を指定してください"

   stop

END IF

LET plus=2 !最初は2から対角線を足していくので

LET ans=0 !答えを収める

FOR A=4 TO n !三角形(つまり対角線0本)からはじめるがforの仕様でA=4(四角形から)にする

   LET ans=ans+plus

   LET plus=plus+1

NEXT A

pause STR$(ans) & "本です"

END