NOIP复赛的问题

来源:百度知道 编辑:UC知道 时间:2024/03/29 10:09:19
下面是2004年的NOIP(提高)的一道题,题比较简单,我还能做,只是我不能按它的要求做,我第一次参加,而且没学过文件,请大家帮我把完整的符合要求的答案发给我(不仅要源程序,还要什么文件保存之类的),先谢啦!

第十届全国青少年信息学奥林匹克联赛复赛试题
(提高组 3小时完成)
http://www.oifans.cn

一、津津的储蓄计划

(Save.pas/dpr/c/cpp).

【问题描述】

    津津的零花钱一直都是自己管理。每个月的月初妈妈给津津300元钱,津津会预算这个月的花销,并且总能做到实际花销和预算的相同。

    为了让津津学习如何储蓄,妈妈提出,津津可以随时把整百的钱存在她那里,到了年末她会加上20%还给津津。因此津津制定了一个储蓄计划:每个月的月初,在得到妈妈给的零花钱后,如果她预计到这个月的月末手中还会有多于100元或恰好100元,她就会把整百的钱存在妈妈那里,剩余的钱留在自己手中。

    例如11月初津津手中还有83元,妈妈给了津津300元。津津预计11月的花销是180元,那么她就会在妈妈那里存200元,自己留下183元。到了11月月末,津津手中会剩下3元钱。

    津津发现这个储蓄计划的主要风险是,存在妈妈那里的钱在年末之前不能取出。有可能在某个月的月初,津津手中的钱加上这个月妈妈给的钱,不够这个月的原定预算。如果出现这种情况,津津将不得不在这个月省吃俭用,压缩预算。

    现在请你根据2004年1月到12月每个月津津的预算,判断会不会出现这种情况。如果不会,计算到2004年年末,妈妈将津津平常存的钱加上20%还给津津之后,津津手中会有多少钱。

----是PASCAL的没错。加了文件输入输出了。:

program p1096;
var Saved:longint;
leave:longint;
want:longint;
i:longint;
begin
assign(input,'save.in');
reset(input);
assign(output,'save.out');
rewrite(output);
Saved:=0;
leave:=0;
for i:=1 to 12 do begin
leave:=leave+300;
read(want);
if want>leave then
begin
writeln('-',i);
halt;
end;
leave:=leave-want;
Saved:=Saved+((leave) div 100);
leave:=leave mod 100;
end;
writeln(Saved*120+leave);
close(input);
close(output);
end.

program save(input,output);
var total,sum,i,c:integer;
s:array[1..12]of integer;
begin
assign(input,'save.in');
assign(output,'save.out');
reset(input);
rewrite(output);
total: