![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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. |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
![]() Код:
Далее: в исходном задании написано "исключить"... следует ли это понимать как использование Delete, как у Вас? Потому что проще сформировать новую строку.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
![]() |
![]() |
![]() |
#3 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
![]()
1) Код выделяем кнопочкой с #
2) Согласен с Sciv'ом, надо бегать по строке в поиске пробела, а потом... 3) Цитата:
|
|
![]() |
![]() |
![]() |
#4 | |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
![]() Цитата:
![]() Сорри за ОФФ, но просто в живую представил эту картину...
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
|
![]() |
![]() |
![]() |
#5 | |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
![]() Цитата:
![]() Ну а если честно : -Что это? -2 результирущая строка - Иди переделывай |
|
![]() |
![]() |
![]() |
#6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
По моему все гораздо проще:
Код:
I'm learning to live...
|
![]() |
![]() |
![]() |
#7 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
![]()
Виталий, впечатляет. Очень хитро.
|
![]() |
![]() |
![]() |
#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 |