找一个实际生活中的分段函数，设计一个函数值，并画出程序框图

举例：为了加强居民的节水意识，某市制定了以下生活用水收费标准：每户每月用水未超过时，每立方米收费1.0元，并加收0.2元的城市污水处理费；超过的部分，每立方米收费1.5元，并加收0.4元的城市污水处理费。

1、设某户每月用水量为，应交纳水费y元，那么y与x之间的函数关系为

我们设计一个算法来求上述分段函数的值。算法步骤：

第一步，输入用户每月用水量x；

第二步，判断输入的x是否不超过7．若是，则计算y＝1.2x；若不是，则计算y＝1.9x－4.9；

第三步，输出用户应交纳的水费y。

2、程序框图：

扩展资料

例子例一

某商场举办有奖购物活动，每购100元商品得到一张奖券，每1000张奖券为一组，编号为1号至1000号，其中只有一张中特等奖，特等奖金额5000元，开奖时，中特等奖号码为328号，那么，一张奖券所得特等奖金y元与号码x号的函数关系表示为

0 ,x≠328

y={ 5000, x=328}

例二

某商店卖西瓜，一个西瓜的重量若在4kg以下，则销售价格为0.6元/kg；若在4kg 以上，则销售价格为0.8元/kg，那么，一个西瓜的销售收入y元与重量xkg的函数关系表示为

 ，

 。

参考资料：百度百科-分段函数

原铁道部规定，能买半价票的儿童限高为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  '结束

---