Автор К _ задал вопрос в разделе Наука, Техника, Языки
Кто нибудь знает как написать задачу числа Амстронга в паскале? и получил лучший ответ
Ответ от Nau[гуру]
Это смесь JavaScript + HTML. Раз нужен лишь алгоритм - сами преобразуете. 🙂
Числа Армстронга в заданном интервале
Напишем сценарий, определяющий все числа Армстронга, расположенные в заданном интервале. Натуральное число называется числом Армстронга, если оно совпадает с суммой k-ых степеней составляющих его цифр, где k — количество цифр в числе. Например, таким является число 153, т. к. 153 = 13+53+33.
Функция arm получает в качестве параметра строку, для которой требуется определить, представляет ли содержимое строки число Армстронга. Переменная is определяет длину строки или количество цифр в числе. Далее в строке отщепляется по одному символу, символ преобразуется в число, определяется значение в заданной степени, и полученный результат добавляется к формируемой сумме. После того, как все символы строки будут просмотрены, проверяется условие для числа Армстронга. Функция arm выдает значение true, если число является числом Армстронга:
function arm(s)
{ var h; var k; var r
var ls= s.length
sum=0
for (var 1=0; i<=ls-l; i++)
{ h=s.charAt(i)
k=Number(h)
r=Math.pow(k,ls)
sum+=r
}
return (s==String(sum))
}
Перебор осуществляется функцией interav. Просматриваются все числа из заданного диапазона, и для каждого из них проверяется, является ли данное значение числом Армстронга. Так как параметр функции arm — строка, то и при обращении к ней в функции interav числовой параметр i преобразуется в строку. Результат работы помещается в текстовое поле. Каждое число располагается в отдельной строке. Описанные сценарии приведены в листинге 13.3.
Листинг 13.3. Числа Армстронга в заданном интервале
<html>
<head>
<title>Числа Армстронга в заданном интервале</title>
<script>
</script>
</head>
<body>
<h4>Числа Армстронга в заданном интервале</h4>
<form>
<pre>
Левая граница интервала: <input>
Правая граница интервала: <input><hr>
<input>
<textarea></textarea>
<input>
</pre>
</form>
</body>
</html>
Если поиск чисел производить в интервале [100; 9999], то результат работы сценария будет таким, как на рис. 13.2.
Текст скрипта срезался парсером, см. в источнике.
Источник: http://www.realcoding.net/article/view/2039?ShmID=81d328e505cf0b1cb5516cec763e9c6e ссылка
Посоветуйте пожалуйста книги по языкам программирования для "чайников"
Начни с Delphi. Там полно уроков +
подробнее...
расскажите мне биографию Луи Армстронга?
Армстронг Дэниел Луи "Сэчмо" ("Сэчелмаут", "Гейтмаут", "Диппер-маут", "Диппер", "Фэйс", "Попс",
подробнее...
Был ли кто-нибудь кроме американца Армстронга на луне?
16 июля "Аполлон - 11" стартовал к Луне и 19 июля вышел на лунную орбиту. 21 июля 1969 на Луне
подробнее...
Есть ли у Луи Армстронга дети?
Все американские источники, в том числе официальный сайт дома-музея Луиса Армстронга, сообщают, что
подробнее...
покорители космоса 20-21 веков (длительность полёта, число космонавтов, стран)
12 апреля 1961 года в кабину космического корабля
«Восток» шагнул землянин, которому
подробнее...
Как усовершенствовать (ускорить) данный алгоритм по поиску чисел Армстронга)?
В десятичной системе существует всего 88 чисел Армстронга. Соответственно, быстрее всего их просто
подробнее...
Билли Джо Армстронг умер? Поясните, пожалуйста, откуда информация о том, что Билли Джо умер? И умер ли вообще?
Вранье. Если бы он умер, об этом уже весь интернет бы об этом говорил. Так что не волнуйся, я
подробнее...
Самые знаменитые американцы. кого бы вы отнесли к их числу?
Пол Маккартни, Джон Леннон, Том Йорк, Стивен
подробнее...
Астронавт Нил Армстронг, а был ли он на Луне? не Голливудской, а той самой.
Был . Это подтвердил отечественный космонавт Георгий Гречко, наблюдавший за экспедицией "Аполлона
подробнее...
С# Найти числа Армстронга на интервале от 1 до M
перемудрил
public static void Main() {
//Console.WriteLine(\"введите M\");
// M =
подробнее...
Кто читал произведение Агаты Кристи "Убийство в восточном экспрессе"? Кто убийца Касетти? Причина убийства, спасибо!
Убийцы все 12 человек - совпадает с числом присяжных в британском
подробнее...