|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
20.12.2009, 19:06 | #1 (permalink) |
Member
Регистрация: 20.12.2009
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачу
procedure TForm1.Button1Click(Sender: TObject); var s:string; i,b,k,n:integer; a:array[1..100] of char; buf:array[1..100] of char; begin k:=0; s:=edit1.Text; n:=length(s); if n>3 then begin for i:=1 to n do a[i]:=s[i]; for i:=1 to (n div 2) do begin if a[i]<>a[n-k] then begin for b:=1 to n do buf[b]:=a[b+i-1]; a[i]:=a[n-k]; for b:=1 to n do a[b+i]:=buf[b]; k:=k+1; n:=n+1 end else k:=k+1; end; end; edit1.Text:=''; for i:=0 to n*2 do edit1.Text:=edit1.Text+a[i]; end; посмотрите и хотя бы скажите правильно я начал и если нет скажите хоть способ решения |
20.12.2009, 19:06 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Информация содержащаяся в схожих темах безусловно вам будет полезна Помогите решить задачу Помогите решить задачу) |
20.12.2009, 19:21 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Вы сначала должны убедиться, не является ли введенное слово палиндромом, а уж потом начинать дописывать буквы.
И еще, почему вы исключаете слова из 3-х букв, они же тоже могут быть палиндромами, к примеру, слово "кок".
__________________
Убить всех человеков! |
20.12.2009, 21:00 | #3 (permalink) |
Member
Регистрация: 20.12.2009
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
ну...слово должно быть больше 3-х символов по условию задачи(задача с олимпиады) и слово проверить легко палиндром это или нет.Меня интересует именно способ образования палиндрома из обычного слова
|
20.12.2009, 21:44 | #5 (permalink) |
Member
Регистрация: 20.12.2009
Сообщений: 35
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
всмысле осмысленность,если слово существующее,то нет,осмысленность здесь значения не играет,просто надо из строки символов сделать палиндром,строку символов,которая ситается и справа налево и слева направо одинакого
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|