Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
MadMike
0 / 0 / 0
Регистрация: 22.02.2010
Сообщений: 5
1

Задача на перестановку цифр

02.06.2010, 12:14. Просмотров 447. Ответов 1
Метки нет (Все метки)

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

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
Program balance;
     Var
       A, B : String [10]; // числа
     m, n : Integer;
    
  Procedure Sort ();
    var
       i, j : Byte;
 
      ch : Char;
 begin
      if (A [1] = '-')
         then
          begin
            // сортируем по неубыванию
            for i := 1 to Length (A) - 1 do
              for j := 1 to Length (A) - i do
                if (A [j] > A [j + 1])
                  then
                    begin
                      ch := A [j];
                      A [j] := A [j + 1];
                      A [j + 1] := ch;
                    End
{begin}
             i := 2;
             while (A [i] = '0')
                  and
                  (Length (A) <> 2)
            do
              Inc (i);
 
             ch := A [2];
            A [2] := A [i];
            A [i] := ch;
          end
{end}
        else
          begin
Что он делает конкретно?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2010, 12:14
Ответы с готовыми решениями:

задача ЕГЭ 2013 с1: Вывести произведение цифр числа
опишите примерный ход решения sashausa, на будущее: 1. Текстовые задания...

Организовать циклическую перестановку слов
Для фразы на русском языке, в которой нет знаков препинания, а слова отделяются...

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

Осуществите перестановку элементов массива в обратном порядке, не используя дополнительный массив
Дан массив Y(15) случайными целыми числами в интервале . Каждый элемент...

создать одномерный массив X[1..10] случайным образом.Вывести его в строку.Затем сделать циклическую перестановку
создать одномерный массив X случайным образом.Вывести его в строку.Затем...

1
Puporev
02.06.2010, 12:18     Задача на перестановку цифр
  #2

Не по теме:

Что он делает конкретно?
Эхо отвечает: - а кто его знает......

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2010, 12:18
Привет! Вот еще темы с ответами:

в матрице размером m x n в каждой строке сделать перестановку:поменять местами первый и последний элементы,второй и предпоследний и т.д.
в матрице размером m x n в каждой строке сделать перестановку:поменять местами...

Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать...

Осуществите перестановку минимального элемента и элемента, стоящего на последнем месте
«одномерные числовые массивы» создайте программу. заполните одномерный ...


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

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

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