IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на строки, Нужна ваша помощь...
TeoRetiC
сообщение 6.03.2006 17:23
Сообщение #1


Гость






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


мозгоклюй
***

Группа: Пользователи
Сообщений: 205
Пол: Мужской
Реальное имя: Юра

Репутация: -  5  +


Удвоение цифр это на два перемножить или из 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;
  


--------------------
Иногда ответ ближе чем то место где мы его ищем..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Ozzя
сообщение 6.03.2006 17:46
Сообщение #3


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


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

http://forum.pascalnet.ru/index.php?s=&sh...indpost&p=55187
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 6.03.2006 17:55
Сообщение #4


Гость






AruNimotsi, мне надоело тебе повторять! НЕ НАДО "примерно так"!!! Снизойди в конце-концов до прочтения Правил!
Цитата(Правила Раздела)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
Вот и проверяй! Только НЕ в Дельфи, а в Паскале!!! Ну нету в стандартном Паскале IntToStr, понимаешь? Хватит уже мусор постить!
 К началу страницы 
+ Ответить 
teoRetiC
сообщение 7.03.2006 11:19
Сообщение #5


Гость






Большое спасибо, всм, кто откликнулся!!! Прогу написАл, сегодня еду сдавать!!! Ещё раз СПАСИБО!!! yes2.gif
А также всех девушек поздравляю с Наступающим Праздником!!!! cook.gif !rose.gif !flowers.gif
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 27.04.2024 22:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"