Задачи на палиндромы, палиндромы!Помогите пожалуста срочно! Опции

[Snake08]

Палиндромы 1!
Задана строка, которая составляется из малых латинских букв. Разрешается удалять из строки определенные буквы. Сколькими разными образами можно при этом получить палиндром?
Входные данные: заданная строка находится в файле palindrome1.dat, длина его не превышает 30 символов
Исходные данные: в первую строку файла palindrome1.sol надо вывести искомое количество образов получения палиндрому
Пример входных и исходных данных:
palindrome1.dat
aab
palindrome1.sol
4
Объяснение: палиндром можно получить, удалив символы 1) 1 і 2; 2) 1 і 3; 3) 2 і 3; 4) 3!
Палиндромы 2!
Задана строка, которая составляется из малых латинских букв. Нужно разбить его на минимальное возможное количество палиндромов.
Входные данные: заданная строка находится в файле palindrome2.dat, длина не превышает 2000 символов
Исходные данные: в первую строку файла palindrome2.sol надо вывести минимальное количество палиндромов, на которые можно разбить строку
Пример входных и исходных данных:
palindrome2.dat
abbacbb
palindrome2.sol
3
Объяснение: abbacbb = abba + c + bb

[Snake08]

Я в паскале ноль можете мне написать в паскале! Пожалуста я буду очень благодарен!

[Lapp]

Я в паскале ноль можете мне написать в паскале!

Значит ли это, что ты просишь готовую программу целиком? С начала и до конца? Боюсь, здесь ты это не получишь (разве что в "Задачах на заказ").

Как я понимаю, ты "в Паскале ноль" потому, что ты лоботряс. Напрягись, и стань в Паскале хотя бы 0.001. Начни писать программу. Или хотя бы задай конкретный вопрос по написанию. Тогда приходи - поможем обязательно.

[Rian]

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

[Lapp]

но как хранить данные об исключениях (сначала думал просто удалять, но нельзя)
создать динамический массив? для всех отрывков строк?

Рекурсия?

[Rian]

Рекурсия?

Да, рекрсия это круто и у меня с ней всегда был напряг.
это посложнее, чем отслеживание бесконечных циклов
пол дня не работал а мозги крутил...
переполнение стека ,переполнение стека,переполнение стека...
но кажется решил (может и неправильно...)

//главная функция счтиющая палендромы
function calc(st:string):integer;
var
count:integer;

//определение является ли строка палендромом
  function palendrom(s:string):boolean;
  var
  i:integer;

  begin
  result:=true;
    for i:=1 to length(s)div 2 do
    if s[i]<>s[length(s)-i+1] then begin
    result:=false;
    break
    end;
  end;

//сама рекурсия
  procedure PalCount(st:string;x1,x2:integer);
  var
  st1,st2,tPal:string;
  y1,y2:integer;
  begin
  tpal:='';
  y1:=0;
  y2:=0;
//переносим для обработки часть строки
    st1:=Copy(st,x1,x2-x1+1);

//проверяем все отрывки строки и находим отрезок максимальной длины
  for x1:=1 to length(st1) do
  for x2:=length(st1) downto x1 do begin
    st2:=Copy(st1,x1,x2-x1+1);

      if (palendrom(st2)) then
        if length(st2)>length(tPal) then begin
        tPal:=st2;
        y1:=x1;
        y2:=x2;
        end;
  end;

//если tpal не пуста то значит
//мы нашли палендром в строке
//вызываем такую же процедуру для левой и правой части строки
  if length(tpal)>0 then begin
      count:=count+1;
      PalCount(st1,1,y1-1);
      PalCount(st1,y2+1,length(st1));
  end;
  end;

begin
count:=0;
PalCount(st,1,length(st));
result:=count;
end;

кажется ещё можно не проверять длины строк, а сами строки
if tpal<>'' then begin

ну а подойдёт ли решение Snake08 не знаю

Сообщение отредактировано: feniks25 - 7.11.2008 18:31