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

Вернуться   Форум программистов > 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
Сообщений: 17,600
Репутация: 6210
По умолчанию

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,597
Репутация: 2281

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


08:41.


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

RusProfile.ru


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