Пятница, 26.04.2024, 01:20
Блог учителя информатики и математики
О блогеМой профильРегистрацияВыходВход
Вы вошли как Гость · Группа "Гости" Приветствую Вас, Гость · RSS
Меню блога
Погода в нашем районе.

НАГРАДА
Как Вы считаете, должны ли дети ходить в школу в школьной форме?
[ Результаты · Архив опросов ]
Всего ответов: 2806
 
 Блог учителя
Главная » Статьи » Информатика » В помощь ученику
Разбор задачи C4

 

 

  Разбор задачи C4 

На вход программе подаются сведения о пассажирах, желающих сдать свой багаж в камеру хранения на заранее известное время до полуночи. В первой строке сообщается число пассажиров N, которое не меньше 3, но не превосходит 1000; во второй строке – количество ячеек в камере хранения K, которое не меньше 10, но не превосходит 1000. 
Каждая из следующих N строк имеет следующий формат:

<Фамилия> <время сдачи багажа> <время освобождения ячейки>,

где <Фамилия> – строка, состоящая не более чем из 20 непробельных символов; 
<время сдачи багажа> – через двоеточие два целых числа, соответствующие часам (от 00 до 23 – ровно 2 символа) и минутам (от 00 до 59 – ровно 2 символа); 
<время освобождения ячейки> имеет тот же формат. 
<Фамилия>, <время сдачи багажа> и <время освобождения ячейки> разделены одним пробелом. 
Время освобождения больше времени сдачи. 
Сведения отсортированы в порядке времени сдачи багажа. Каждому из пассажиров в камере хранения выделяется свободная ячейка с минимальным номером. Если в момент сдачи багажа свободных ячеек нет, то пассажир уходит, не дожидаясь освобождения одной из них. 
Требуется написать программу (укажите используемую версию языка программирования, например Borland Pascal 7.0), которая будет выводить на экран для каждого пассажира номер ему предоставленной ячейки (можно сразу после ввода данных очередного пассажира). Если ячейка пассажиру не предоставлена, то его фамилия не печатается. 
Пример входных данных: 
3 
10 
Иванов 09:45 12:00 
Петров 10:00 11:00 
Сидоров 12:00 13:12 
Результат работы программы на этих входных данных: 
Иванов 1 
Петров 2 
Сидоров 1
 
Решение:

Программа написана на языках:

  • Паскаль (среда разработки Turbo Pascal 7.0),
  • Бейсик (среда разработки Quick Basic 4.5),
  • Си (среда разработки Borland C++ 3.1),
  • Алгоритмический язык (среда разработки Кумир 1.9.0).

Чтобы прочесть комментарии к программе, наведите мышью на выделенные  цветом символы и служебные слова.

 

var
  i,j,N,K,time1,time2: integer;
  p:array[1..1000] of integer;
  c,c1:char;
  name:string;
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=' ';
     read(c,c1);
     time1:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));
     read(c,c,c1);
     time1:=time1+(ord(c)-ord('0'))*10+ord(c1)-ord('0');
     read(c,c,c1);
     time2:=60*((ord(c)-ord('0'))*10+ ord(c1)-ord('0'));
     readln(c,c,c1);
     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;
  readln
end.		 алг 
нач
   цел i, j, N, K, time1,time2
   целтаб p[1:1000]
   лит str,name
   ввод N
   ввод K
   нц для i от 1 до K
      p[i]:=0
   кц
   нц для i от 1 до N
      ввод str
      j:=1
      name:=""
      нц
         name:=name+str[j]
         j:=j+1
      кц при str[j]=" "
      time1:=(код(str[j+1])-код('0'))*60*10
      time1:=time1+(код(str[j+2])-код('0'))*60
      time1:=time1+(код(str[j+4])-код('0'))*10
      time1:=time1+(код(str[j+5])-код('0'))
      time2:=(код(str[j+7])-код('0'))*60*10
      time2:=time2+(код(str[j+8])-код('0'))*60
      time2:=time2+(код(str[j+10])-код('0'))*10
      time2:=time2+(код(str[j+11])-код('0'))
      нц для j от 1 до K
         если time1>=p[j] то
            p[j]:=time2
            вывод name,' ',j,нс
            выход
         все
      кц
   кц
кон
Бейсик СИ 
DIM i, j, N, K, time1, time2 AS INTEGER
DIM p(1000) AS INTEGER
DIM nm AS STRING
DIM s AS STRING
INPUT N
INPUT K
FOR i = 1 TO K
  p(i) = 0
NEXT i
FOR i = 1 TO N
  LINE INPUT s
  c$ = MID$(s, 1, 1)
  j = 1
  WHILE NOT (c$ = " ")
    j = j + 1
    c$ = MID$(s, j, 1)
  WEND
  nm = MID$(s, 1, j - 1)
  time1 = (ASC(MID$(s, j + 1, 1))-ASC("0"))*60*10
  time1 = time1+(ASC(MID$(s, j+2,1))-ASC("0"))*60
  time1 = time1 +(ASC(MID$(s, j+4,1))-ASC("0"))*10
  time1 = time1 + (ASC(MID$(s, j + 5, 1))-ASC("0"))
  time2 = (ASC(MID$(s, j + 7,1))-ASC("0"))*60*10
  time2 = time2 +(ASC(MID$(s, j+8,1))-ASC("0"))*60
  time2 =time2+(ASC(MID$(s, j+10,1))-ASC("0"))*10
  time2 = time2 + (ASC(MID$(s, j+11,1))-ASC("0"))
  FOR j = 1 TO K
    IF time1 >= p(j) THEN
       p(j) = time2
       PRINT nm; j
       GOTO 10
    END IF
  NEXT j
10 NEXT i
END		 #include <stdio.h> 
#include <string.h>
#include <conio.h>
void main()
{
   int i,j,N,K,time1,time2,chas1,min1,chas2,min2;
   int p[1000];
   char name[20];
   scanf("%d",&N);
   scanf("%d",&K);
   for(i=0;i<K;i++){
       p[i]=0;
   }
   for(i=0;i<N;i++){
      scanf("%s %d%*c%d%d %*c%d",
               name,&chas1,&min1,&chas2,&min2);
      time1=chas1*60+min1;
      time2=chas2*60+min2;
      for(j=0;j<K;j++){
         if(p[j]<=time1){
             p[j]=time2;
             printf("%s %d\n",name,j+1);
             break;
         }
      }
   }

   getch();
}

Работа программы на Pascal:

3

10

Иванов 09:45 12:00

Иванов 1

Петров 10:00 11:00

Петров 2

Сидоров 12:00 13:12

Сидоров 1

 

 

Категория: В помощь ученику | Добавил: Harchev (08.04.2013)
Просмотров: 3968 | Комментарии: 2 | Теги: демо ЕГЭ, паскаль, си, Бейсик, Разбор задачи C4 | Рейтинг: 4.2/45
Всего комментариев: 0
Имя *:
Email *:
Код *:
Copyright MyCorp © 2024
Блог учителя Учительский портал