"В заданном предложении в каждом слове удалить все последующие вхождения первой буквы предложения. Новый текст вывести на печать".
Альтруисты, откликнитесь!
 Язык Паскаль, Тип данных - строки |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Провинциалка |
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 57 Пол: Женский Реальное имя: Ольга Репутация:  2   |
Прошу помочь в написании программы для задачи:
"В заданном предложении в каждом слове удалить все последующие вхождения первой буквы предложения. Новый текст вывести на печать". Альтруисты, откликнитесь! |
   |
 
|
  |
Ответов
| TarasBer |
Сообщение
#2
|
 Злостный любитель Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: 62 |
> for i:=Length(s) downto 1 do if UpCase(s[i])=UpCase(s[1]) then Delete(s,i,1);
Ну ей может, такое и покатит. А вот Unconnectedу уже так писать неприлично. > Даже хуже - пудришь мозги начинающим.. А вот Unconnected уже не начинающий, а всё ещё думает, что Delete работает мгновенно. Надо всех учить. Так что надо давно пора в FAQ добавить алгоритм удаления из массива элемента по признаку. Или он там уже есть? Спойлер (Показать/Скрыть)
-------------------- |
|
|
|
Сообщений в этой теме
Провинциалка Язык Паскаль 31.10.2010 18:57
Unconnected :lol: эгоисты молчат..
Какие мысли по поводу зада… 31.10.2010 19:12 Провинциалка Мыслей много всяких. Одна из них - понять смысл за… 31.10.2010 22:53 Unconnected Тебе нужно взять первую букву, а потом идти по стр… 1.11.2010 3:32 TarasBer > а потом идти по строке и удалять остальные та… 1.11.2010 15:15 Unconnected Разве? По-моему, в первом варианте будет меньше де… 1.11.2010 16:59 TarasBer Удаление элемента из строки - за сколько, по-твоем… 1.11.2010 18:39 Archon
А добавление в строку - создает новую. Тогда уж н… 1.11.2010 23:14 TarasBer > А добавление в строку - создает новую.
Реалл… 1.11.2010 23:40 Гость Спасибо всем кто откликнулся на мою мольбу. Попроб… 2.11.2010 0:42 Archon Покажи, что написала, а мы подскажем что не так. 2.11.2010 0:55 sheka а почему нельзя просто:
k:=0;
осуществлять проход … 2.11.2010 1:37 TarasBer > а почему нельзя просто:
Ну на самом деле это… 2.11.2010 1:53 Провинциалка Вроде так, но программа не работает! (Или это … 2.11.2010 2:43 Archon Ты выделяешь в предложении слова и удаляешь из каж… 2.11.2010 3:30 Провинциалка Уважаемый Archon! Позвольте задать вам глупый … 2.11.2010 3:40
Lapp Что означает "Добавь тег [code] вокруг текста… 2.11.2010 4:04 Провинциалка Видимо я должна была писать программу на Pascal в … 2.11.2010 4:29 sheka Нет, Б**! Надо написать вот так: Только БЕЗ т… 2.11.2010 4:45 Провинциалка А программу подредактировать поможешь? 2.11.2010 5:04 Archon Такое впечатление, что это программа не твоя, а то… 2.11.2010 8:50 Lapp Мужики, вы чего? :shok: Оборзели слегка? Или за… 2.11.2010 10:15 Lapp Считаешь нужным - жми минус, делов то.Дык - немног… 2.11.2010 14:33 Гость Извините, я тут немного припозднилась - то лекции… 3.11.2010 23:39 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 29.04.2024 22:09 |
Связь с администрацией: bu_gen в домене octagram.name