Преобразование дробных чисел

[Gon]

Здравствуйте.
Нужно сделать программу на паскале которая переводила бы дробное число из 10 СС в другу СС.
Поиском я искал, но помоему там нет програм которые могут перевести дробное число, а как отредактировать те програмы под дробное число я незнаю.
Вот задание:
Ввод: дробное число в 10 СС, конечная СС, число знаков в дробной части конечного представления.
Вывод: округленное дробное число в n-ой СС.
Надеюсь на вашу помощь.
Зарание спасибо.

[Gon]

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

[alexBlack]

Frac(X)
или, что то-же самое
X - Int(X)

[Gon]

Написал программу:

PROGRAM Transform(INPUT, OUTPUT);
USES CRT;
VAR
  ss, b, s: STRING;
  Ch1, p, k: INTEGER;
  n, Ch2: REAL;
BEGIN
  s := '0123456789ABCDEF';
  WRITELN('Введите число');
  READ(n);
  WRITELN('Введите СС');
  READ(k);
  Ch1 := TRUNC(n);
  Ch2 := n - Ch1;
  WHILE Ch1 >= 1
  DO
    BEGIN
      p := Ch1 mod k;
      IF p >= 10
      THEN
        b := COPY(s, p, 1)
        ELSE
          STR(p, b);
          ss := b + ss;
          Ch1 := Ch1 DIV k;
    END;
  WRITELN(ss);
  READKEY;
END.

Но не смог перевести дробную часть. Подскажите как ее можно перевести и если гдето что то неправильно исправте пожалуста.

[alexBlack]

Вот код, который переводит только дробную часть из десятичной в другую и обратно.

{ перевод дробной части из десятичной в систему с основание C
  T - точность
}
type CC = 2..16;
function fromDec(x:real; C:CC; T:integer):String;
var S:String;
    a:integer;
begin
   x := frac(x);    // на всякий случай
   S := '0.';
   while length(S)-2 < T do begin
      x := x * C;
      a := trunc(x);
      if a >= 10
      then S := S + chr(a-10+ord('A'))
      else S := S + chr(a+ord('0'));
      x := x - a;
   end;
   fromDec := S;
end;

{ Из системы счисления C в десятичную
  Только для дробной части
}
function toDec(S:String; C:CC):real;
var k, x:real;
    p, i, n:integer;
begin
   x := 0;
   p := pos('.', S);
   k := C;
   for i:=p+1 to length(S) do begin
      n := ord(S[i]);
      if n >= ord('A')
      then n := n - ord('A') + 10
      else n := n - ord('0');
      x := x + n/k;
      k := k * C
   end;
   toDec := x
end;

   // Пример использования
   x := 0.75;
   S := fromDec(x, 2, 5);   // S = 0.11
   y := toDec(S, 2);  // y = 0.75

   x := 0.123;
   S := fromDec(x, 16, 7); // S = 0.1F7CE 
   y := toDec(S, 16);  //y = 0.122999...

По Вашему коду. Внешне кажется все правильно. Можете сравнить с другими примерами на форуме. Это вопрос задавался часто. А чтобы быть уверенным, что код работает сделайте тестовые примеры и прогоните их.

[Gon]

Спасибо теперь я разобрался, просто проблема была в том что я с функциями не умею работать, ну щас почитал литературы и вроде бы все понял.