选择结构-if语句.ppt
选择结构if语句,Pascal暑假微课系列,第02课,例一：,火车托运行李，要根据行李的重量按不同标准收费。例如不超过50公斤，按每公斤0.35元收费。若超过50公斤，则其中50公斤按每公斤0.35元收费，其余超过部分按每公斤0.50元收费。现输入托运行李重量，要求计算并输出托运费。,例一：火车托运行李，要根据行李的重量按不同标准收费。例如不超过50公斤，按每公斤0.35元收费。若超过50公斤，则其中50公斤按每公斤0.35元收费，其余超过部分按每公斤0.50元收费。现输入托运行李重量，要求计算并输出托运费。,讨论：设托运行李重量为W，根据W是否超过50公斤，按不同的公式计算出托运费。设托运费为pay。W和pay均为实型。,一级算法：1.读入W的值；2.根据W的大小选择不同的公式计算pay；3.输入pay,pay的公式如下：,pay=,W0.35,500.35+(W-50)0.5,W50,W50,例一：火车托运行李，要根据行李的重量按不同标准收费。例如不超过50公斤，按每公斤0.35元收费。若超过50公斤，则其中50公斤按每公斤0.35元收费，其余超过部分按每公斤0.50元收费。现输入托运行李重量，要求计算并输出托运费。,一级算法：1.读入W的值；2.根据W的大小选择不同的公式计算pay；3.输入pay,二级求精：1.读入W的值；2-1.如果W502-2.则pay=W0.352-3.否则pay=500.35+(W-50)0.53.输入pay,W50,pay=W0.35,pay=500.35+(W-50)0.5,真,假,条件if语句：,格式一：if 条件 then 语句1,格式二：if 条件 then 语句1 else 语句2,条件if语句：,格式一：if 条件 then 语句1,格式二：if 条件 then 语句1 else 语句2,二级求精：1.读入W的值；2-1.如果W50 if W50 2-2.则pay=W0.35 then pay=W0.352-3.否则pay=500.35+(W-50)0.5 else pay=500.35+(W-50)0.5 3.输入pay,程序1.计算行李托运费,Program yunfei(input,output);var W,pay:real;begin read(W);writeln(zhongliang=,W:8:2);if W=50 then pay:=W*0.35 else pay:=50*0.35+(W-50)*0.5;writeln(pay=,pay:8:2)end.,例二：,读入三个数，输出最大数。,讨论：设三个数为A、B、C，由键盘输入。最大数为max。,一级算法：1.输入A、B、C；2.将A与B中的大数存于max中；3.将C与max中的大数存于max中；4.输出max,例二：,读入三个数，输出最大数。,二级求精：1.输入A、B、C；2.将A与B中的大数存于max中；3.将C与max中的大数存于max中；4.输出max,if AB then max:=A else max:=B,if Cmax then max:=C,程序2.求三个数中的最大数,Program zuida(input,output);var A,B,C,max:real;begin read(A,B,C);writeln(then three numbers are,A:8:2,B:8:2,C:8:2);if AB then max:=A else max:=B;if Cmax then max:=C;writeln(the largest number is,max:8:2)end.,
