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  '结束