Question

分段函数的程序框图

Answer 1

原铁道部规定,能买半价票的儿童限高为1.1米—1.5米.假定全票价格为100元,则票价P与儿童身高h之间的关系就是分段函数：

P=0 (h<1.1)

P=50 (1.1<=h<=1.5)

P=100 (h>1.5)

代码如下：

Rem 语言：Visual Basic 6.0

Sub Main() '开始

h = Val(InputBox("请输入h=","输入"))

If h < 1.1 Then

P = 0

Else

If h <= 1.5 Then

P = 50

Else

P = 100

End If

End If

MsgBox P,vbInformation,"输出"

End Sub '结束