Пример 1

Создать два одномерных массива по правилам и образовать из них двумерный массив по правилу , где ; .

Решение.

1. Анализ задачи.

Здесь имеем дело с двойным циклом. Пусть внешний цикл будет по параметру , внутренний цикл по параметру . В теле цикла сначала вычисляем элементы одномерного массива , где ; затем вычисляем элементы одномерного массива , где ; наконец, вычисляем элементы двумерного массива , где , ; .

2. Тест для отладки программы.

, ,

;

, ,

;

, ,

.

3. Блок-схема:

G

4. Программа:

program Vector_Matrix;

Var {Описание переменных}

A: array[1..6] of real;

B: array[3..7] of real;

C: array[1..6,3..7] of real;

i,j: Integer;

{ начало основного блока }

BEGIN

for i:= 1 to 6 do

for j:= 3 to 7 do

Begin

a[i]:= exp(i*ln(2)); {Вычисление элементов массива A}

b[j]:= sqr(j); {Вычисление элементов массива B}

c[i,j]:= a[i] + b[j]; {Вычисление элементов массива C}

end;

{Выводим массив A}

Write Ln('Массив A'); for i:= 1 to 6 do

Write(a[i]:4:1,' ');

WriteLn; {перевод курсора на следующую строку}

{Выводим массив B}

WriteLn('Массив B');

for j:= 3 to 7 do

Write(b[j]:4:1,' ');

WriteLn; {перевод курсора на следующую строку}

{Выводим массив C}

WriteLn('Массив C');

for i:= 1 to 6 do

Begin

for j:= 3 to 7 do

Write(c[i,j]:5:1,' ');

WriteLn; {перевод курсора на следующую строку}

end;

End.

5. Вид печати: