VPF::[Pascal]Полиндром - Форум программистов

CHITER

Дата 24.10.2008, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 14.7.2007
Где: Пенза

Репутация: нет
Всего: нет

дано натуральное число N определить: является ли заданное натуральное число палиндромом т.е. Таким десятичная запись которого читается одинаково слева на право, справа налево.

dsx

Дата 24.10.2008, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 7.9.2008
Где: Москва

Репутация: 1
Всего: 1

Код


  {программа на языке Pascal}
Program Palindrom;
{Рекурсивная функция}
Function Pal(S: String) : Boolean;
Begin
     If Length(S)<=1
     Then Pal:=True
     Else Pal:= (S[1]=S[Length(S)]) and Pal(Copy(S, 2, Length(S) - 2));
End;
Var S : String;
{Основная программа}
Begin
    Write('Введите строку: '); ReadLn(S);
    If Pal(S) Then WriteLn('Строка является палиндромом')
              Else WriteLn('Строка не является палиндромом')
End.

Это универсальный пример для определения строки-палиндрома, взят отсюда. Для представления числа в строковом виде используй функцию

Код


Str(n: integer; var s: string);

ne0n

Дата 26.10.2008, 01:56 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: нет
Всего: 11

dsx, ну этож не совсем нужное решение. Да еще и рекурсию использовать...не нужно сдесь это. Зачем использовать строки? Если изначально дано именно натуральное число, то это подразумевает что все операции должны проходить именно с натуральным числом.

я бы сделал это дело так:

Код


function IsPol(a : integer) : boolean;
var
copy_a,b: integer;

begin
  copy_a := a;
   b := 0;
   result := false;

    while (copy_a <> 0)  do
    begin
        b := b*10+copy_a mod 10;
        copy_a := copy_a div 10;
    end ;
    if (a=b) then result:=true;
end;

--------------------

http://sa-sec.org
как я вам? smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »