2008/02/26

円周率を無限に求めるプログラム

ぁゃιぃ(*゚ー゚)NEWS 2nd より

円周率を無限に求めるプログラム
http://sports11.2ch.net/test/read.cgi/bicycle/1198422452/


144:名無しさん@八周年 02/24(日) 13:35 UoEA/h6J0
>>134
懐かしいな。俺もMZ-80-K2Eで円周率を無限に求めるプログラムを開発して、
小学校時代の友達を驚かせたことがある。

10 PRINT "3. 1 4 1 5 9 2 6 5";
20 A=INT(RND(1)*10)
30 PRINT A;
40 GOTO 20

0 件のコメント: