Форум программистов, компьютерный форум CyberForum.ru

Циклические преобразования целых чисел - C++

Восстановить пароль Регистрация
 
EvgenKo
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 2
10.12.2013, 00:20     Циклические преобразования целых чисел #1
НУЖНА ПОМОЩЬ. Вот задача

Натуральное число преобразовывается по правилу: каждая его цифра возводится в квадрат, затем эти квадраты складываются. Полученное число преобразовывается таким же образом. Указанный процесс может продолжаться бесконечно, может остановиться на каком-то числе (у которого сумма квадратов его цифр равна самому числу) , либо может образоваться цикл из нескольких повторяющихся элементов. Исследовать поведение всех трёхзначных чисел,преобразующихся по этому правилу, и выявить закономерности.

так или нет???
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
#include<iostream.h>
#include<conio.h>
#include<stdio.h>
int razdelenie( int A)
{
    int a,b,c,g;
    a=A/100;
    b=A/10-a*10;
    c=A-a*100-b*10;
    
    g=a*a+b*b+c*c;
 
    return g;
}
int issledovanie(int A)
{
    int pr[100];
    int i,j,p=0,c=0,n=0;
    int povtor,nachinai,cycl,czerez;
 
    
    pr[1]=razdelenie(A);
    for (i=2; i<99; i++)
    
 
    {pr[i]=razdelenie(pr[i-1]);
    }
    
    
    for (i=10; i>0;i--)
    {for (j=10; j>0; j--)
    
    {if ((pr[i]==pr[i+1])&&(pr[j]==pr[j+1]))
    {povtor=pr[i]; nachinai=i;p=p+1;};};}
    
    for (i=10; i>0;i--)
    {for (j=10; j>0; j--)
    {if ((pr[i]==pr[i+j])&&(j>2)&&(pr[i]!=pr[i+1])&&(pr[j]!=pr[j+1]))
    {cycl=pr[i];czerez=j;c=c+1;};};
 
    
    
    
 
    };
    if (p>0)
    {cout<<A<<" povtor "<< povtor  <<" nachinai "<<nachinai<<"  "<<endl;
    A=povtor;}
 
       
      
       
    if ((c>0)&&(cycl>0))
    {cout<<A<<" cycl "<<cycl<<" czerez  "<<czerez<<"  "<<endl;
    A=cycl;}
    if ((c==0)&&(p==0))
    {cout <<A<<" nic "<<endl;
    A=0;}
 
 
    
return A;
}
 
void main(void)
{
    int A;
FILE*myfile;
myfile=fopen("1.txt","wt");
 
 
FILE*myfile2;
myfile2=fopen("cycl.txt","wt");
FILE*myfile3;
myfile3=fopen("nic.txt","wt");
for (int k=100; k<1001; k++)
{A=issledovanie(k);
{if (A==1)
{fprintf(myfile,"%d\n",k);};};
 
{if ((A==16)||(A==89)||(A==58)||(A==37)||(A==145)||(A==42)||(A==4))
{fprintf(myfile2,"%d\n",k);};};
{if (issledovanie(k)==0)
{fprintf(myfile3,"%d\n",k);};};
 
};
fclose(myfile);
 
}
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2013, 00:20     Циклические преобразования целых чисел
Посмотрите здесь:

сумма первых n целых положительных четных целых чисел C++
C++ Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла.
перегруженые функции для вычисления суммы произведений двух соседних чисел для трех целых чисел и в одномерном массиве целых чисел C++
C++ Написать шаблоны функций для для вычисления суммы произведений двух соседних чисел для трех целых чисел и в одномерном массиве целых чисел
Дан файл целых чисел. Создать новый файл целых чисел, содержащий длины всех серий исходного файла C++
C++ Сумма всех целых чисел от целых чисел от A до B включительно
C++ Написать программу, которая вычисляет сумму первых n целых положительных целых чисел
Задан массив K(m) попарно различных целых чисел. Получить все перестановки целых чисел C++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
EvgenKo
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 2
13.12.2013, 16:02  [ТС]     Циклические преобразования целых чисел #2
Помогите кто нибудь!!
Yandex
Объявления
13.12.2013, 16:02     Циклические преобразования целых чисел
Ответ Создать тему
Опции темы

Текущее время: 12:56. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru