Красноярск

Россия

Очень простая на Паскаль.
Входные параметры - дата.
Выходной параметр - дата "строкой" в формате "20151231235959".

Основная сложность - нельзя использовать никакие функции! Вообще.
Никаких TimeDataToStr, IntToStr, Ord, Chr, Str и прочих.
Вызовов функций быть не должно - функция будет работать в МК.
Но одну функцию вызывать можно - INT_TO_BCD (см ниже).
Также выходной параметр типа "array [0..13] of byte"!

Описание такое:
type TByteStr = array [0..13] of byte;
procedure TDToByteStr(
  Year, Month, Day, Hour, Minute, Second: Integer;
  var D: TByteStr
);

Описание INT_TO_BCD:
x := INT_TO_BCD(9999);
Результат: x = $9999

Это интересная чистая задачка для разминки мозгов с утра.
Время задачи ограниченно - нужно сделать сегодня.

Сергей gorionie

Отзывы заказчиков