Скопировать элементы из одного массива в другой - Pascal
Формулировка задачи:
Пусть описана константа и два типа-массива:
Создайте программу, которая значения, записанные в элементах массива 1-го типа, переносит в массив 2-го типа.
const m = 3; type TMas1 = array [1..2*m+1] of real; TMas2 = array [-m..m] of real;
Решение задачи: «Скопировать элементы из одного массива в другой»
textual
Листинг программы
const m = 3; type TMas1 = array [1..2*m+1] of real; TMas2 = array [-m..m] of real; var a:TMas1; b:TMas2; i,j:integer; begin randomize; writeln('Массив А'); for i:=1 to 2*m+1 do begin a[i]:=9*random; write(a[i]:5:2); end; writeln; writeln('Массив B'); for i:=1 to 2*m+1 do b[i-m-1]:=a[i]; for i:=-m to m do write(b[i]:5:2); end.
Объяснение кода листинга программы
- Объявляются константа m = 3 и типы массивов TMas1 и TMas2.
- Задаются начальные значения переменных a и b, а также переменных i и j.
- В цикле for генерируются случайные числа и записываются в массив a с шагом 9.
- Выводится содержимое массива a с шагом 9.
- В цикле for элементы массива a копируются в массив b с шагом m+1.
- Выводится содержимое массива b с шагом m+1.