19.09.2019, 17:09 [+3 UTC]
в нашей команде: 3 831 чел. | участники онлайн: 7 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
12.09.2019, 08:17

Последний вопрос:
19.09.2019, 14:47
Всего: 150343

Последний ответ:
19.09.2019, 15:43
Всего: 259029

Последняя рассылка:
19.09.2019, 16:45

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
14.02.2019, 12:20 »
dar777
Это самое лучшее решение! [вопрос № 194689, ответ № 277469]
23.02.2016, 03:44 »
Алексеев Владимир Николаевич
Спасибо за дружескую поддержку! Теперь и проиграть не страшно! [вопрос № 188833, ответ № 273394]
03.04.2010, 21:19 »
paramediс
Спасибо за ответ =)Немного дополнения в мини-форуме. [вопрос № 177633, ответ № 260563]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 92
zdwork
Статус: 3-й класс
Рейтинг: 73
Сучкова Татьяна Михайловна
Статус: Мастер-Эксперт
Рейтинг: 0

Перейти к консультации №:
 

Консультация онлайн # 143742
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Пушкарёв Дмитрий Сергеевич
Отправлена: 12.09.2008, 15:51
Поступило ответов: 1

Уважаемые эксперты решите пожалуйста мне эти задачи.
1.Удалить в словах из каждой пары сдвоенных букв одну.
2.Напечатать слова, перед которыми в последовательности находятся только слова, рас-положенные по алфавиту раньше.
3.Определить, имеется ли в последовательности хотя бы одна пара слов, обратных друг другу (палиндромов). С уважением Дмитрий

Состояние: Консультация закрыта

Ответ # 229135 от puporev (Профессионал)

Здравствуйте, Пушкарёв Дмитрий Сергеевич!
Задача 2.
Считаем что последовательность представлена словами, составленными из букв одного алфавита(русского или латинского) в одном регистре и разделенными пробелами. Если это не так, нужно будет в программе пробел заменить на другой разделитель, а буквы привести в один регистр. Вообще цель этой задачи не заниматься устранением разных препон, возникающих при обработке строк, а понять, как программа расставляет слова по алфавиту. А делается это благодаря свойству сравнения строк посимвольно, когда S1>S2, если очередной символ в строке S1 имеет код в таблице ANSII больше, или тоже самое, что буква находится дальше по алфавиту(имеется в виду либо русская, либо латинская транскрипция.).
Код в приложении.
Задача 3.
Слова обратные друг другу, это не палиндромы. Палиндром, слово читающееся одинаково хоть с начала, хоть с конца, например КАЗАК.
Обратные друг другу слова, например РОТ-ТОР, это разновидность анаграммы, не помню как называется.
Требования для исходной строки те же, что и в предыдущей задаче.

Приложение:


Консультировал: puporev (Профессионал)
Дата отправки: 13.09.2008, 09:17

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 143742
Boriss

# 1

= общий = | 12.09.2008, 23:24

3) Про палиндромы уже много программ здесь писалось. Поищите, пожалуйста, не гоже повторяться
2) Все буквы раньше? Или достаточно части?
1) Вот так можно удалить все сдвоенные, строенные

var
 s: String;
 i: Integer;
BEGIN
  WriteLn('Введите строку:');
  ReadLn(s);
  i:=1;
  while i < length(s) do begin
    if s[i] = s[i+1] then delete(s,i,1)
    else inc(i)
  end;
  WriteLn(s);
END.

Если i-тый символ совпадает с i+1-ым, то удаляем i-тый, иначе увеличиваем i. И так делаем до тех пор, пока i меньше длины строки

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.16154 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.77 от 31.05.2019
Версия JS: 1.34 | Версия CSS: 3.35