Группировка цифр по разрядам

[Ilya_L]

Здравствуйте! Помогите мне с группировкой цифр по разрядам точно также , как и в калькуляторе windows.

[Stilet]

Что-то типа

var i:integer;s:string;
begin
 i:=123456;
 str(i,s);
 i:=(length(s) div 3);
 while i>1 do begin  insert(',',s,i-3);dec(i,3); end;
 write(s);
 readln;
end.

Не проверял

[Grag]

А я в своей программе вот так делал группировку разрядов

  Idx:=Length(Number);
  while Idx>2 do
    begin
      Dec(Idx,2);
      Insert(' ',Number,Idx);
      Dec(Idx)
    end;

Проверено, работает...

[Ilya_L]

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

А я в своей программе вот так делал группировку разрядов

  Idx:=Length(Number);
  while Idx>2 do
    begin
      Dec(Idx,2);
      Insert(' ',Number,Idx);
      Dec(Idx)
    end;

Проверено, работает...

Да, действительно работает...Спасибо!

[Ilya_L]

А если число дробное и нужно начать группировку от запятой, а не с конца числа?

[Serge_Bliznykov]

а вы скажите, число знаков после запятой фиксированное или нет?

А вообще так же: переводите число в строку, и добавляйте в начало нужное число пробелов.

p.s. если не разберётесь - помогу. только ответьте на вопрос...

[Ilya_L]

Вообще нет, не фиксированное количество...

[Serge_Bliznykov]

так не бывает.. я уж не говорю, что банально ограничение имеет машинное представление вещественного числа (зависит от используемого типа данных, компилятора, ОС и т.д.)
Но Вы собираетесь сколько знаков после запятой выводить? Три? Пять? Десять? Пятнадцать?!
вот, поясню:

программа:
var r : double;
  s : string;
begin
  r := 100.0 / 3.0;
  str(r:1:16, s);
  WriteLn(s);
end.
выдаст:
33.3333333333333357

Вам столько знаков и надо, сколько может хранить вещественное число?


т.е.
1) определитесь сколько знаков выводить после запятой.
2) если хотите, незначащие нули после запятой можно отбрасывать
только решите, число 2.00000 как должно отображаться?
(варианты:
2
2.
2.0
2.000 000 000
или как??? )

как только ответите на вышеизложенное - так я Вам набросаю кодик.
(подсказка. достаточно найти через Pos('.',s) позицию десятичной точки и дальше уже просто...)

[Ilya_L]

например, вот так: 1 234 567,78901234 и после запятой 10 цифр только не больше

[Serge_Bliznykov]

пробуйте:

var r : extended;
  Number : string;
  Idx : integer;

begin
  r := 1000000000.0 / 3.0;
  str(r:1:16, Number);

  if Pos('.', Number)>1 then
    Idx := Pos('.', Number)-1
  else
    Idx:=Length(Number);
  while Idx>2 do
    begin
      Dec(Idx,2);
      Insert(' ',Number,Idx);
      Dec(Idx)
    end;
  WriteLn(Number);
end.