|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.10.2012, 19:54 | #1 |
Пользователь
Регистрация: 04.10.2012
Сообщений: 20
|
Паскаль,строки
Задача:
исключить из строки все слова с нечетными номерами, оставшийся текст вывести на экран: (Неправильно, да?) Ничего не выводит. program adg; var s:string; i,j,n:integer; begin writeln('vv stroky s='); readln(s); for i:=1 to length(s) do if i mod 2=1 then delete(s[i],1,i); for i:=1 to length(s) do write('s=',s); readln; end. |
29.10.2012, 20:06 | #2 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Код:
Далее: в исходном задании написано "исключить"... следует ли это понимать как использование Delete, как у Вас? Потому что проще сформировать новую строку.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
29.10.2012, 21:05 | #3 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
1) Код выделяем кнопочкой с #
2) Согласен с Sciv'ом, надо бегать по строке в поиске пробела, а потом... 3) Цитата:
|
|
29.10.2012, 21:09 | #4 | |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Цитата:
Сорри за ОФФ, но просто в живую представил эту картину...
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|
29.10.2012, 21:14 | #5 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Ну а если честно : -Что это? -2 результирущая строка - Иди переделывай |
|
29.10.2012, 21:50 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
По моему все гораздо проще:
Код:
I'm learning to live...
|
29.10.2012, 22:05 | #7 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Виталий, впечатляет. Очень хитро.
|
29.10.2012, 22:52 | #8 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вообще-то старая школа. Раньше такие методы были распространены во многих книгах в силу малого функционала ЯВУ.
I'm learning to live...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Строки. Паскаль | Elena04 | Помощь студентам | 2 | 20.04.2012 20:06 |
строки, Паскаль | Dean | Помощь студентам | 9 | 20.03.2011 00:43 |
Паскаль строки | Алексей Егораев | Помощь студентам | 2 | 15.03.2011 18:53 |
Строки в Паскаль! | Kymbat | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 10.01.2011 19:46 |
Паскаль. Строки. | b1otekk | Помощь студентам | 2 | 13.03.2009 10:46 |