ab.com コミュニティ

#N88BASIC

Dim Mojiretu$ As String
Dim Kotae As Long
Dim q As String

Mojiretu$="0123456789"

Kotae=MojiCal(Mojiretu$,0)

Print Kotae

Input "終了しました。(Hit Enter Key)";q

End

Function MojiCal(Mojiretu$ As String,Kotae As Long) As long
         Dim Mojisuu As Long
         Dim i As Long
         Mojisuu=Len(Mojiretu$)
         For i=1 To Mojisuu
             Kotae=Kotae+Val(Mid$(Mojiretu$,i,1))
         Next i
         MojiCal=Kotae
End Function

#console
Dim Strings As *Byte

Strings="0123456789"
Print Calc_AddPlace(Val(Strings))
Print Calc_AddPlace(123456789)
Sleep(-1)

Function Calc_AddPlace(src As DWord) As DWord
	Dim dst=0 As DWord
	While src
		dst=dst+(src Mod 10)
		src=src\10
	Wend
	Calc_AddPlace=dst
End Function

#prompt
2 Dim A As Long'数字の入力用
3 Dim B As Long'数字の計算用
4 Dim C As Long'数字の表示用
5 A=0:C=0
6 Input "数字を入力してください";A
7 For B=1 TO A 
8 C=C+B
9 NEXT
10 PRINT"答えは";C'答えの表示
11 GOTO 5
end

#N88BASIC

Dim Mojiretu$ As String
Dim Kotae As Long
Dim q As String

Mojiretu$="00112233445566778899"

Kotae=MojiCal(Mojiretu$,0)

Print Kotae

Input "終了しました。(Hit Enter Key)";q

End

Function MojiCal(Mojiretu$ As String,Kotae As Long) As long
         Dim Mojisuu As Long
         Dim i As Long
         Mojisuu=Len(Mojiretu$)
         For i=1 To Mojisuu Step 2
             Kotae=Kotae+Val(Mid$(Mojiretu$,i,2))
         Next i
         MojiCal=Kotae
End Function

#console
Dim Strings As *Byte

Strings="23,432,54,2,0,123,-43"
Print Calc_AddCSV(Strings)
Sleep(-1)

Function Calc_AddCSV(src As *Byte) As Double
	Dim src$ As String,find_old=1 As Long,find=-1 As Long
	Dim dst$ As String,dst=0 As Double
	src$=MakeStr(src)
	Do
		find=InStr(find_old,src$,",")
		If find then
			dst$=Mid$(src$,find_old,find-find_old)
			dst=dst+Val(dst$)
			find_old=find+1
		Else
			dst$=Mid$(src$,find_old,Len(src$)-find_old+1)
			dst=dst+Val(dst$)
			Exit Do
		End If
	Loop
	Calc_AddCSV=dst
End Function