- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
644 ：デフォルトの名無しさん[sage]：2015/08/27(木) 08:41:53.66 ID:oNXmE8hM - >>636 FreeBasic
Dim i As Integer:Dim j As Integer:Dim m As Integer:Dim n As Integer:Dim sum As Integer:Dim limit As Integer
limit =1000:sum =0:n=1 :i = 1
Do
n= 3*i
If (n>= limit) Then Exit Do End If
sum = sum +n
i = i+1
Loop
i = 1
Do
m= 5*i
If (m>= limit) Then Exit Do End If
sum = sum + m
i =i+1
Loop
i=1
Do
j= 15*i
If (j>=limit) Then Exit Do End If
sum = sum -15*i
i= i+1
Loop
Print "sum = "; sum
sleep
ans=233168
|
- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
646 ：デフォルトの名無しさん[sage]：2015/08/27(木) 10:01:32.13 ID:oNXmE8hM - >>645
簡単に使えるという以外の他意はありません。
一応、この言語以外に、Pascal、Fortran、C++なども使えますが、
Editorでプログラムを書き、そのままコンパイルして実行できる手軽さ
でFree Basicを使っているまでです。
|
- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
647 ：デフォルトの名無しさん[sage]：2015/08/27(木) 12:20:55.88 ID:oNXmE8hM - >>636
C++
http://ideone.com/PTYqiP
|
- Visual Studio 2015 SP2©2ch.net
584 ：デフォルトの名無しさん[sage]：2015/08/27(木) 19:39:21.66 ID:oNXmE8hM - >>575
もっと昔1960年代初めのころ、HITACHIのHIPAC101というコンピュータを使っていた時代は、
OKITYPERで8単位の紙テープにアセンブラをパンチする。
アセンブラをコンピュータに読み込ませるために30byteのブートストラップを紙テープ・リーダー
にかけて読み込ませる。さらにSコードという300byteのプログラム言語を紙テープ・リーダーから読み込ませる。
こうして自分のアセンブラで書いたプログラムの紙テープを紙テープリーダーから読み込ませ、コンソール上の41個の
ボタンを押して初期値をレジスタにセットしてスタートさせる、というようにしていました。
結果は紙テープかOKIのページプリンタに出力しました。
|