Округлениче дробного числа

[Gon]

Подскажите как можно округлить дробное число Х с точностью У.
Т.е. я ввожу число(х = 15.54763) и ввожу число знаков после запятой(у = 3) и мне выводит 15.547

[vitalik007]

round(x,y);

[Gon]

У меня так не получается, говорит что после x нужно ")"

[vitalik007]

значит так нельзя.Просто в delphi можно

[Stepler]

Не знаю есть ли на паскале такая ф-цыя, но самому написать тоже не сложно, я бы сделал именно так! Ты попросут теряеш свое время на поиски!

[motaro]

вот так у меня вроде всё четко

uses crt;
var x,y:real;
begin
 clrscr;
 write ('Введите число: ');
 readln (x);
 write ('Введите число знаков после запятой ');
 readln (y);
 writeln (x :1:round(y));
 readkey
end.

[Gon]

А как это приспособить к этому коду.

PROGRAM Prog(INPUT, OUTPUT);
VAR
  X: STRING;
  Ch, Ch1, Y, Ch2: REAL;
  CC, Ch3: INTEGER;
CONST Digit: STRING[16]='0123456789ABCDEF';
FUNCTION Fromdec(N, Radix: LONGINT): STRING;
VAR
  S: STRING;
BEGIN
  S := '';
  REPEAT
    S := Digit[(N MOD Radix) + 1] + S;
    N := N DIV Radix;
  UNTIL N = 0;
  Fromdec := S;
END;
FUNCTION From_dec(X: REAL; Radix: INTEGER): STRING;
CONST
  Digit: STRING[16] = '0123456789ABCDEF';
  Max_prec = 6;
VAR
  _frac: REAL;
  S_frac: STRING;
  Precision: INTEGER;
BEGIN
  _frac := FRAC(X); S_frac := '.';
  Precision := 0;
  WHILE(_frac > 0) AND (Precision < Max_prec)
  DO
    BEGIN
      _frac := _frac * Radix;
      S_frac := S_frac + Digit[(TRUNC(_frac)) + 1];
      INC(Precision);
      _frac := FRAC(_frac);
    END;
  From_dec := Fromdec(TRUNC(X), Radix) + S_frac;
END;
BEGIN
  WRITE('Введите число ');
  READLN(Ch);
  WRITE('Введите СС ');
  READLN(CC);
  WRITE('Число знаков после запятой ');
  READLN(Ch1);
  X := From_Dec(Ch, CC);
  WRITELN(X :1 :ROUND(Ch1));
END.

Вылазит ошибка в

WRITELN(X :1 :ROUND(Ch1));

Скажите что подправить.

[motaro]

Сообщение от Gon

Вылазит ошибка в

WRITELN(X :1 :ROUND(Ch1));

Скажите что подправить.

наверно потому-что X- string, а записывать так можно с вещественными типами

[Gon]

Да, но если X не string то тогда я не смогу присвоить переменную From_Dec(Ch, CC);, то всеравно будет такая же ошибка ибо она тоже стринг Возможно как то переход сделать, или надо искать другой способ округления ?

[Gon]

Я тут подумал.
Если X:string и мы знаем сколько надо вывести знаков после запятой. Находим запятую в строке. Отсчитываем от нее нужное количество знаков, остальное удаляем. Выводим X.
Можно ли это как то реализовать ? Или так не получится.