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

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

type pp=record

name:string[20];

time:integer;

end;

var

p:array[1..1000]of pp;

q:pp;

c,c1:char;

i,j,N,time1:integer;

begin

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

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

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

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

readln(N);

j:=1;

for i:=1 to N do

begin

p[j].name:='';

repeat

read(c);

p[j].name:=p[j].name+c

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

read(c,c1); {счи­та­ны часы}

p[j].time:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));

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

p[j].time:=p[j].time+(ord(c)-ord('0'))*10+ord(c1)-ord('0');

if (p[j].time>=time1)and(p[j].time<=time1+180)then

j:=j+1; {дан­ные за­не­се­ны в мас­сив}

end;

N:=j-1;

for i:=1 to N-1 do {сор­ти­ру­ем дан­ные}

for j:=1 to N-i do

if p[j].time>p[j+1].time then

begin

q:=p[j];

p[j]:=p[j+1];

p[j+1]:=q;

end;

for i:=1 to n do

writeln(p[i].name);

end.

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

DIM t(1000) AS INTEGER

DIM m(1000) AS STRING * 20

DIM s AS STRING

DIM nm AS STRING

LINE INPUT s

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

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

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

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

INPUT N

k = 0

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)

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

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

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

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

IF time2 >= time1 AND time2 <= time1 + 180 THEN

k = k + 1

t(k) = time2

m(k) = nm

ENDIF

NEXT j

FOR i = 1 TO k - 1

FOR j = 1 TO k - i

IF t(j) > t(j + 1) THEN

time2 = t(j): nm = m(j)

t(j) = t(j + 1): m(j) = m(j + 1)

t(j + 1) = time2: m(j + 1) = nm

ENDIF

NEXT j

NEXT i

FOR i = 1 TO k

PRINT m(i)

NEXT i

END