IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача по определению палиндрома.
сообщение
Сообщение #1


Гость






Определить, явдяется ли заданное натуральное число палиндромом, т.е. таким, десятичная запись которого читается одинаково слева направо и справа налево.
Массивы использовать нельзя (только циклы).
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 26

Репутация: -  0  +


ну ты и ламер, такую задачу я в классе девятом уже мог решить.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 775
Пол: Мужской

Репутация: -  0  +


2Camel_Toe: А ты случаем сам не ламер? >:( Я вот, например, асм знал уже в 10 классе, но я же этим не выпендриваюсь. Может быть он учится в 5 классе, ты не думал об этом? А вот этой своей фразой, ты по-моему ставишь себя намного выше ADs.
Во-всяком случае можно было спросить, что он уже сделал или типа того, но без оскорблений...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Бывалый
***

Группа: Пользователи
Сообщений: 282

Репутация: -  0  +


я тоже хотел об этом сказать...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 282

Репутация: -  0  +


Код
function IsPolindrom(const N: Integer): Boolean;
var
i: Byte;
S: String;
begin

IsPolindrom := False;
Str(N, S);
for i := 1 to Length(S) div 2 do
if S[i] <> S[Length(S) - i + 1] then Exit;
IsPolindrom := True

end;


Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Pascal  я начал изучать всего месяц назад и не знал такого оператора, как Length. Это и вызвало мое затруднение в этой задаче, т.к. не мог определить кол-во символов в числе. Сейчас я уже разобрался, поэтому БОЛЬШОЕ СПАСИБО!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

Репутация: -  4  +


Кстати, строка тоже массив... а массивы использовать нельзя


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Бывалый
***

Группа: Пользователи
Сообщений: 282

Репутация: -  0  +


trminator
так-то да, но там скорее имелись ввиду "обычные" массивы(те что объявляются словечком Array)
а если выделять цифры из цисла(дык в строку не преобразовывать)
- это будет медленней, ИМХО
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Нашел в нете решение без Length:
Код
program Palindrom;
var k,n,m:longint;
begin
 write('vvedite chislo  ');
 readln(n);
 m:=n; k:=0;
    while m div 10<>0 do {sobiraem chislo v obratnom poryadke}
    begin
    k:=k*10+m mod 10;
    m:=m div 10
    end;
 k:=k*10+m mod 10;
 if k=n then writeln('palindrom')
      else writeln('no palindrom');
 readln;
end.


Сообщение отредактировано: volvo -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Бывалый
***

Группа: Пользователи
Сообщений: 282

Репутация: -  0  +


ADs
я ж писал, что можно, только медленней это
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Camel_Toe: за собой лучше следи, а других участников не суди!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Новичок
*

Группа: Пользователи
Сообщений: 26

Репутация: -  0  +


не суди сам, да не судим будишь.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской

Репутация: -  1  +


2 Camel_Toe:
А Вам Мама в детстве не говорила, что спорить с SysAdmin'ом - неприлично?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14





Группа: Пользователи
Сообщений: 8

Репутация: -  0  +


Цитата
2 Camel_Toe:
А Вам Мама в детстве не говорила, что спорить с SysAdmin'ом - неприлично?

и опасно для жизни? ;-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.09.2020 17:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name