test_function.ibas

来自「用iBASIC语言编写的HTTP服务器源代码例子。」· IBAS 代码 · 共 48 行

'Write Ibas code here!
Using stdlib,singlemode

declare sub ff(x! byref,y! byref,a$)

sub f!(x! byref,i)
'f!=x!
dim w
w= 3*x!
print "x! = ";x!,"i = ";i,"w = int(3*x!) =";w,3*x!

if x!>5.0 then
	f!=x!
	return
end if
'f!=w!
x!=x!+0.5
i=x!
f!=f!(x!,i)
end sub

dim y!,x!,w!,ii,i
i=10
y!=1.23
ii=i
w!=y!
'''''''''''''''''''''
'print y!
f!(y!,i)
print "------------"
print y!,i
print f!(w!,ii)
print "------------"
y!=y!+1000.0
print y!

print "------------>"
dim a$
ff(x!,y!,a$)
print x!,a$
'print f!(3.14)
'''''''''''''''''''''

sub ff(x! byref,y! byref,a$)
x!=y!
a$=ftoi(x!)
a$=a$+ftoi(y!)
end sub