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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

нет
да
да да
нет нет
Текст программы сортировки слиянием
Uses crt;
Var { Описание массивов и переменных}
X, Y: array[1..1000] of integer;
Z: array[1..2000] of integer;
dx,dy,ix,iy,iz,i:integer;
Begin Clrscr; { Ввод данных}
Write(' Введите длину массива Х '); readln(dx);
ix:=1; iy:=1;
iz:=0;
X[ix]≤
Y
[
i
y]
iz:=iz+1;
Z[iz]:=Y[iy];
iy:=iy+1;
iz:=iz+1;
Z[iz]:=X[ix];
ix:=ix+1;
ix≤dx
iy≤dy
Цикл
i:=iy,dy
Цикл
i:=ix,dx
iz:=iz+1;
Z[iz]:=Y[i]
iz:=iz+1;
Z[iz]:=X[i]
Вывод
Z[i],i:=
1
,
iz
Конец 
       ix:=1; iy:=1;
       iz:=0;




            X[ix]≤
            Y[iy]          нет

                     да
       iz:=iz+1;                     iz:=iz+1;
       Z[iz]:=X[ix];                 Z[iz]:=Y[iy];
       ix:=ix+1;                     iy:=iy+1;


     да                                                 да
            ix≤dx                       iy≤dy

                     нет                          нет

            Цикл                       Цикл
            i:=iy,dy                   i:=ix,dx



          iz:=iz+1;                  iz:=iz+1;
          Z[iz]:=Y[i]                Z[iz]:=X[i]




          Вывод                         Конец
          Z[i],i:=
          1,iz     Текст программы сортировки слиянием
Uses crt;
Var { Описание массивов и переменных}
      X, Y: array[1..1000] of integer;
      Z: array[1..2000] of integer;
      dx,dy,ix,iy,iz,i:integer;
  Begin Clrscr;             { Ввод данных}
  Write(' Введите длину массива Х '); readln(dx);

Страницы