|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.07.2010, 08:59 | #1 |
Пользователь
Регистрация: 22.06.2010
Сообщений: 11
|
Подпрограммы
Написать функцию обработки строки, которая удаляет в заданной строке пробелы в начале строки, пробелы в конце строки и повторяющиеся пробелы (рядом стоящие)
|
18.07.2010, 15:31 | #2 |
Пользователь
Регистрация: 17.12.2009
Сообщений: 74
|
function perfect_func(s1 : string):string;
var i,kol : integer; s2 : string; begin kol := 0; for i := 1 to length(s1) do if (s1[i] <> ' ') or ((s1[i] = ' ') and (kol > 0) and (s2[ko] <> ' ')) then begin inc(kol); s2[kol] := s1[i]; end; if s2[kol] = ' ' then delete(s2,kol,1); perfect_func := s2; end; ну вроде так. мы просто пишем в новую строку все симвлы кроме пробелов и пробелы если предыдущий записанный символ не был пробелом и потом если нужно удаляем 1 лишний пробел который мог появится в конце строки. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Подпрограммы-процедуры, подпрограммы-функции в Pascal | rishikesh | Помощь студентам | 19 | 18.05.2010 23:05 |
Подпрограммы | Nightt | Помощь студентам | 1 | 25.06.2009 15:01 |
ПОДПРОГРАММЫ! | Linker88 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 21.04.2009 22:25 |