RusFAQ.ru: Программирование на языке Pascal
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на языке Pascal
Выпуск № 165
от 28.06.2003, 16:20
| Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков |
О рассылке: Задано вопросов: 292 Отправлено ответов: 1031 Активность: 353.0 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| _vt Статус: Опытный Общий рейтинг: 122.08 [Подробней >>] |
Tancho Статус: Опытный Общий рейтинг: 151.61 [Подробней >>] |
Ayl Статус: Профессиональный Общий рейтинг: 118.45 [Подробней >>] |
| URiS Статус: Начальный Общий рейтинг: 134.28 [Подробней >>] |
Bill Статус: Опытный Общий рейтинг: 184.28 Телефон: (8342) 324312 [Подробней >>] |
Tibor Статус: Доверительный Общий рейтинг: 164 [Подробней >>] |
| vitya Статус: Профессиональный Общий рейтинг: 108.11 [Подробней >>] |
Tigran K. Kalaidjian Статус: Профессиональный Общий рейтинг: 120.02 URL: Методы оптимизации работы ПК [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 291. здравствуйте, эксперты! Как можно переводить шестнадцатеричные числа в десятеричные и наооборот? мож... (ответов: 8)
Вопросов: 1, ответов: 8
| Вопрос № 291 |
здравствуйте, эксперты!
Как можно переводить шестнадцатеричные числа в десятеричные и наооборот?
можно ли в паскале делать так: inc(z);, где z-шестнадцатеричное число.
Допустим, z=F; увеличившьсь, будет z=10;
Вопрос отправлен: 25.06.2003, 16:19
Отправитель: New2 (new2student@rambler.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает _vt
Здравствуйте, New2!
Число Z так и будет: сначала =15, потом 16, просто в шестнадцатиричном виде это представлено как 0F и 10. А если нужна именно такая процедура, то написать вполне можно (например двоично-десятичный вид чисел реализован в процессорах Intel аппаратно)
---===*** E-Man 1.2 - Powerful toy***===---
Ответ отправлен: 25.06.2003, 23:41
Отправитель: _vt
Отвечает Tancho
Добрый день, New2!
1) Для перевода из шестнацатеричного в десятичного и наоборот смотри в Приложение! Здесь я написал прогу в которою есть двух функции реализующие это, надеюсь все будеть понятно!;
2) В общем если z:='F', то inc(z)не даеть '10', а 'G'
(z=F это что? В Pascal'е это допустимо только в контексте
логического израза) .
В Pascal'е процедура inc не меняет тип аргументов!
Она имеет вид Inc(x[,n : LongInt])- где x это переменная
перечислимого типа, а n если она присуствуеть целочисленного типа. В результат выпольнение процедурый,
х получаеть стойност следующего елемента перечислимаго типа если n отсуствуеть и стойност 'x+n'-ого елемента из перечислимого типа если n присуствуеть. В Pascal'e из
стандартных перечислимых типов шестнацетерычный отсуствуть и
то что ты спрашиваешь возможно только если ты дефинираешь
(как множество) собственный перечислимый тип в котором
после елемента F, бутеть елемент 10, тогда если
z имееть твой тип то после z := F и inc(z) то будет
z := 10. Иначе нельзя!
Приложение:
Ответ отправлен: 26.06.2003, 11:54
Отправитель: Tancho
Отвечает Ayl
Доброе время суток, New2!
Извини, а как у тебя z описано? Если z описано как Byte, Word, Integer или LongInt - то без проблем. Если же как Char или String - извини, не получится.
Теперь про перевод. Пусть a - переменная целого типа (Byte, Word, Integer или LongInt). Каким образом присваивать ей значение - фиолетово. Можно так: a := 10; (десятичное число), а можно и так: a := $0A; (шестнадцатиричное представление 10).
В окне просмотра переменных (Watch Window, вызывается через Ctrl+F7) переменная может отображаться либо в десятичном виде (по умолчанию), либо в 16-ричном (для этого нужно написать a,x или a,X).
Пусть требуется вывести на экран значение переменной в 16-ричном виде. Для этого нужно написать следующую функцию (см.приложение).
Теперь, например, вызов writeln (Hex (100)); выведет на экран строку 64 - 16-ричное представление числа 100.
Приложение:
Ответ отправлен: 25.06.2003, 17:28
Отправитель: Ayl
Отвечает URiS
Приветствую Вас, New2!
Шестнадцатеричные числа - это HEX, а десятичные - DEC.
На уровне самого компилятора все числа - DEC, но можно задавать их как HEX.
Например, вместо z:=15; можно написать z:=$F;
Строчка z:=(1000-$FF)*$13; также будет правильной.
Однако все числа процедурой Writeln выводятся в DEC.
Чтобы вывести число как HEX нужно использовать нестандартные функции, которые преобразуют обычное число(DEC) в строку(string) формата HEX.
Представленная в приложении процедура взята из справки Turbo Pascal и выводит на экран число WORD в виде HEX.
*EMan1.4 © Bob Johnson | Expert: URiS (newff.narod.ru)
Приложение:
Ответ отправлен: 26.06.2003, 11:10
Отправитель: URiS
Отвечает Bill
Приветствую Вас, New2!
Есть представление чисед внутри ЭВМ, и есть то, как они отображаются на экране. На экране всега строковая переменная - символы.
Все числа "внутри" ЭВМ представлены в двоичном коде. 16-ричное - это лишь короткая запись двоичного и не больше. И Pascal отображает число в десятичном формате.
Смотри в примере как можно переписать функцию INC. Естественно, что если Вы используете один формат представления, то второй параметр можно функции не передавать
Приложение:
Ответ отправлен: 25.06.2003, 18:32
Отправитель: Bill
Отвечает Tibor
ARJ TECHNICAL INFORMATION April 1993
** IMPORTANT NEWS ****************************************************
Some archiver support programs have incorporated ARJ archive
identification schemes that are not reliable. At ARJ 2.39, there
are now two versions of the large self-extraction module. The 17K
byte ARJSFX module supports ARJ-SECURITY. The standard 15K byte
ARJSFX module does NOT support ARJ-SECURITY. For the first time, the
ARJ-SECURITY fields in the main ARJ header are publicly defined.
In addition, the main ARJ header in self-extracting archives does NOT
immediately follow the EXE module now.
ARJ has used the same ARJ archive identification scheme since ARJ
1.0. The following is the algorithm:
(1) find the ARJ header id bytes 0x60, 0xEA,
(2) read the next two bytes as the header record size in bytes,
(3) if the record size is greater than 2600, go back to the header
id file position, increment the file position, and go back to
step (1),
(4) read the header record based upon the previous byte count,
(5) calculate the 32 bit CRC of the header record data,
(6) read the next four bytes as the actual header record CRC,
(7) if the actual CRC does not equal the calculated CRC, go back
to the header id file position, increment the file position,
and go back to step (1).
This algorithm is fully demonstrated in the UNARJ C source code.
When using listfiles with ARJ, ARJ support programs should use the
"-p" option to ensure that ARJ will only extract the selected files
from an ARJ archive. This is important for ARJ archives that have
pathname information stored.
There is an extended header bug in older versions of ARJ, AV.C and
UNARJ.C. The extended header processing in read_header() should
skip 4 bytes for the extended header CRC and not 2. This is NOT a
current problem as no versions of ARJ use the extended header.
**********************************************************************
Modification history:
Date Description of modification:
-------- ------------------------------------------------------------
03/17/93 Added information about ARJSFX change.
02/17/93 Added description of ARJ security fields.
Added archive date-modified field.
12/03/91 Added BACKUP flag to header arj flags.
11/21/91 Described the two types of headers separately.
11/11/91 Added information about the change in text mode processing.
06/28/91 Added several new HOST OS numbers.
05/19/91 Improved the description of extended header processing.
05/11/91 Simplified this document. Added volume label type.
03/11/91 Added directory file type.
02/23/91 Added more comments.
01/10/91 Corrected timestamp description and header order of file mode.
10/30/90 Corrected values of flags in ARJ flags.
ARJ archives contains two types of header blocks:
Archive main header - This is located at the head of the archive
Local file header - This is located before each archived file
Structure of main header (low order byte first):
Bytes Description
-----
-------------------------------------------------------------------
2 header id (main and local file) = 0x60 0xEA
2 basic header size (from 'first_hdr_size' thru 'comment' below)
= first_hdr_size + strlen(filename) + 1 + strlen(comment) + 1
= 0 if end of archive
maximum header size is 2600
1 first_hdr_size (size up to and including 'extra data')
1 archiver version number
1 minimum archiver version to extract
1 host OS (0 = MSDOS, 1 = PRIMOS, 2 = UNIX, 3 = AMIGA, 4 = MAC-OS)
(5 = OS/2, 6 = APPLE GS, 7 = ATARI ST, 8 = NEXT)
(9 = VAX VMS)
1 arj flags
(0x01 = NOT USED)
(0x02 = OLD_SECURED_FLAG)
(0x04 = VOLUME_FLAG) indicates presence of succeeding
volume
(0x08 = NOT USED)
(0x10 = PATHSYM_FLAG) indicates archive name translated
("" changed to "/")
(0x20 = BACKUP_FLAG) indicates backup type archive
(0x40 = SECURED_FLAG)
1 security version (2 = current)
1 file type (must equal 2)
1 reserved
4 date time when original archive was created
4 date time when archive was last modified
4 archive size (currently used only for secured archives)
4 security envelope file position
2 filespec position in filename
2 length in bytes of security envelope data
2 (currently not used)
? (currently none)
? filename of archive when created (null-terminated string)
? archive comment (null-terminated string)
4 basic header CRC
2 1st extended header size (0 if none)
? 1st extended header (currently not used)
4 1st extended header's CRC (not present when 0 extended header size)
Structure of local file header (low order byte first):
Bytes Description
-----
-------------------------------------------------------------------
2 header id (main and local file) = 0x60 0xEA
2 basic header size (from 'first_hdr_size' thru 'comment' below)
= first_hdr_size + strlen(filename) + 1 + strlen(comment) + 1
= 0 if end of archive
maximum header size is 2600
1 first_hdr_size (size up to and including 'extra data')
1 archiver version number
1 minimum archiver version to extract
1 host OS (0 = MSDOS, 1 = PRIMOS, 2 = UNIX, 3 = AMIGA, 4 = MAC-OS)
(5 = OS/2, 6 = APPLE GS, 7 = ATARI ST, 8 = NEXT)
(9 = VAX VMS)
1 arj flags (0x01 = GARBLED_FLAG) indicates passworded file
(0x02 = NOT USED)
(0x04 = VOLUME_FLAG) indicates continued file to next
volume (file is split)
(0x08 = EXTFILE_FLAG) indicates file starting position
field (for split files)
(0x10 = PATHSYM_FLAG) indicates filename translated
("" changed to "/")
(0x20 = BACKUP_FLAG) indicates file marked as backup
1 method (0 = stored, 1 = compressed most ... 4 compressed fastest)
1 file type (0 = binary, 1 = 7-bit text)
(3 = directory, 4 = volume label)
1 reserved
4 date time modified
4 compressed size
4 original size (this will be different for text mode compression)
4 original file's CRC
2 filespec position in filename
2 file access mode
2 host data (currently not used)
? extra data
4 bytes for extended file starting position when used
(these bytes are present when EXTFILE_FLAG is set).
0 bytes otherwise.
? filename (null-terminated string)
? comment (null-terminated string)
4 basic header CRC
2 1st extended header size (0 if none)
? 1st extended header (currently not used)
4 1st extended header's CRC (not present when 0 extended header size)
...
? compressed file
Time stamp format:
31 30 29 28 27 26 25 24 23 22 21 20 19 18 17 16
|<---- year-1980 --->|<- month ->|<--- day ---->|
15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0
|<--- hour --->|<---- minute --->|<- second/2 ->|
end of document
Ответ отправлен: 26.06.2003, 08:17
Отправитель: Tibor
Отвечает vitya
Здравствуйте, New2!
2. нельзя
1. придется тебе хранить число в виде строки и потом его конвертировать туда и обратно. В общем это не так сложно. Например если у тебя строка 'AAF' - то конвертируешь так
iM := 1;
lRet := 0;
//iLen длинна строчки
for i := iLen downto 1 do
begin
lRet := lRet + table[str[i]] * iM;
iM := iM * 16;
end;
table это таблица где символу соответствует число.
Обратно тоже есть алгоритмы.
Ответ отправлен: 25.06.2003, 16:40
Отправитель: vitya
Отвечает Tigran K. Kalaidjian
Здравствуйте, New2!
В Паскале (да и в любом другом языке) такого сделать нельзя, т.к. двоичное(дестичное, восьмеричное и т.д.) - это не числа, а ПРЕДСТАВЛЕНИЯ числа(в памяти они вообще сидят в двоичном виде).
Другое дело, если Вы создадите строку(string), состоящую из символов, соответствующих цифрам HEX-представления, и напишите ф-ции для работы с этой строкой, которые будут производить сложение, вычитание и пр.
Что касается математического перевода, то это можно сделать следующим образом:
Возьмем 16-ричное число. Сумма=0.
Берем последнюю цифру и умножаем на 16 в степени 0(т.е. на 1). Прибавляем к сумме.
Берем предпоследнюю цифру и умножаем на 16 в степени 1. Прибавляем к сумме.
Берем предпредпоследнюю цифру и умножаем на 16 в степени 2, Прибавляем к сумме.
.
.
.
Берем первую цифру и умножаем на 16 в степени (n-1), где n-число разрядов
16-ричного числа. Прибавляем к сумме.
В сумме будет лежать 10-чное число, эквивалентное данному.
Единственное, что ещё надо будет прописать-соответствие "цифр" > 9:
A->10
B->11
C->12
D->13
E->14
F->15
Пример: F1A->10*16^0+1*16^1+15*16^2=3866
Для преобразования в HEX формат следует последовательно делить число на степени 16-ти, при этом понижая показатели степени.
Например:
a=456
a div 256 = 1 -> 1
a:=a mod 256
a div 16 = 12 -> C
a:=a mod 16
a div 1 = 8 -> 8
Итого: 456->1C8
Подробнее смотрите в архиве на RusFaq.ru
Ответ отправлен: 25.06.2003, 19:34
Отправитель: Tigran K. Kalaidjian
|
Форма отправки вопроса |
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
(C) 2002-2003 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (36) C / C++ (23) Perl (4) Builder / Delphi (18) Pascal (26) Basic / VBA (10) Java / JavaScript (12) PHP (4) MySQL / MSSQL (5) |
Пользователю Windows 95/98/Me (30) Windows NT/2000/XP (27) "Железо" (21) Поиск информации (15) |
Администратору Windows NT/2000/XP (13) Linux / Unix (5) |
Юристу Гражданское право (7) Семейное право (3) Трудовое право (5) КоАП (4) |
Отправить вопрос всем экспертам выбранной рассылки.
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
