Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.
Внимание! Некоторое время письма не доходят до аккаунтов MAIL RU GROUP, не доходят на все почтовые ящики mail.ru, inbox.ru, bk.ru. Пишите им жалобы, чтобы быстрее восстановили получение писем, регистрируйтесь через яндекс почту и gmail, туда письма с активизацией доходят.

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

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

Ответ
 
Опции темы
Старый 10.05.2018, 17:45   #1
Temka3791
Пользователь
 
Регистрация: 05.03.2018
Сообщений: 17
Репутация: 10
По умолчанию Армстронга для n =2; 3; 4.

Натуральное число из n цифр является числом Армстронга, если сумма его цифр,
возведенных в n-ю степень, равна самому числу (153=1+5+3). Получить все числа
Армстронга для n =2; 3; 4.


1. Выделение цифр в числе
Реализация:
readln(number);
while number<>0 do
begin
temp:=number mod 10; {выделение цифры из числа}
number:=number div 10; {уменьшение числа на один разряд}
должно быть три подпрограммы:
1. находит степень цифры числа
2. находит количество цифр в числе
3. находит сумму цифр числа
Я сделала, но не выполняется 2-й пункт


program Armstrong;


var
n, x, min, max, summa, k, l, p: integer;

function stepChis(k, n:integer):integer;
var step:integer;
begin
step:=k;
for l := 2 to n do
step := step * k;
stepChis:=step;
end;

function sumstep(p, n:integer):integer;
var i, l, summa :integer;
begin
summa := 0;
for i := 1 to n do
begin
k:=p mod 10;

summa := summa + stepChis(k,n);
p := p div 10
end;
sumstep:=summa;
end;

begin



for n := 2 to 4 do
begin
writeln('Числа Армстронга для n=', n);

min := 1;
for l := 1 to n - 1 do
min := min * 10;

max := min * 10 - 1;

for x := min to max do
begin

if sumstep(x, n) = x then
writeln(x);
end;
end;
readln;
end.
Temka3791 вне форума   Ответить с цитированием
Старый 10.05.2018, 17:50   #2
Temka3791
Пользователь
 
Регистрация: 05.03.2018
Сообщений: 17
Репутация: 10
По умолчанию

и как написать программу нахождение количества чисел в числе?
Temka3791 вне форума   Ответить с цитированием
Старый 10.05.2018, 17:56   #3
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 18,118
Репутация: 6385
По умолчанию

str - число в строку
length - длина строки и твое количество цифр в числе

можно div 10 использовать без преобразования в строку
Цитата:
153=1+5+3
не-а. 153=1^3+5^3+3^3
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Старый 10.05.2018, 22:23   #4
Temka3791
Пользователь
 
Регистрация: 05.03.2018
Сообщений: 17
Репутация: 10
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
str - число в строку
length - длина строки и твое количество цифр в числе

можно div 10 использовать без преобразования в строку
не-а. 153=1^3+5^3+3^3
Спасибо
Temka3791 вне форума   Ответить с цитированием
Старый 11.05.2018, 01:15   #5
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,635
Репутация: 2398

icq: 100500
skype: kick-ass
По умолчанию

тряхнул стариной...
Вложения
Тип файла: 7z 319753 - числа армстронга.7z (3.26 Мб, 1 просмотров)
__________________
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

Последний раз редактировалось min@y™; 11.05.2018 в 01:25.
min@y™ на форуме   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Числа Армстронга _Лето_ Общие вопросы C/C++ 0 09.07.2014 23:11
числа армстронга m00nJinn Общие вопросы C/C++ 1 09.12.2011 21:27
Числа Армстронга KOMPNET Помощь студентам 6 09.10.2011 02:55
Аксиомы Армстронга Mikuro Общие вопросы по программированию, компьютерным наукам 0 08.10.2011 19:38
нахождение чисел Армстронга kabum13 Microsoft Office Excel 5 29.12.2010 15:45


20:42.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru