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

[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 20:25

[Altair]

но если отсчитывать по три цифры с конца, то будет точнее...

Ээээ, нет!
Если будешь работать с одной строкой, и скажем через 3 символа вставлять запятую, то увеличиваться длинна будет и циклсобъется...
Тут тогда нужна еще одна дополнительная строка.

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

ТОже верно.
Но проще всего проверить I, т.е. что бы не было начала строки и в таком случае уже выводить с запятой, а иначе вывестти просто часть строки...