流程图 源码:流程图制作[朗读]

流程图省略,pascal代码如下:(带注释)vara,i,n:longint;beginreadln(n);{读入职工人数}fori:=1tondobeginreadln(a);{读入职工工资,一行一个数字}ifa800)and(a1300thenbeginwriteln((25+(a-1300)/10):0:1);end;{若超过1300元,则交800到1300元的5%和超过1300元部分的10%,输出时我保留了一位小数}end;end。