🚀 go-pugleaf

$B$+$Y!wElKLBg3X(B

$B<+8JEz0F!#(B



>> (1) $B$3$l$i$N%j%9%H$O(B ANSI Minimal BASIC $B$KBP$9$k5,3J9gCW%W%m%0%i%`$H(B
>> $B$J$C$F$$$k$+!#5,3J9gCW$G$J$1$l$P!"9gCW$9$k$h$&:G>.8B$NJQ99$r;\$7$?(B
>> $B%j%9%H$r<($;!#(B

$B$$$:$l$b5,3J9gCW$G$J$$!#(B

>> $B%j%9%H#A!%(B
 	10 INPUT N
 	20 LET A=0
 	30 LET B=1
 	40 LET A=A+1
 	50 LET B=B*2
 	60 IF B<N THEN 40
 	70 PRINT "A=";A," B=";B
 	80 END

>> $B%j%9%H#B!%(B
	100 PRINT "A=";
 	110 INPUT A
 	120 LET B=INT(A/2+1)
 	130 FOR X=B TO A
 	140 	LET Y=A*X/(2*X-1)
 	150 	IF Y<>INT(Y) THEN 160
	155 	PRINT "Y=";Y
 	160 NEXT X
 	170 END



>> (2) $B$3$l$i$N%j%9%H$O(B ANSI Full BASIC $B$KBP$9$k5,3J9gCW%W%m%0%i%`$H(B
>> $B$J$C$F$$$k$+!#5,3J9gCW$G$J$1$l$P!"9gCW$9$k$h$&:G>.8B$NJQ99$r;\$7$?(B
>> $B%j%9%H$r<($;!#(B

$B$$$:$l$b5,3J9gCW$G$J$$!#(B

>> $B%j%9%H#A!%(B
 	10 INPUT N
 	20 LET A=0
 	30 LET B=1
 	40 LET A=A+1
 	50 LET B=B*2
 	60 IF B<N THEN GOTO 40
 	70 PRINT "A=";A," B=";B
 	80 END

>> $B%j%9%H#B!%(B
 	110 INPUT PROMPT "a=":A
 	120 LET B=INT(A/2+1)
 	130 FOR X=B TO A
 	140 	LET Y=A*X/(2*X-1)
 	150 	IF Y=INT(Y) THEN PRINT "y=";Y
 	160 NEXT X
 	170 END



$B2r@b(B:
Minimal BASIC $B$N5,3J9gCW%W%m%0%i%`$G$O(B
	* LET$B$O>JN,$G$-$^$;$s!#(B
	* $B1Q>.J8;z$O;H$($^$;$s!#(B
	* INPUT$BJ8$N%W%m%s%W%H$OIU$1$i$l$^$;$s!#(B
	* THEN$B$ND>8e$K$O9THV9f$7$+=q$1$^$;$s!#(B
Full BASIC$B$G$O(B
	* LET$B$O>JN,$G$-$^$;$s!#(B
	* INPUT$BJ8$N%W%m%s%W%H$O(B PROMPT$B6g$rMQ$$$^$9!#(B


$B3X9;$G65$($i$l$k(B BASIC $B$,I8=`(BBASIC $B$G$J$$$N$O<~CN$N;v<B$_$?$$$G$9$+$i(B
$B$3$3$GA{$$$G$b$7$c!<$J$$$G$9$,!#(B
$B!t=hM}7O$,F~<j$7$E$i$$$N$,:GBg$N860x$G$7$g$&(B

------------------------------------------------------------------------------
 $B$+$Y(B@dais.is.tohoku.ac.jp                     $B#V#E#G#A(B $B#S#y#s#t#e#m#s(B MCMXCI
             $B!V<+J,$O%l!<%5!<$@$C$F$$$&$N$+$$!)(B $B$?$$$7$?$3$H$J$$$8$c$J$$$+!#!W(B
------------------------------------------------------------------------------