процедуры и функции

[DeadWind]

пожалуйста помогите решить не могу решить.

Даны три натуральных числа . Выяснить являются ли хоть одно из них палинромом ("перевертышем"),т.е. таким числом, десятичная запись которого читается одинаково слева направо и справа налево.

[deathNC]

function IsPalindrom(num: Integer): Boolean;
var
  digits: Array[1..24] of Byte;
  i, n: Integer;
  rs: Boolean;
begin
  n := 0;
  While num > 0 do
    begin
      inc(n);
      digits[n] := num mod 10;
      num := num div 10;
    end;
  rs := true;
  for i := 1 to (n div 2) do
    rs := rs and (digits[i] = digits[n - i + 1]);
  IsPalindrom := rs;
end;

Вот, функцию накалякал... оно определяет, является ли число палиндромом

[denisbrain]

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

function IsPalindrom(num: Integer): Boolean;
var
  digits: Array[1..24] of Byte;
  i, n: Integer;
  rs: Boolean;
begin
  n := 0;
  While num > 0 do
    begin
      inc(n);
      digits[n] := num mod 10;
      num := num div 10;
    end;
  rs := true;
  for i := 1 to (n div 2) do
    rs := rs and (digits[i] = digits[n - i + 1]);
  IsPalindrom := rs;
end;

Вот, функцию накалякал... оно определяет, является ли число палиндромом

.. если массив юзать можно и через строки решить ..

delphi

var s:string;
x,i:integer;
   s1:string;
   s2:string;
begin
I:=12321;
s:=inttostr(i);
s1:=inttostr(i);
for x:=length(s) downto 1 do s2:=s2+s[x];
if s2=s1 then
showmessage(s2+'='+s1)
else showmessage('Не полином!')

[deathNC]

если массив юзать можно и через строки решить

Зачем строки? Это как-то странно, работа-то с числами...

delphi

Это раздел паскаля, к сожалению

хотя через строки короче получается,
но логичнее по-моему через массив цифр

[Вадим Мошев]

for i := 1 to (n div 2) do
rs := rs and (digits[i] = digits[n - i + 1]);

Можно ускорить процесс проверки на паллиндром. Я бы написал так:

rs:=true;

for i := 1 to (n div 2) do
    			if (digits[i] <> digits[n - i + 1]) then
								begin
								 rs:=false;
								 exit;
								end;

[deathNC]

Вадим Мошев, верно спасибо!

[DeadWind]

спасибо большое))))

[ViktorR]

Но можно и без массивов

function IsPalindrom(num: Integer): Boolean;
var
  n, rn, m: Integer;
begin
    n := num;  {исходноное число}
   rn := 0;      {перевертыш}
  While n > 0 do begin
         m := n mod 10; {выделим младший разряд числа}
         n := n div 10;   {удалим разряд числа}
        rn := rn * 10 + m; {формируем перевертыш}
  end;
  IsPalindrom := num = rnum; {сравним число и перевертыш}
end;

Да и в одном цикле

Как то так ...