Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

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

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

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

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

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

icq: 636954303
По умолчанию

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

Код:

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
Репутация: 127
По умолчанию

Эт зачем ещё?

Код:

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,497
Репутация: 353

icq: 636954303
По умолчанию

что б за пределы не вылетить!
__________________
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
Репутация: 127
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


20:23.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru