Question

Решите задачку в паскале. Заданы два массива. Создать один массив в котором все элементы расположены в порядке возрастания.

Answer 1

Const
    m = 10; 
var
    a,b: array[1..m] of integer;
    c: array[1..m*2] of integer;
    i, j, k: integer; 
begin     
write ('Первый массив: ');    
for i := 1 to m do
  begin
  a[i] := random(100);
  c[i]:=a[i];
  write (a[i],'; ');
  end;    
writeln;      
write ('Второй массив: ');    
for i := 1 to m do
  begin
  b[i] := random(100);
  c[i+m]:=b[i];
  write (b[i],'; ');
  end;    
writeln;      
for i := 1 to 2*m-1 do
        for j := 1 to 2*m-i do
           if c[j] > c[j+1] then
             begin
             k := c[j];
             c[j] := c[j+1];
             c[j+1] := k
             end;     
write ('Отсортированный третий массив: ');    
for i := 1 to 2*m do
   write (c[i],'; ');
end.

Answer 2

Для решения данной задачи в Паскале можно использовать следующий алгоритм:

1. Создаем два исходных массива и один результирующий массив. Пусть исходные массивы называются array1 и array2, а результирующий массив - result.

2. Находим длины исходных массивов и сохраняем их в переменных len1 и len2 соответственно.

3. Инициализируем переменные i, j и k нулевыми значениями. Переменная i будет использоваться для итерации по элементам array1, переменная j - для итерации по элементам array2, а переменная k - для итерации по элементам result.

4. Входим в цикл, который будет выполняться, пока i < len1 и j < len2.

5. Внутри цикла проверяем, какой из элементов array1[i] и array2[j] меньше. Если array1[i] < array2[j], то добавляем array1[i] в result и увеличиваем i на 1. Если array1[i] >= array2[j], то добавляем array2[j] в result и увеличиваем j на 1.

6. После выхода из цикла добавляем оставшиеся элементы из array1 или array2 в result, если такие есть.

7. Выводим полученный результирующий массив result.

Пример кода на языке Паскаль:

program MergeArrays; var array1, array2, result: array[1..100] of Integer; len1, len2, i, j, k: Integer; begin // Инициализация исходных массивов // ... // Находим длины исходных массивов len1 := Length(array1); len2 := Length(array2); // Слияние массивов i := 1; j := 1; k := 1; while (i <= len1) and (j <= len2) do begin if array1[i] < array2[j] then begin result[k] := array1[i]; i := i + 1; end else begin result[k] := array2[j]; j := j + 1; end; k := k + 1; end; // Добавление оставшихся элементов из array1 или array2 while i <= len1 do begin result[k] := array1[i]; i := i + 1; k := k + 1; end; while j <= len2 do begin result[k] := array2[j]; j := j + 1; k := k + 1; end; // Вывод результирующего массива for i := 1 to k - 1 do Write(result[i], ' '); end.