Помогите пожалуйста...
Полная версия: Задача на строки
Дана строка S:='B+1,qwerty,TU154,IL86,j+j,1.2+31.07E-01'. Преобразовать 8 последних символв в число с фикс. точкой. Получить на основе строки S новую строку путём замены '+' на '-', удвоения всех цифр и добавления ' ' после каждого ','. Решил практически всю программу, но уткнулся в проблему с удвоением всех цифр и не могу сделать вперёд ни шагу... Помогите пожалуйста...
Помогите пожалуйста...
Удвоение цифр это на два перемножить или из 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;
в любои случае создай новую переменную (например 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;
Цитата
уткнулся в проблему с удвоением всех цифр
http://forum.pascal.net.ru/index.php?s=&sh...indpost&p=55187
AruNimotsi, мне надоело тебе повторять! НЕ НАДО "примерно так"!!! Снизойди в конце-концов до прочтения Правил!
Цитата(Правила Раздела)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
Вот и проверяй! Только НЕ в Дельфи, а в Паскале!!! Ну нету в стандартном Паскале IntToStr, понимаешь? Хватит уже мусор постить!
Большое спасибо, всм, кто откликнулся!!! Прогу написАл, сегодня еду сдавать!!! Ещё раз СПАСИБО!!! 
А также всех девушек поздравляю с Наступающим Праздником!!!!
А также всех девушек поздравляю с Наступающим Праздником!!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.