Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2008, 17:00   #1
Blad47
Пользователь
 
Регистрация: 10.11.2008
Сообщений: 93
По умолчанию Подскажите алгоритм решения

Предложите алгоритм решения задачи?
Цитата:
"Найти самое длинное симметричное слово заданного предложения."
Blad47 вне форума Ответить с цитированием
Старый 10.11.2008, 19:50   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Цитата:
Сообщение от Blad47 Посмотреть сообщение
Предложите алгоритм решения задачи?
1) Каждое слово записываем в массив (было на форуме).
2) Перебираем элементы массива, проверяем является ли слово симметричным
Код:
b := true;
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then
begin
  b := false;
  break
end;
if b then является_симметричным else не_симметричное_слово
Если слово несимметричное, то удаляем это слово (элемент массива := '' - пустая строка)
если слово симметричное и его длина больше предыдущего самого длинного симметричного слова (в начале программы принять длину предыдущего самого длинного симметричного слова = 0 ), то запоминаем его длину и позицию N.
3) Если длина = 0, то пишем что слов не найдено, иначе выводим элемент массива, находящийся на позиции N
eoln вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск оптимального решения Lamborghini Помощь студентам 4 12.10.2012 23:24
Алгоритм решения судоку Alistan Общие вопросы C/C++ 5 27.04.2011 16:00
Поиск оптимального решения Uchiha Общие вопросы Delphi 12 19.02.2008 23:04
Поиск решения.(Задача) Lamborghini Microsoft Office Excel 1 19.02.2008 11:58
Требуются решения 2х задач. anna Помощь студентам 8 10.04.2007 20:01