Перевод числа.

[bignick]

Помогите написать програму для перевода дробного числа из десятичной системы в шестнадцатиричную систему на Turbo Pascal.

[Stilet]

Умеешь переводить простое число в другую систему?
Вот к раздумьям:
http://www.programmersforum.ru/showt...079#post179079

[bignick]

целое десятичное число я умею переводить в другую систему. а вот как перевести дробное число я не знаю.

[Stilet]

Сначала получаешь целую часть, переводишь, потом дробную - опять ее переводишь, и записываешь через запятую строкой - Целое,Дробное.

[bignick]

а можна в примере написать, ато я не могу понять как ет сделать в Pascal.

[Stilet]

Ну предположим вот так делить

 var x:extended;y,r:integer; s:string;e:integer;
begin     {$o-}
 x:=123.56;
 y:=trunc(x);
 str(x-y:0:10,s);
 while (length(s)>0)and(s[length(s)]='0') do delete(s,length(s),1);
 delete(s,1,2);
 val(s,r,e);
 write(y:5,r:5);
 readln;
end.