Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
MadMike
0 / 0 / 0
Регистрация: 22.02.2010
Сообщений: 5
#1

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

02.06.2010, 12:14. Просмотров 411. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задача на перестановку цифр (Pascal):

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

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

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

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

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

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

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

Не по теме:

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

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

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

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

Напечатать перестановку цифр в числе - Pascal ABC
Дано натуральное число L=ABCDEK, составит из цифр A,B,C,D,E,K. Напечатать перестановку цифр в числе, так чтобы получилось число M...

Задача на перестановку - Алгоритмы
Мистер Фокс хочет переставить буквы в строке УМНЫЙЛИС так, что если вычеркнуть буквы У, М, Н, Ы, Й, то оставшиеся буквы образуют слово ЛИС,...


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

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

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