0%

不高兴的津津unhappy

【问题描述】

津津上初中了。妈妈认为津津应该更加用功学习,所以津津除了上学之外,还要参加妈妈为她报名的各科复习班。另外每周妈妈还会送她去学习朗诵、舞蹈和钢琴。但是津津如果一天上课超过八个小时就会不高兴,而且,上得越久就会越不高兴。假设津津不会因为其它事不高兴,并且她的不高兴不会持续到第二天。请你帮忙检查一下津津下周的日程安排,看看下周她会不会不高兴;如果会的话,哪天最不高兴。

【输入文件】

输入文件unhappy.in包括七行数据,分别表示周一到周日的日程安排。每行包括两个小于10的非负整数,用空格隔开,分别表示津津在学校上课的时间和妈妈安排她上课的时间。

【输出文件】

输出文件unhappy.out包括一行,这一行只包含一个数字。如果不会不高兴则输出0,如果会则输出最不高兴的是周几(用1,2,3,4,5,6,7分别表示周一,周二,周三,周四,周五,周六,周日)。如果有两天或两天以上不高兴的程度相当,则输出时间最靠前的—天。

2012-1-16 星期一

一看题,不太明白,再看,原来是道简单的不能再简单的题了,是一道大小比较的题目。我主要是设8为原点(因为题目说:一天上课超过八个小时),超过为正,不超为负,在大小比较。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
a:array[1..7,1..3] of integer;
i,j,mun,max:integer;
//a[I,3]用于存放超过数值

begin
assign(input,'unhappy.in'); reset(input);
assign(output,'unhappy.out'); rewrite(output);

for i:=1 to 7 do
begin
for j:=1 to 2 do
read(a[i,j]);
a[i,3]:=a[i,1]+a[i,2]-8;
end;

mun:=a[1,3]; max:=1;
for i:=2 to 7 do
if a[i,3]>mun then begin mun:=a[i,3]; max:=i; end;

writeln(max);

close(input);
close(output);
end.
Thank you so much.