Символ разделителя, В числах Опции

[Subaru]

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

Например пишем 12547 - результат должен быть 12,547 но если есть 521 чтоб также и осталось (не ,521) ...

Вот что я сделал :

Код

program mishpat;
var
number:string;
i,blipsik:integer;
num:longint;
begin
readln(num);
str(num,number);
blipsik:=Length(number) mod 3;
Write(Copy(number,1,blipsik));
for i:=1 to length(number) div 3 do
Write(',',Copy(number,blipsik+1+(i-1)*3,3));
writeln
end.

но эта прога выдаёт ",521" вместо "521"
и ",15,231" вместо "15,231"

что тут надо добавить или поменять чтоб она заработала ?

:-)

Сообщение отредактировано: Subaru - 5.11.2004 16:25

[xds]

Не следует черезмерно увлекаться процедурами работы со строками (Insert, Delete, Copy и т. п.), т. к. за ними, как правило, скрывается цикл. Например, нерационально

взять выходную строку показанной в первом посте проги, и обрезать запятую спереди

, т. к. Delete или Copy придется пробежаться по всей строке.

Тут тогда нужна еще одна дополнительная строка.

- без указания максимального размера - это еще 256 байт в сегменте данных.

В BP использован несколько "лобовой" подход к обработке строк (строка - статический массив). В Delphi и FP все стало гораздо лучше - строки реализованы как динамические объекты, используется подсчет ссылок и технология "copy-on-write".