×

[PR]この広告は3ヶ月以上更新がないため表示されています。
ホームページを更新後24時間以内に表示されなくなります。

吉木の森BASIC ActiveBasicで作ったソフトや10進BASICについて紹介しています



素因数分解 in 10進BASIC



  ここでは素因数分解ソフト『分解君』の中枢部分、つまり素因数分解するプログラムを10進BASICバージョンで紹介します。


 
[ソース]

100 !!素因数分解!!
110 INPUT PROMPT "素因数分解したい数を入力:":a
120 LET m = INT(SQR(a))
130 FOR n = 2 TO m
140 IF a-n*INT(a/n) = 0 THEN
150 PRINT n;
160 LET a = a/n
170 GOTO 120
180 END IF
190 NEXT n
200 PRINT a
210 END 



  ActiveBasicのほうで実行ファイル化したプログラムの中身は一部使いやすいように変えましたが大方こんな感じです。小さい数からあぶりだす方法です。詳細は…省略します(サボリ











  Copyright (C) 2006- よしき , All rights reserved HP作成