Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| из нескольких слов сделать аббревитатуру |
| Puzo |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: Алексей Репутация:  0   |
Вобщем задач в том что дана строка с несколькими словами и нужна функция которая из этой строки выдирает первые буквы от слов и записывает в другую строку, например отедл маркетинговых услуг нада получить ому, или еще пример отдел планирования аэронавигационного обеспечения\служба аэронавигационного обеспечения из этого должно получится опао сао
кто может помогите решить сию задачу пжлст |
   |
 
|
Puzo из нескольких слов сделать аббревитатуру 13.07.2007 14:17
volvo Проходи по всем буквам строки, начиная со второй, … 13.07.2007 14:28 Puzo а можно текст программы, а то в паскале не бум бум… 13.07.2007 14:30 Shelt
procedure str;
var c:char;
flag:boolean;
begi… 13.07.2007 14:51 Neznaika Алгоритм:
0: Результат := ПУСТАЯ СТРОКА
1: Удалить… 13.07.2007 19:03
compiler Работает, корректно обрабатывает [color=#FF0000]пу… 13.07.2007 19:13 Puzo спасибо за проги, премного благодарен, еще появило… 16.07.2007 12:43 Neznaika Если '/' входит в строку 1(ОДИН) раз, то м… 16.07.2007 16:14 Puzo а если у нас есть файл текстовый с этими же отдела… 16.07.2007 17:34 Neznaika
1) - это несложно(компилятор Delphi):
...
var
… 16.07.2007 20:15 klem4 функция для первого варианта (без '/')
fu… 16.07.2007 19:31  |
|
Текстовая версия | 6.11.2025 15:53 |
