Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 06.06.2014, 18:03   #1
Shyrick
 
Регистрация: 01.12.2013
Сообщений: 9
Репутация: 10
Лампочка Использование подпрограмм

Для заданного натурального n найти первые n автоморфных чисел. Написать и использовать в программе логическую функцию, определяющую, является ли число автоморфным.
([Число называется автоморфным, если квадрат этого числа заканчивается этим же числом)
Shyrick вне форума   Ответить с цитированием
Старый 06.06.2014, 18:57   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Цитата:
найти первые n автоморфных чисел
Чего чего? В каком смысле первые?
Цитата:
Число называется автоморфным, если квадрат этого числа заканчивается этим же числом
Код:
function Bamblebee(n:integer):Boolean;
var s,s2:string;k,e:integer;
begin
 str(n,s2); str(n*n,s);  Bamblebee:=copy(s,Length(s)-Length(s2),Length(s2))=s2;
end.
Если не ошибаюсь...
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 06.06.2014, 23:03   #3
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
Репутация: 1941
По умолчанию

Цитата:
Чего чего? В каком смысле первые?
Это по поводу неясности от чего считать?
Poma][a вне форума   Ответить с цитированием
Старый 07.06.2014, 00:19   #4
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 26,088
Репутация: 5675
По умолчанию

Цитата:
Сообщение от Poma][a Посмотреть сообщение
Это по поводу неясности от чего считать?
вики - Автоморфное число

Цитата:
Последовательность автоморфных чисел начинается с 1, 5, 6, 25, 76, 376, 625, 9 376, 90 625, 109 376, 890 625, … (последовательность A003226 в OEIS).
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 07.06.2014, 21:13   #5
Mad_Cat
Made In USSR!
Профессионал
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,648
Репутация: 1218

icq: 723-321
skype: mad_cat1982
По умолчанию

ошибочка в вики
не
Цитата:
890 625
, а 390 625
upd Я поправил в вики(никогда не ощущал себя таким значимым)
__________________
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума   Ответить с цитированием
Старый 07.06.2014, 23:50   #6
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Цитата:
Это по поводу неясности от чего считать?
Ну да. Именно так.
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 10.06.2014, 15:03   #7
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
Репутация: 1941
По умолчанию

Цитата:
ошибочка в вики
Разве?
390625^2 = 152587890625
898625^2 = 793212890625
Poma][a вне форума   Ответить с цитированием
Старый 10.06.2014, 15:32   #8
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 26,088
Репутация: 5675
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
ошибочка в вики
не , а 390 625
upd Я поправил в вики(никогда не ощущал себя таким значимым)
так. поправляйте обратно!!!


Poma][a, респект!
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование подпрограмм specnazkin Помощь студентам 0 12.05.2011 15:43
использование подпрограмм ANutaStar Паскаль 0 12.12.2010 13:59
Использование подпрограмм бургер Паскаль 5 29.04.2010 04:21
Использование подпрограмм inferno fm Общие вопросы Delphi 2 19.09.2009 18:37


14:12.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.