Задача на строки, Нужна ваша помощь... Опции

[TeoRetiC]

Дана строка S:='B+1,qwerty,TU154,IL86,j+j,1.2+31.07E-01'. Преобразовать 8 последних символв в число с фикс. точкой. Получить на основе строки S новую строку путём замены '+' на '-', удвоения всех цифр и добавления ' ' после каждого ','. Решил практически всю программу, но уткнулся в проблему с удвоением всех цифр и не могу сделать вперёд ни шагу... Помогите пожалуйста...

[AruNimotsi]

Удвоение цифр это на два перемножить или из 8 сделать 88??
в любои случае создай новую переменную (например S2)
для дубляжа будет выглядеть примерно так:

Код

  
   for i:=1 to length(s) do
        begin
        S2:=S2+S[i];
         for j:=0 to 9 do
         if S[i]=IntToStr(j) then S2:=S2+S[i];
         end;
  

[Ozzя]

уткнулся в проблему с удвоением всех цифр

http://forum.pascal.net.ru/index.php?s=&sh...indpost&p=55187

[volvo]

AruNimotsi, мне надоело тебе повторять! НЕ НАДО "примерно так"!!! Снизойди в конце-концов до прочтения Правил!

7. Проверяйте программы перед тем, как разместить их на форуме!!!

Вот и проверяй! Только НЕ в Дельфи, а в Паскале!!! Ну нету в стандартном Паскале IntToStr, понимаешь? Хватит уже мусор постить!

[teoRetiC]

Большое спасибо, всм, кто откликнулся!!! Прогу написАл, сегодня еду сдавать!!! Ещё раз СПАСИБО!!!
А также всех девушек поздравляю с Наступающим Праздником!!!!