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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

Writeln(' Введите упорядоченный по возрастанию массив Х');
For i:=1 to dx do read(X[i]); readln;
Write(' Введите длину массива Y '); readln(dy);
Writeln(' Введите упорядоченный по возрастанию массив Y');
For i:=1 to dy do read(Y[i]); readln;
ix:=1; iy:=1; iz:=0;
While (ix<=dx) and (iy<=dy) do
if X[ix]<Y[iy] then
begin {Перезапись значения из массива Х в массив Z}
inc(iz); Z[iz]:=X[ix]; inc(ix);
end
else
begin {Перзапись значения из массива Y в массив Z}
inc(iz); Z[iz]:=Y[iy]; inc(iy);
end;
{ Один из массивов полностью переписан }
if ix>dx then { Переписан массив Х, дописываем все
for i:=iy to dy do
begin
inc(iz); Z[iz]:=Y[i];
end
else { Переписан массив Y, дописываем все оставшееся из X }
for i:=ix to dx do
begin
inc(iz); Z[iz]:=X[i];
end;
{ Вывод результата слияния
на экран}
writeln(' Полученный массив Z');
for i:=1 to iz do write(Z[i],' '); readln;
End.
Лабораторная работа №10
Цель работы:
1. Изучить алгоритмы сортировки.
2. Приобрести навыки программирования задач сортировки данных
различных типов.
Типовое задание
Разработать схему алгоритма и программу решения задачи с
использованием алгоритмов сортировки. 
        Writeln(' Введите упорядоченный по возрастанию массив Х');
         For i:=1 to dx do read(X[i]); readln;
        Write(' Введите длину массива Y '); readln(dy);
        Writeln(' Введите упорядоченный по возрастанию массив Y');
        For i:=1 to dy do read(Y[i]); readln;
          ix:=1; iy:=1; iz:=0;
        While (ix<=dx) and (iy<=dy) do
           if X[ix]dx then { Переписан массив Х, дописываем все
                  for i:=iy to dy do
                          begin
                                inc(iz); Z[iz]:=Y[i];
                          end
           else { Переписан массив Y, дописываем все оставшееся из X }
                  for i:=ix to dx do
                          begin
                                inc(iz); Z[iz]:=X[i];
                          end;
         { Вывод результата слияния на экран}
          writeln(' Полученный массив Z');
           for i:=1 to iz do write(Z[i],' '); readln;
        End.

                            Лабораторная работа №10

      Цель работы:
1. Изучить алгоритмы сортировки.
2. Приобрести навыки программирования          задач   сортировки     данных
   различных типов.

                              Типовое задание

     Разработать схему алгоритма и программу решения задачи с
использованием алгоритмов сортировки.

Страницы