30.05.2020, 14:08 [+3 UTC]
в нашей команде: 4 575 чел. | участники онлайн: 5 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.89 (25.04.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
29.05.2020, 13:47

Последний вопрос:
30.05.2020, 14:05
Всего: 152529

Последний ответ:
30.05.2020, 10:24
Всего: 260217

Последняя рассылка:
30.05.2020, 02:15

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

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

Наша кнопка:

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

Отзывы о нас:
17.06.2012, 09:13 »
Сергей К.
Спасибо за подробный ответ. [вопрос № 186374, ответ № 271253]
11.01.2012, 17:05 »
Сергей
Спасибо, но отсутствует диаграмма. [вопрос № 185113, ответ № 269532]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 483
Delph
Статус: 3-й класс
Рейтинг: 318
puporev
Статус: Профессор
Рейтинг: 216

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

Консультация онлайн # 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.13629 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.89 от 25.04.2020
Версия JS: 1.45 | Версия CSS: 3.39