IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Процедуры и функции
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: andrey

Репутация: -  0  +


Нужна помощь в решение задачи :

Разработать функцию IsPerev(const S:string):boolean, определяющую, является ли строка S перевертышем (читается одинаково с начала и с конца). С помощью данной функции вывести только такие строки из введенного набора, которые являются перевертышами. wacko.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Поиск -> Палиндром


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: andrey

Репутация: -  0  +


Как сделать полиндром понятно , а как сделать функцию и само задание? Помогите пожалуйста, а то я непонимаю!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
Как сделать полиндром понятно


А как проверить нет ? В любом случае функция, проверяющая является ли слово палиндромом выкладывалась, переписывать эти 2 строчки в сотый раз желания нет, приложить хоть немного усилий и ты ее найдешь. Она есть даже в FAQ, который к слову не для красоты пишется.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Вот ссылка: Строки blum.gif

Сообщение отредактировано: Артемий2 -


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: andrey

Репутация: -  0  +


Палиндромы

Я так понимаю это то что мне надо?! Тока вот если мне надо слова для проверки брать из Listbox1 и те что полиндромы вывести в Listbox2 , как тут это сделать? mega_chok.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


Function TForm1.Palindrom(Const s: String): Boolean;
var
len,i: Integer;
flag: boolean;
begin
len:=length(s)+1;
for i:=1 to len div 2 do begin
if s[i]=s[len-i] then flag:=true else flag:=false;
if flag=false then begin palindrom:=flag; break; end
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to ListBox1.Count-1 do begin
if Palindrom(ListBox1.Items[i]) then begin
ListBox2.Items.Add(ListBox1.Items[i]);
end;
end;
end;

А так?


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Ну, если ты выбрал эту функцию (не совсем удачную, конечно, но как знаешь...), то вот так:

  for i := 0 to pred(ListBox1.Count) do
if Palindrom(ListBox1.Items[i]) = ListBox1.Items[i] then ListBox2.Items.Add(ListBox1.Items[i]);

 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


volvo, а мой способ вроде работал...объяснишь если не трудно, чем он неверен..


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






smile.gif Я ж не сказал, что он неверен - мы просто одновременно запостили сообщения (на время глянь)... Я к автору вообще-то обращался...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Помощник капитана
****

Группа: Пользователи
Сообщений: 601
Пол: Мужской
Реальное имя: Артем

Репутация: -  2  +


smile.gif smile.gif прикол.. smile.gif


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Новичок
*

Группа: Пользователи
Сообщений: 35
Пол: Мужской
Реальное имя: andrey

Репутация: -  0  +


volvo : я не выбирал , я искал через поиск и это мне покозалось подходящим! А что лутчше незнаю я в этом новичек поэтому прийму любую помощь...

Артемий2 : спасибо, попробую это всё соединить вместе!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Гость






В сообщении №5 Артемий2 давал тебе ссылку на тему, где есть более подходящая для твоего задания функция... Я дам ссылку прямо на пост... В самом низу - то, что тебе нужно:
Строки
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.10.2020 3:30
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name