Про­грам­ма верно чи­та­ет вход­ные дан­ные, сразу за­по­ми­ная толь­ко время ухода в мас­си­ве, со­от­вет­ству­ю­щем сто­ли­кам. Под­хо­дя­щий сто­лик опре­де­ля­ет­ся путём по­сле­до­ва­тель­но­го про­смот­ра эле­мен­тов этого мас­си­ва до пер­во­го сво­бод­но­го или та­ко­го, в ко­то­ром за­пи­са­но время окон­ча­ния, не пре­вос­хо­дя­щее вре­ме­ни при­хо­да те­ку­ще­го по­се­ти­те­ля. В слу­чае удач­но­го вы­бо­ра сто­ли­ка фа­ми­лия по­се­ти­те­ля и номер сто­ли­ка рас­пе­ча­ты­ва­ют­ся. Баллы на­чис­ля­ют­ся толь­ко за про­грам­му, ко­то­рая ре­ша­ет за­да­чу хотя бы для част­но­го слу­чая (на­при­мер, же­ла­ю­щих мень­ше, чем сто­ли­ков). Время при счи­ты­ва­нии удоб­но пе­ре­ве­сти в ми­ну­ты и в этом же виде хра­нить.

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы на языке Пас­каль:

var p:array[1..1000] of integer;

c,c1:char;

i,j,N,K:integer;

name:string;

time1,time2:integer;

begin

readln(N,K);

for i:=1 to K do

p[i]:=0;

for i:=1 to N do

begin

name:='';

repeat

read(c);

name:=name+c

until c=' '; {cчи­та­на фа­ми­лия}

read(c,c1); {cчи­та­ны чаcы пер­во­го вре­ме­ни}

time1:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

read(c,c,c1); {про­пу­ще­но двое­то­чие, и cчи­та­ны ми­ну­ты}

time1:=time1+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

read(c,c,c1); {cчи­та­ны чаcы вто­ро­го вре­ме­ни}

time2:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

readln(c,c,c1); {про­пу­ще­но двое­то­чие, и cчи­та­ны ми­ну­ты}

time2:=time2+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

for j:=1 to K do

if p[j]<=time1 then

begin

p[j]:=time2;

writeln(name,' ',j);

break;

end

end;

end.

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы на языке Бей­сик:

DIM p(1000) AS INTEGER

DIM s AS STRING

DIM nm AS STRING

INPUT n

INPUT k

FOR i = 1 TO k

p(i) = 0

NEXT i

FOR j = 1 TO n

LINE INPUT s

c$ = MID$(s, 1, 1)

i = 1

WHILE NOT (c$ = " ")

i = i + 1

c$ = MID$(s, i, 1)

WEND

nm = MID$(s, 1, i)

time1 = (ASC(MID$(s, i + 1, 1)) - ASC("0")) * 60 * 10

time1 = time1 + (ASC(MID$(s, i + 2, 1)) - ASC("0")) * 60

time1 = time1 + (ASC(MID$(s, i + 4, 1)) - ASC("0")) * 10

time1 = time1 + (ASC(MID$(s, i + 5, 1)) - ASC("0"))

time2 = (ASC(MID$(s, i + 7, 1)) - ASC("0")) * 60 * 10

time2 = time2 + (ASC(MID$(s, i + 8, 1)) - ASC("0")) * 60

time2 = time2 + (ASC(MID$(s, i + 10, 1)) - ASC("0")) * 10

time2 = time2 + (ASC(MID$(s, i + 11, 1)) - ASC("0"))

FOR i = 1 TO k

IF time1 >= p(i) THEN

p(i) = time2

PRINT nm, i

GOTO 10

ENDIF

NEXT i

10 NEXT j

END