|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.10.2009, 22:37 | #1 |
Пользователь
Регистрация: 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 |
24.10.2009, 22:42 | #2 |
Пользователь
Регистрация: 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. |
24.10.2009, 22:42 | #3 |
Пользователь
Регистрация: 07.10.2009
Сообщений: 23
|
Не совсем понимаю как это работает и где исправить под мою задачу
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
интересные проги | 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 |