津津的储蓄计划.pptVIP

津津的储蓄计划 【问题描述】津津的零花钱一直都是自己管理。每个月的月初妈妈给津津300元钱，津津会预算这个月的花销，并且总能做到实际花销和预算的相同。 为了让津津学习如何储蓄，妈妈提出，津津可以随时把整百的钱存在她那里，到了年末她会加上20%还给津津。因此津津制定了一个储蓄计划：每个月的月初，在得到妈妈给的零花钱后，如果她预计到这个月的月末手中还会有多于100元或恰好100元，她就会把整百的钱存在妈妈那里，剩余的钱留在自己手中。 例如11月初津津手中还有83元，妈妈给了津津300元。津津预计11月的花销是180元，那么她就会在妈妈那里存200元，自己留下183元。到了11月月末，津津手中会剩下3元钱。 津津发现这个储蓄计划的主要风险是，存在妈妈那里的钱在年末之前不能取出。有可能在某个月的月初，津津手中的钱加上这个月妈妈给的钱，不够这个月的原定预算。如果出现这种情况，津津将不得不在这个月省吃俭用，压缩预算。 现在请你根据2004年1月到12月每个月津津的预算，判断会不会出现这种情况。如果不会，计算到2004年年末，妈妈将津津平常存的钱加上20%还给津津之后，津津手中会有多少钱。 【输入文件】输入文件save.in包括12行数据，每行包含一个小于350的非负整数，分别表示1月到12月津津的预算。 【输出文件】输出文件save.out包括一行，这一行只包含一个整数。如果储蓄计划实施过程中出现某个月钱不够用的情况，输出-X，X表示出现这种情况的第一个月；否则输出到2004年年末津津手中会有多少钱。 算法分析 这道题属于一道基础题，出题的目的，主要是为了考核同学能不能应用程序设计语言的基本知识（一维数组，复合、循环、选择三种控制结构）和数学推理的一般方法，编程解决简单问题。var i,total,p:integer; {total为当前剩余的钱；p为百元为单位的储蓄数； a:array[1..12] of integer;{每个月的预算，其中a[i]为第i个月的预算} 由于每个月的月初妈妈给津津300元钱，因此津津第i个月剩余的钱total=total+（300-a[i]）。若total0，则说明第i个月的钱不够用；否则应该储蓄(total div) 100 个100元，这样到了月底，津津剩余的钱实际为total=total mod 100。 按照上述方法递推至12月后，储蓄在妈妈那儿有p个100元，津津剩余的钱为total。由于年末妈妈会加上20%还给津津，因此津津手中的钱实际为p*120+total。 for i:=1 to 12 do readln(a[i]);{读入每个月的预算} for i:=1 to 12 do begin inc(total,300-a[i]);{计算第i个月剩余的钱} if total0 {若第i个月的钱不够用，则输出预算失败信息并退出} then begin write(-,i);halt;end;{then} if total100{若剩余的钱够储蓄，则以百元为单位累计储蓄数，并计算剩余的钱} then begin inc(p,total div 100);total:=total mod 100; end; {then} end;{for} writeln(p*120+total);{输出年末手中的钱} * *