Основы программирования на языке Turbo Pascal. Беляева И.В. - 33 стр.

UptoLike

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

Рубрика:

2: k=1, i=3, n=6; 2 -2 2 -3 -4 3 {переписываем

a[1]:=a[3]}

3: k=1, i=4, n=6; 2 -2 2 -3 -4 3 {не переписываем}

4: k=1, i=5, n=6; 2 -2 2 -3 -4 3 {не переписываем}

5: k=2, i=6, n=6; 2 3 2 -3 -4 3 {переписываем

a[2]:=a[6]}

6: k=2, i=7, n=6: 2 3 2 -3 -4 3 {выход из цикла}

7: n=2: 2 3 {значение k переписываем в n}

Обработка нескольких массивов

Задача 14: Массивы А и В имеют одинаковую длину. Массив С

необходимо заполнить суммами соответствующих элементов массивов А

и В. n – длина массивов А и В (и С тоже).

Фрагмент программы:

…

{Проходим по всем элементам массивов}

for I := 1 to n do

{Сумму i-х элементов массивов A и B заносим в i-й элемент C}

C[i] := A[i] + B[i];

…

Задача 15: В конец массива А[n] приписать все элементы массива

В[m].

Фрагмент программы:

…

{Проходим в цикле по массиву B}

for I := 1 to m do

A[n + i] := B[i]; {Дописываем элементы в “хвост” A}

Inc(n, m); {Увеличиваем значение n (длину массива A) на

m (длину массива B)}

…

Замечание: необходимо следить, чтобы n не превысило значение

maxN.