Помогите разобраться с программой. Строки.
Страницы:
<
1
2
>
oliksin © (2013-06-04 22:57:00)
Дана строка символов, содержащая некоторый текст. Разработать
программу, которая определяет, является ли данный текст
палиндромом, т.е. читается ли он слева направо так же, как и справа
налево ( например, «А роза упала на лапу Азора»)
как сделать так, чтобы пробелы не читались? если строка без
пробелов, программа определяет палиндром или нет, а если с
пробелами, не определяет..
procedure TForm1.Button1Click(Sender: TObject);
function IsPalindrome(const s : string) : boolean;
var
i,j: integer;
b:boolean;
begin
Edit1.Text:=s;
for j:=1 to Length(s) do
if s[j]=' ' then
while S[j]=' ' do Delete(S,j,1);
i := 1;
j := length(s);
result := false;
repeat
if s[i] <> s[j] then
exit;
inc(i);
dec(j);
until i > j;
result := true;
end;
begin
if IsPalindrome(Edit1.Text) then
ShowMessage('Строка является палиндромом')
else
ShowMessage('Строка палиндромом не является');
end;
end.
O'ShinW (2013-06-04 23:04:00) [21]
StringReplace и ReverseString или ReverseStr из модуля
StrUtils не спасут ОРД?
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
