Скопировать элементы из одного массива в другой - Pascal

Узнай цену своей работы

Формулировка задачи:

Пусть описана константа и два типа-массива:
const
    m = 3;
  type
    TMas1 = array [1..2*m+1] of real;
    TMas2 = array [-m..m] of real;
Создайте программу, которая значения, записанные в элементах массива 1-го типа, переносит в массив 2-го типа.

Решение задачи: «Скопировать элементы из одного массива в другой»

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.

Объяснение кода листинга программы

  1. Объявляются константа m = 3 и типы массивов TMas1 и TMas2.
  2. Задаются начальные значения переменных a и b, а также переменных i и j.
  3. В цикле for генерируются случайные числа и записываются в массив a с шагом 9.
  4. Выводится содержимое массива a с шагом 9.
  5. В цикле for элементы массива a копируются в массив b с шагом m+1.
  6. Выводится содержимое массива b с шагом m+1.

Оцени полезность:

13   голосов , оценка 3.615 из 5
Похожие ответы