流程圖 源碼:流程圖製作[朗讀]

流程圖省略,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。