Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2012, 12:29   #1
Mashaaaaa
 
Регистрация: 20.02.2012
Сообщений: 5
По умолчанию В исходном тексте все символы «,» заменить на слово «запятая»

В исходном тексте все символы «,» заменить на слово «запятая»
Mashaaaaa вне форума Ответить с цитированием
Старый 22.05.2012, 12:53   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

ни тебе "здрасте", ни "пожалуйста" ...

Надо заменять - заменяйте! в чём суть поста то?!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 22.05.2012, 12:56   #3
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Мы уж молчим, что задача в 5 строк....

Гуглить нужно: While, Pos.
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 22.05.2012, 13:12   #4
Rififi
Старожил
 
Регистрация: 19.08.2009
Сообщений: 2,120
По умолчанию

Господа, ну чтобы хотите от бландинки... Современное поколение пепси как оно есть ((((Ж Лучше напишите Машуле задание.. получите лайки в вконтакте :lol:
Rififi вне форума Ответить с цитированием
Старый 22.05.2012, 13:30   #5
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
Господа, ну чтобы хотите от бландинки..
Я бы сказал, да боюсь забанят!

Код:
const
  s = 'запятая';

ReadLn(str);
while pos(',', str) <> 0 do
begin
  if (Length(str) + Length(s)) < 256 then
  begin
    i := pos(',', str);
    delete(str, i, 1);
    insert(s, str, i);
  end
  else
    break;
end;
как то так!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303

Последний раз редактировалось Hacker19_90; 22.05.2012 в 14:13.
Hacker19_90 вне форума Ответить с цитированием
Старый 22.05.2012, 14:05   #6
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Эт зачем ещё?

Код:
if (Length(str) + Length(s)) < 256 then
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 22.05.2012, 14:08   #7
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

что б за пределы не вылетить!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 22.05.2012, 14:12   #8
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Цитата:
Сообщение от Hacker19_90 Посмотреть сообщение
что б за пределы не вылетить!
Ааааа.... этож паскаль
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Заменить заданное слово в тексте, находящемся в заданном файле, на другое слово (С++) Lapochka Помощь студентам 6 01.12.2011 14:05
Дан файл из символов. Переписать в новый файл все символы, за которыми в исходном файле следует данная буква Kolimba Паскаль, Turbo Pascal, PascalABC.NET 1 25.09.2011 17:57
Как заменить все символы в текстовом поле на один определённый Memfis1992 Общие вопросы Delphi 3 16.06.2010 15:01
Заменить повторяющиеся символы(которые повторяются два или три раза) в тексте пробелами. Майки Паскаль, Turbo Pascal, PascalABC.NET 3 12.01.2009 17:45