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

[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

[xds]

все процедуры и функции стандартные оптимизированны на максимальную скорость...

согласен, но, все же, не стоит делать цикл там, где без него можно "безболезненно" обойтись...

В BP есть динамические строки.

говоря о динамических строках Delphi/FP, я акцентировал внимание на механизме подсчета ссылок. В принципе, "динамической" в BP можно сделать любую структуру данных.