Алгоритмические языки и программирование. Игошина Л.В. - 76 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

нет
да
нет да
Key - ключ, определяющий была ли перестановка пар элементов;
Z - переменная, необходимая для хранения промежуточного элемента
при перестановке.
Текст программы обменной сортировки
Uses crt;
Var M:array[1..1000] of integer;
i,Z,n:integer; Key:byte;
Begin Clrscr;
{Ввод n и формирование массива М как в предыдущей программе}
Repeat
Начало
Ввод
данных
Key=0
Цикл
i=1,n-1
M[i]>
M
[
i+1
]
Обмен
Z= M[i]
M[i]=M[i+1]
M[i+1]=Z
Key=1
Key=0
Вывод
нового
М
Конец
А
А 
                                          Обмен
                                          Z= M[i]
            Начало                        M[i]=M[i+1]



            Ввод                          M[i+1]=Z
            данных                        Key=1




                                    А                   нет
            Key=0                           Key=0

                                                   да
                         А
            Цикл                           Вывод
            i=1,n-1                        нового
                                           М



     нет     M[i]>        да               Конец
             M[i+1]




     Key - ключ, определяющий была ли перестановка пар элементов;
     Z - переменная, необходимая для хранения промежуточного элемента
при перестановке.
                      Текст программы обменной сортировки

     Uses crt;
       Var M:array[1..1000] of integer;
             i,Z,n:integer; Key:byte;
       Begin Clrscr;
       {Ввод n и формирование массива М как в предыдущей программе}
           Repeat

Страницы