Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2009, 22:37   #1
strateg66
Пользователь
 
Регистрация: 07.10.2009
Сообщений: 23
По умолчанию проги распаковки и упаковки

Составить две программы, первая из которых вводит составные части структуры данных, приведенной в Вашем варианте индивидуального задания, и формирует из них заданную упакованную структуру. Вторая программа вводит упакованную структуру как 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
strateg66 вне форума Ответить с цитированием
Старый 24.10.2009, 22:42   #2
strateg66
Пользователь
 
Регистрация: 07.10.2009
Сообщений: 23
По умолчанию

За основу предлагают взять такую прогу
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.
strateg66 вне форума Ответить с цитированием
Старый 24.10.2009, 22:42   #3
strateg66
Пользователь
 
Регистрация: 07.10.2009
Сообщений: 23
По умолчанию

Не совсем понимаю как это работает и где исправить под мою задачу
strateg66 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
интересные проги kipish Софт 85 18.12.2022 01:03
не найдена программа распаковки vids anton14 Мультимедиа в Delphi 4 16.05.2018 19:45
2 проги на Си blackbanny Общие вопросы C/C++ 10 15.10.2009 17:06
Автозапуск проги! blackstersl Общие вопросы Delphi 3 21.12.2008 02:57
контр сумма файла + размер упаковки serna Общие вопросы Delphi 1 20.01.2008 12:13