Форум программистов, компьютерный форум, киберфорум
Алгоритмы
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.03.2014
Сообщений: 2
1

Из цифр заданного натурального числа составить максимальное и минимальное числа с такой же разрядностью

28.03.2014, 04:23. Просмотров 916. Ответов 7
Метки нет (Все метки)


Из цифр заданного натурального числа составляют максимальное и минимальное числа с такой же разрядностью, как и заданное число. Из максимального вычитается минимальное и разрядностью выполняются те же операции, что и с заданным числом. Процесс прекращается, если получиться цикл или конечное число, полученное при завершении через N шагов.

Добавлено через 4 минуты
т.е. например есть число 1990, составляем максимальное 9910 и минимальное 0199, составляем разность 9910-0199=9711, с этим числом делаем тоже самое, составляем максимальное и минимальное, найти цикл или конечное число
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2014, 04:23
Ответы с готовыми решениями:

Найти максимальное число которое можно составить из цифр заданного числа
Задано четырехзначное число. Нужно написать программу, которая находит самое большое четырехзначное...

Определить, равен ли квадрат заданного трехзначного натурального числа кубу суммы цифр числа
2. Определить, равен ли квадрат заданного трехзначного натурального числа кубу суммы цифр этого...

Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.
Составить программу, которая для любого натурального числа печатает количество цифр в записи этого...

Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.
Составить программу, которая для любого натурального числа печатает количество цифр в записи этого...

7
291 / 263 / 47
Регистрация: 09.04.2013
Сообщений: 997
31.03.2014, 00:04 2
Цитата Сообщение от Алексей 511735 Посмотреть сообщение
минимальное 0199
А разве это число не следует считать числом меньшей разрядности ? Иначе зачем уточнение про разрядность.

Составить все перестановки цифр, из них выбрать максимальное и минимальное (больше 999). Конечное число ищется по факту, что разность меньше 1000. Для поиска цикла, наверное, нужно записывать каждое число в массив и проверять не входит ли это число в массив второй раз.
1
Мой лучший друг-отладчик!
165 / 165 / 30
Регистрация: 24.06.2012
Сообщений: 662
Записей в блоге: 5
01.04.2014, 20:55 3
wingblack, а зачем перестановки? извлекаем все цифры, и делаем sort() по возрастанию и убыванию. Сложность O(nlogn).А то с перестановками ищите за факториал мин и макс перестановку, что не есть комильфо
2
291 / 263 / 47
Регистрация: 09.04.2013
Сообщений: 997
01.04.2014, 21:09 4
Цитата Сообщение от ZaMaZaN4iK Посмотреть сообщение
извлекаем все цифры, и делаем sort()
А лидирующие нули куда девать будете ?
С маскимумом это пройдет, а вот с минимумом - нет
1
Мой лучший друг-отладчик!
165 / 165 / 30
Регистрация: 24.06.2012
Сообщений: 662
Записей в блоге: 5
01.04.2014, 21:40 5
wingblack, нули в конец думаю не составляет никакого труда перекинуть.
1
30 / 30 / 8
Регистрация: 15.04.2013
Сообщений: 244
03.04.2014, 15:42 6
Цитата Сообщение от ZaMaZaN4iK Посмотреть сообщение
нули в конец думаю не составляет никакого труда перекинуть
Если перекинуть нули в конец число не будет минимальным.
После составления минимального числа (сортировкой по возрастанию) проверяем первое число, если 0, то смотрим на второе, если 0, то смотри на следующие и так пока не найдем число отличное от нуля, затем найденное число меняем с первым нулем. Готово
2
0 / 0 / 0
Регистрация: 28.03.2014
Сообщений: 2
05.04.2014, 22:52  [ТС] 7
В принципе я сделал черновой вариант на паскале ABC, результат даёт, хотя надо поработать ещё над алгоритмом.

Добавлено через 39 секунд
Pascal
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
Program massiv2;
Var I,N,K,J,Pr,i1,i2:Integer;
b,c,d,z1,z2,c1,b1,c2,b2,c3,e,f,g,b4,c4,c5,c6,p:Integer;
A:array[1..300] Of Integer;
A1:array[1..300] Of Integer;
Q:array[1..100] Of Integer;
Begin
c5:=0;
c6:=1;
p:=1;
Write ('Введите количество элементов;');ReadLn(N);{n:=4;}
   FOR I:=1 To N Do 
   Begin 
     Write ('Введите A[',I, '] '); Readln(A[I]);
     End;
    WriteLn;
 
while not (c5=c6) do
 
begin
for i2:=1 to 100 do
begin
Q[i2]:=c6;{последовательность из цифр составленных по возврастанию в цикле}
write (Q[i2],' ');     
For I:=1 To N Do
      Begin
       K:=I;
        For J:=I+1 To N Do If A[J]<=A[K] Then K:=J;
        Pr:=A[I]; A[I]:=A[K]; A[K]:=Pr;
       End;
       
       c2:=0;
       For I:=1 To N Do 
       begin
        z2:=1;
        for j:=1 to N-i do
        begin
         z1:=10*z2;
         z2:=z1;
        end;
        Begin
        B2:=A[I]*z2;
        C2:=C2+B2;  
        End;      
       end;
       {write(c2,' ');   {число расположенное по убыванию} 
    For I:=1 To N Do
      Begin
       K:=I;
        For J:=I+1 To N Do If A[J]>=A[K] Then K:=J;
        Pr:=A[I]; A[I]:=A[K]; A[K]:=Pr;
       End;
       
       c1:=0;
       For I:=1 To N Do 
       begin
        z2:=1;
        for j:=1 to N-i do
        begin
         z1:=10*z2;
         z2:=z1;
        end;
        Begin
        B1:=A[I]*z2;
        C1:=C1+B1;  
        End;      
       end; 
       {write(c1,' ');{число расположенное по возврастанию}
       {Расположение по возврастанию}
       
 
c3:=c1-c2;          
 {write(c3,' '); {разность максимального и минимального}  
 
 
For I:=1 to N do  
Begin
   z2:=1;
  for j:=1 to N-i do
     begin
     z1:=10*z2;
     z2:=z1;
     end;
  g:=c3 div z2;
  e:=c3 mod z2;
  f:=c3-e;
  c3:=e;
  A1[I]:=g; 
end;  
 
For I:=1 To N Do
      Begin
       K:=I;
        For J:=I+1 To N Do If A1[J]>=A1[K] Then K:=J;
        Pr:=A1[I]; A1[I]:=A1[K]; A1[K]:=Pr;
       { write(A1[I],'');{массив разности по возврастанию }
       End; 
       
       c4:=0;
For I:=1 To N Do 
       begin
        z2:=1;
        for j:=1 to N-i do
        begin
         z1:=10*z2;
         z2:=z1;
        end;
        Begin
        B4:=A1[I]*z2;
        C4:=C4+B4; 
        End;      
       end;
       
       {write(c4,''); {число разности расположенное по возврастанию}
 
c5:=c1;
c6:=c4;
 
 
 
for i := 1 to N do 
begin 
A[I]:=A1[I];
A1[I]:=0;
end;
end;
if  c5=c6  then write( c5,'- конечное число')
else
 
 
end;
end.
0
291 / 263 / 47
Регистрация: 09.04.2013
Сообщений: 997
06.04.2014, 14:11 8
Цитата Сообщение от Алексей 511735 Посмотреть сообщение
A:array[1..300] Of Integer;
Если вы храните в массиве сами цифры, то Byte более чем достаточно
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.04.2014, 14:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа
составить программу,которая для любого натурального числа печатает количество цифр в записи этого...

Составить программу,которая для любого натурального числа печатает количество цифр в записи этого числа
Помагите решить такую штукенцию=) Составить программу,которая для любого натурального числа...

Составить функцию для нахождения наименьшего нечетного натурального делителя k (k не = 1) любого заданного натурального числа n.
Составить функцию для нахождения наименьшего нечетного натурального делителя k (k не = 1) любого...

Составить функцию для нахождения наименьшего нечетного натурального делителя k (k≠1) любого заданного натурального числа n
Составить функцию для нахождения наименьшего нечетного натурального делителя k (k≠1) любого...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.