1.假设邮费计算方法为：100克以内（含100克）收费5元，超过100克的部分每克加收0.2元。试编写程序，要求从

键盘输入邮寄物品质量，计算并输出邮费。

INPUT “输入邮寄物品质量(克)” TO X

IF X<=100

Y=5

ELSE

Y=(X-100)*0.2+5

ENDIF

?“邮寄费为”,Y,“元”

2.现有一元二次方程：ax2+bx+c=0，其中a、b、c是整数，且a≠0。若存在实根，则输出“在实数范围内有解”；

若不存在实根，则输出“在实数范围内无解”。

INPUT “输入A的值(不等于0)” TO A

INPUT “输入B的值” TO B

INPUT “输入C的值” TO C

IF B*B-4*A*C>=0

?“在实数范围内有解”

ELSE

?“在实数范围内无解”

ENDIF

3.输入出租车行驶里程S，输出应付车费F。

S和F的关系如下：

INPUT “输入出租车行驶里程” TO S

IF S<=3

F=6

ELSE

F=6+(S-3)*1.5

ENDIF

?“应付车费为”,F

4. 有一函数:

编程序，输入X值，输出Y值

方法一

INPUT “输入X的值” TO X

IF X<1

Y=X

ELSE

IF X<10

Y=2*X-1

ELSE

Y=3*X-11

ENDIF

ENDIF

?“Y=”,Y

方法二

INPUT “输入X的值” TO X

DO CASE

CASE X<1

Y=X

CASE X<10

Y=2*X-1

OTHERWISE

Y=3*X-11

ENDCASE

?“Y=”,Y