IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Знаковое число-слово перевести в 16тиричную строку?, ????
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Женский

Репутация: -  0  +


В общем у меня задание такое: нужно перевести знаковое число типа word
в шестнадцатеричную строку.. Пожскажите пожалуйста как можно следить
за знаком(если отр число то переводить его абс. величину чтоли?), если нам дано
конекретное чило а, а не массив..я не могу никак додуматься.. unsure.gif


Код
program dva;
uses crt;
var a,i:byte;
    t:array[1..8] of word;
begin
    clrscr;
    writeln('vvedite a');
    readln(a);
    i:=1;
    repeat
            t[i]:=a mod 16 +65;
            a:=a div 16;
            i:=i+1
        until a=0;
        for i:=1 to 3 do
            write(t[i]);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Ну, так в чем проблема?
var
n: integer;

begin
n := -15; { Или ReadLn(n) }
writeln( FromDec(Word(n), 16) );
end.


Можешь проверить с использованием калькулятора Windows...

Ссылку на FromDec klem4 уже дал...
 К началу страницы 
+ Ответить 

Сообщений в этой теме
DiSkEtKa   Знаковое число-слово перевести в 16тиричную строку?   24.09.2006 15:46
volvo   :blink: :blink: Что-то изменилось??? Word всегда…   24.09.2006 16:03
DiSkEtKa   В задании написано: знаковое число слово перевести…   24.09.2006 19:27
klem4   Думаю ты не правильно поняла, тип Word как таковой…   24.09.2006 19:45
DiSkEtKa   Klem4, наверное ты прав..сейчас почитаю эту ссылку…   24.09.2006 21:01
volvo   Hexadecimal (шестнадцатеричный формат)   24.09.2006 21:05
DiSkEtKa   Но ведь мне чила нужно вводить в 10тичной системе …   24.09.2006 21:31
klem4   Ну и что ? Ты по ссылке ходила ? С помощью тех под…   24.09.2006 21:37
DiSkEtKa   А если число со знаком минус?Нужно использовать до…   24.09.2006 22:30
klem4   Так. Давай определимся. В каком формате тебе надо …   24.09.2006 22:45
DiSkEtKa   в виде целого знакового числа :unsure:   24.09.2006 22:52
volvo   Ну, так в чем проблема? var n: integer; begin …   24.09.2006 23:27
DiSkEtKa   volvo, честно говоря не совсем поняла, что ты сдел…   1.10.2006 19:45
volvo   Очень интересно... chr(a mod 16+48);, значит тебе …   1.10.2006 19:58
DiSkEtKa   Всё равно спасибо..сейчас попробую так как ты с…   1.10.2006 20:14


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 4:06
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name