Знаковое число-слово перевести в 16тиричную строку?, ???? Опции

[DiSkEtKa]

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

Код

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.

[DiSkEtKa]

volvo, честно говоря не совсем поняла, что ты сделал, мне такое нельзя использовать, так как мы ещё не прошли этотFromDec.... Я разолбралась с заданием, вообщем мне нужно перевести знаковое чилсо( тип integer) в шестнадцатеричную строку...делаю, делаю, а уменя программа совес ничего не считает..подскажите пожалуйста, в чём проблема в моей мрограммке...

program nomer2;

var
a,i,n:integer;
t:array[1..7] of char;
F:boolean;
begin

writeln('vvedite chislo');
readln(a);
i:=0;
n:=7;
if a<0 then
    begin
        F:=TRUE;
        a:=abs(a);
     end;
        i:=n;
        while a<>0 do
        begin
          if a<=9 then
          begin
             t[i]:=chr(a mod 16+48);
             a:=a div 16;
             i:=i-1
          end

   if f=true then
   writeln('-',a)
   else writeln(a);
   end.

Сообщение отредактировано: volvo - 2.11.2006 18:39