Непростая задача на строки. Turbo Pascal

[alexkolbasnikov]

Зада фрагмент текста. Отредактировать его, заменяя изображения чисел последовательностью числовых триад и пробелов так, чтобы в дробной части числа распологались полные триады (Например, 22452,5276 должно представиться как 22 452,527 600) Буду очень признателен за помощь!

[Вадим Мошев]

22452,5276 должно представиться как 22 452,527 600

мне кажется, это неверное преобразование. В дробной части находится число 5276, и оно не может записано 527 6...., так как это вызовет неверное прочтение

[Stilet]

 function foo(n:double):String;
 var i,j:integer;Result:String;
 begin
  Str(n:10:8,Result);
  i:=pos('.',Result);;j:=i;
  while j<length(Result) do begin
    inc(j,4);insert(' ',Result,j);
  end;
  while i>0 do begin
    dec(i,3);insert(' ',Result,i);
  end;
foo:=Result;
 end;

begin
  write(foo(22452.5276));
end;

подходит?

[alexkolbasnikov]

Вроде всё работает спасибо, кроме Str(n:10:8,Result), подскажите, если не трудно, для чего служит эта функция, если её убрать то в конце нули не ставятся, как можно обойтись без неё?

[Stilet]

не работает(

Ну убери оттуда форматтер. Оставь только имя переменной.

[HedgehogLu]

без форматтера может оказаться трабла при больших числах когда оно представится через Е.
Либо использовать форматер и добивать нужные нули, либо писать собственную функцию представления числа в строку.
Либо представлять целую часть с пробелами. потом дробную часть умножить на 10 в нужной степени и опять целую часть представить строкой но уже без пробелов, тогда нужное количество нулей будет.

Хотя проще добить до нужного количества нулей ручками в уже существующем коде

[Poma][a]

мне кажется, это неверное преобразование.

Преобразование верное, но вот имеет ли оно смысл?

Мой вариант..

var
        s : string;
        i, t, p : Integer;

begin
        ReadLn (s);

        i := 1;
        while i <= Length(s) do begin
                if (i mod 3 = 0) and (s[i] in ['0'..'9']) then
                        Write (' ');
                Write (s[i]);
                Inc (i)
        end;

        p := Pos (',', s);
        t := (Length(s) - p) mod 3;

        for i := 1 to t do
                Write (0)
end.

[HedgehogLu]

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

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

И я купился
Блиииииин а нафига вообще преобразовывать текст в число, когда достаточно просто анализировать текст.
Идем по тексту до первой цифры продолжаем пока идут цифры если перед цифрами не стояло запятой или точки то разбиваем на триады если же стояла то копируем как есть. При разбитии на триады надо будет возвращаться от конца последовательности цифр к началу
вот и все. И пофиг насколько эти цифры большие и т.д.

[HedgehogLu]

Poma][a у вас все та-же проблема вы разбиваете цифры на триады и после зяпятой. Более того триды у вас разбиваются от начала числа и без учета букв. насколько я понимаю фразу "Стоимость 10000,1 у.е" разобьет "Стоимость 1 000 0,1 у.е0"
Однако не совсем то что надо по заданию

П.С. Если ошибся сорри - компилил в голове

[Poma][a]

вы разбиваете цифры на триады и после зяпятой.

А что нам говорит пример :

22452,5276 должно представиться как 22 452,527 600

Более того триды у вас разбиваются от начала числа и без учета букв.

Ага.. Я как-то упустил фразу про то, что задан именно текст..