Определить, является ли данная строка палиндромом, не учитывая пробелов

@Xomches · Регистрация: 13.12.2012

Author24 — интернет-сервис помощи студентам

Прошу помочь решить 5 задач в Free pascal-е:

3. Определить, является ли данная строка палиндромом, не учитывая пробелов(т.е. если удалить пробелы то строка читается одинаково с начала и с конца "а роза упала на лапу азора"). Использовать только исходную строку, не разрешая получить новую, удаляя пробелы из старой.

@rangerx · 20.12.2012, 23:26

Pascal

program prog;
 
function IsPalindrome(const s: String): Boolean;
var
  i, j: Integer;  
begin
  if Length(s) = 0 then Exit(false);
 
  i:= 1;  
  while s[i] = ' ' do begin
    Inc(i);        
    if i > Length(s) then Exit(false);
  end;
 
  j:= Length(s);
  
  while i < j do begin
    if s[i] = ' ' then Inc(i)
    else if s[j] = ' ' then Dec(j)      
    else begin
      if s[i] <> s[j] then Exit(false);      
      Inc(i);
      Dec(j);
    end;
  end;
  
  IsPalindrome:= true;
end;
 
var
  s: String;
begin
   Write('input string: ');
   ReadLn(s);
 
   Write('palindrome: ');
  
   if IsPalindrome(s) then
     WriteLn('yes')
   else
      WriteLn('no');
end.

@Xomches 0 / 0 / 0 Регистрация: 13.12.2012 Сообщений: 5
		1
	Определить, является ли данная строка палиндромом, не учитывая пробелов 18.12.2012, 20:05. Показов 1675. Ответов 1 Метки нет (Все метки) Прошу помочь решить 5 задач в Free pascal-е: 3. Определить, является ли данная строка палиндромом, не учитывая пробелов(т.е. если удалить пробелы то строка читается одинаково с начала и с конца "а роза упала на лапу азора"). Использовать только исходную строку, не разрешая получить новую, удаляя пробелы из старой. 0

	20.12.2012, 23:26

Определить, является ли данная строка палиндромом, не учитывая пробелов

Решение