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

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

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

> из нескольких слов сделать аббревитатуру
сообщение
Сообщение #1





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

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


Вобщем задач в том что дана строка с несколькими словами и нужна функция которая из этой строки выдирает первые буквы от слов и записывает в другую строку, например отедл маркетинговых услуг нада получить ому, или еще пример отдел планирования аэронавигационного обеспечения\служба аэронавигационного обеспечения из этого должно получится опао сао
кто может помогите решить сию задачу пжлст
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Пионер
**

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

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


Если '/' входит в строку 1(ОДИН) раз, то можно попробовать использовать мою вышеописанную функцию:

function Abbreviatura( S : String ) : String;
...
end;

function Abbreviatura2( S : String ) : String;
var
SlashPosition : Integer;
begin
SlashPosition := Pos('/',S);
if SlashPosition = 0 then { В строке S нет символа '/'. }
Abbreviatura2 := Abbreviatura(S)
else { В строке S есть символ '/'. }
Abbreviatura2 :=
Abbreviatura(Copy(S,SlashPosition+1,Length(S)-SlashPosition)) +
' ' +
Abbreviatura(Copy(S,1,SlashPosition-1))
end;

{ Основная программа. }
var
S : String;
begin
S := 'НАУЧНО ИССЛЕДОВАТЕЛЬСКИЙ ИНСТИТУТ Ч АРОДЕЙСТВА В ОЛШЕБСТВА';
WriteLn(S,' = ',Abbreviatura2(S));
S := 'отдел маркетинговых сетей/служба авиационной безопасности';
WriteLn(S,' = ',Abbreviatura2(S));
S := 'отдел компьютерных технологий информационных систем/служба локальных сетей';
WriteLn(S,' = ',Abbreviatura2(S))
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





- Текстовая версия 28.03.2024 19:43
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name