Урок 3, задача 5 Задача 1478. Урок в неделе, Pascal

Language: Layout:

{
Урок 3, задача 5 Задача №1478. "Урок в неделе"
Пусть в школе пять дней в неделю ежедневно проходят шесть уроков. 
Тогда в неделе всего 30 уроков. По введенному номеру дня d и номеру урока l 
найдите порядковый номер этого урока в неделе.

Входные данные
На вход программе подаются номер дня d (от 1 до 5) и номер урока l (от 1 до 6).

Выходные данные
Выведите номер этого урока в неделе (от 1 до 30).

Примеры
входные данные 2 1
выходные данные 7
}
var d, n : integer;
begin
  writeln ('Input day number (1-5) and lesson number(1-6)');
  readln (d, n);
  {
  Номер в строке это n mod 7, а не 6, так как 6 mod 6 даёт 0 (ноль).
  К этому номеру нужно прибавить кол-во элементов в строке,
  если это не первая строка: 6*(d - 1), а не на d, так как, 
  если брать первый день (пн), то сразу прибавится 6.
  Вообще говоря, чтобы этого избежать, нумерацию лучше начинать с нуля.
  После первого способа решения представлен второй вариант решения этой задачи.
  }

{Первый способ, нумерация начинается с единицы}
  writeln ( 6 * ( d - 1 )   + ( n mod 7 ) );
{
       1  2  3  4  5  6
пн  1 01 02 03 04 05 06
вт  2 07 08 09 10 11 12
ср  3 13 14 15 16 17 18
чт  4 19 20 21 22 23 24
пт  5 25 26 27 28 29 30

Таблицу можно нарисовать по-другому - поменять местами столбцы и строки.
Только в этом случае нумерация ячеек будет направлена сверху вниз, слева на 
право.
    пн вт ср чт пт
     1  2  3  4  5
 1  01 07 13 19 25
 2  02 08 14 20 26
 3  03 09 15 21 27
 4  04 10 16 22 28
 5  05 11 17 23 29
 6  06 12 18 24 30
}
{Второй способ, нумерция начинается с нуля}
  writeln ('Input day number(0-4) and lesson number (0-5)');
  readln (d, n);
  writeln ( 6 * d   + (n mod 6) );
{
Таблица будет выглядеть так:
       0  1  2  3  4  5
пн  0 00 01 02 03 04 05
вт  1 06 07 08 09 10 11
ср  2 12 13 14 15 16 17
чт  3 18 19 20 21 22 23
пт  4 24 25 26 27 28 29

Если необходимо, чтобы нумерация ячеек в таблице была бы с 1, а не с нуля, то есть от 1 до 30,
то к 6*d + n mod 6 прибавляем 1
}
  writeln ( 6 * d   + (n mod 6) + 1 );
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.6 sec, absolute running time: 0.37 sec, cpu time: 0.03 sec, memory peak: 3 Mb, absolute service time: 1,14 sec