- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
578 ：デフォルトの名無しさん[sage]：2015/08/13(木) 16:20:45.22 ID:AjD0KUn3 - >>554
その1.
またFreeBasicで実装してみました。改行が多すぎると叱られますので、分割して掲載します。
Dim a(1 To 1000) As Integer
Dim b(1 To 1000) As Integer
Dim c (1 To 1001) As Integer
Dim i As Integer
Dim n As Integer
Dim carry As Integer
Dim ans As String
Dim count As Integer
a(1) = 1
b(1)=1
c(1) = 0
For I= 2 To 1000
a(i)= 0
b(i) = 0
c(i) = 0
Next
c(16) = 0
n= 2
While (c(1000)< 1)
carry = 0
|