программы упаковки и распаковки

@strateg66 · Регистрация: 06.10.2009

Студворк — интернет-сервис помощи студентам

Составить две программы, первая из которых вводит составные части структуры данных, приведенной в Вашем варианте индивидуального задания, и формирует из них заданную упакованную структуру. Вторая программа вводит упакованную структуру как 16-ричное число и выводит значения отдельных ее составных частей.
Формат представления текущей даты в некоторых системных структурах имеет вид:
№ разряда 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00
Значение D D D D D M M M M M Y Y Y Y Y Y

где:
D..D - день
M..M - месяц
Y..Y - год после 1980

Добавлено через 4 минуты
за основу предлагают взять такой вид программы упаковки

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program Project1;
{ $APPTYPE CONSOLE} 
uses
  SysUtils;
Var   C:Byte;
      F:Byte;
      B:Byte;
      N:Byte;
     UnitStateWord:Word;
begin
 Write('Введите код состояния (0..31) >');
 ReadLn(C);
 Write('Введите признак ошибки - (0,1) >');
 ReadLn(F);
 Write('Введите признак занятости - (0,1) >');
 ReadLn(B);
 Write('Введите количество байт - (0..255) >');
 ReadLn(N);
 UnitStateWord:=(C and $1F) shl 11;
 UnitStateWord:=UnitStateWord or (F and 1) shl 9;
 UnitStateWord:=UnitStateWord or (B and 1) shl 8;
 UnitStateWord:=UnitStateWord or N;
 WriteLn(Format('%d=$%0:x',[UnitStateWord]));
 ReadLn;
end.

Не могу в ней разобраться и переделать под свою задачу

@odip · 25.10.2009, 15:43

Для месяца хватит всего 4-ех бит, непонятно зачем 5 выделили ?!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@odip 7176 / 3234 / 82 Регистрация: 17.06.2009 Сообщений: 14,164
	25.10.2009, 15:43
	Для месяца хватит всего 4-ех бит, непонятно зачем 5 выделили ?! 0