в линейном масиве найти числа палиндромы

[Artur_Seredaa]

как в линейном масиве найти числа палендром?помогите не знею как сделать. срочно пожалуста

[Pein95]

сначало нужно узнать какое число называетса палиндромом)

[Smitt&Wesson]

Сообщение от Pein95

сначало нужно узнать какое число называетса палиндромом)

http://ru.wikipedia.org/wiki/%D0%9F%...80%D0%BE%D0%BC

[TinMan]

хехе ))
Кто хочет посмяться, могу повеселить..
Я с наскока подумал, что тут все через рекурсию в одну строчку и без изпользования строк (а значит, для любых СС). Ну, написал, потратил минут 15.. А потом, ессно, обнаружил, что число типа 1031 у нее тоже палиндром..

Самолюбие было задето не на шутку )). Короче, сделал, вроде.. По-прежнему, тело рекурсивной функции
function Palindrom(x: LongInt): boolean;
- занимает одну строчку (один оператор присваивания). Правда, эта строчка растянулась на немало строчек..

Могу показать. Никто не хочет сделать то же самое на слабо?
Эй, Стрелок? а?.. ))

[TinMan]

И никто не поднял брошенную мной перчатку )). Ладно, я тогда просто выложу код..

const
  n= 100;
var
  a: array[1..n] of LongInt;
  i: integer;

function Palindrom(x: LongInt): boolean;
begin
  Palindrom:=
    (x<10) or ((x div Round(Exp(Ln(10)*Trunc(Ln(x)/Ln(10))))) = x mod 10) and (
      (
        x mod Round(Exp(Ln(10)*Trunc(Ln(x)/Ln(10)))) < Round(Exp(Ln(10)*Trunc(Ln(x)/Ln(10)))) div 10
      ) and Palindrom(
        x mod Round(Exp(Ln(10)*Trunc(Ln(x)/Ln(10)))) div 10+Round(Exp(Ln(10)*Trunc(Ln(x)/Ln(10)))) div 100+1
      ) or (
        x mod Round(Exp(Ln(10)*Trunc(Ln(x)/Ln(10))))>=Round(Exp(Ln(10)*Trunc(Ln(x)/Ln(10)))) div 10) and Palindrom(
          x mod Round(Exp(Ln(10)*Trunc(Ln(x)/Ln(10)))
        ) div 10
      )
    )
end;

begin
  for i:=1 to n do begin
    a[i]:= Random(1900)+100;
    Write(a[i]:8)
  end;
  for i:=1 to n do
    if Palindrom(a[i]) then Writeln(i:5,' : ',a[i]:10);
  Readln
end.

Как и было обещано, тело основной функции - одна строка кода .

[Serge_Bliznykov]

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


а ещё я косячок нашёл в вашем алгоритме

  a[1]:=-123;
  if Palindrom(a[1]) then Writeln(a[1]:10);

[TinMan]

Сообщение от Serge_Bliznykov

ну, извините, коллега, ну уж очень муторно и сложно...
и главное, ради чего?!

Да я согласен на все 200!
Я ж написал "краткую историю вопроса". А когда шлея уже под хвостом - деваться некуда..

а ещё я косячок нашёл в вашем алгоритме

Палиндромность не определена для отрицательных чисел. То есть для них должно быть -123 = 321- , а сие нонсенс. Если условия конкретной задачи трактуют палиндромность отр.чисел как палиндромность модуля, можно сделать оболочку к этой функции.
Ошибка моя в том, что я сделал массив из integer, а не word .

Все равно спасибо за внимание. Прошу рассматривать как курьез )).

[JUDAS]

Artur_Seredaa. а по форуму поискать ответ на вопрос рука отвалится?

function Palindrom(x: LongInt): boolean;
var i,l : integer;
     S : string;
begin
  S:=str(x);
  result:=true;
  l:=Length(S);
  for i:=1 to (l div 2) do
  if S[i]<>S[l-i+1] then
  begin
    result:=false;
    break;
  end;
end;