0 / 0 / 0
Регистрация: 28.01.2011
Сообщений: 68
1

Возрастание и убывание в числе

11.02.2011, 19:07. Показов 2442. Ответов 3
Метки нет (Все метки)

Дано число, требуется отсортировать сначала по возрастанию а потом по убыванию цифры в нём
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.02.2011, 19:07
Ответы с готовыми решениями:

Возрастание или убывание элементов в массиве через процедуры
Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются...

Переделка с возрастание на убывание
Дана небольшая программа. Ввожу элементы одномерного массива. Выводятся они в порядке возрастания....

Сортировка пузырьком.Возрастание
Исправьте пожалуйста мои ошибки,А то компилятор два нуля выводит var str,f,st:string; ...

Найти четные элементы массива и вывести их на экран в порядке возрастание.
Требуется: Найти четные элементы массива и вывести их на экран в порядке возрастание.

3
80 / 82 / 36
Регистрация: 20.11.2009
Сообщений: 326
11.02.2011, 19:23 2
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
uses crt;
var
i,j:byte;
s:string[20];
buf:char;
BEGIN
writeln('input your digit');
readln(s);
 buf:='0';
 
 write('the first sort: ');
for i:=length(s) downto 1 do
 for j:=2 to i do
  if s[j]<s[j-1] then
   begin
    buf:=s[j];
    s[j]:=s[j-1];
    s[j-1]:=buf;
    end;
 
for i:=1 to length(s) do
write(s[i]);
 
 writeln;
 write('the second sort : ');
 
for i:=length(s) downto 1 do
write(s[i]);
END.
0
0 / 0 / 0
Регистрация: 28.01.2011
Сообщений: 68
11.02.2011, 19:30  [ТС] 3
Пример: 56981237
Вывести: по возрастанию 12356789
по убыванию 98765321
0
Почетный модератор
64256 / 47556 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
12.02.2011, 09:26 4
Делаешь множество из цифр числа
Pascal
1
2
3
4
5
6
m:=[];
while n>0 do
 begin
  m:=m+[n mod 10];
  n:=n div 10;
 end;
Сейчас 2 раза выводишь
Pascal
1
2
for i:=0 to 9 do
if i in m then write(i,' ');
Pascal
1
2
for i:=9 downto 0 do
if i in m then write(i,' ');
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.02.2011, 09:26
Помогаю со студенческими работами здесь

Вывести номера строк матрицы, элементы которых положительны и образуют возрастание
Дана целочисленная матрица размерности M*N. вывести на экран номера строк, элементы которых...

Возрастание, убывание и экстремумы
y=\frac{{x}^{3}}{1-{x}^{2}} x\neq\pm 1 y'=\frac{3-{x}^{2}}{-1-{x}^{2}} -1-{x}^{2}\neq 0 x=\pm...

Возрастание или убывание
Определить, является ли массив возрастающей или убывающей последовательностью (через булевскую...

Исследовать на возрастание/убывание график
Добрый день! у меня есть график, который построен по точкам. По оси x время, по y данные с...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru