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

> ВНИМАНИЕ!

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

> Процедуры и функции
status
сообщение 19.02.2007 18:18
Сообщение #1


Новичок
*

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

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


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

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


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

Группа: Пользователи
Сообщений: 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 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 



- Текстовая версия 10.07.2025 19:41
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"