СОСТАВЛЕНИЕ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ МАССИВОВ КАК ФОРМАЛЬНЫХ ПАРАМЕТРОВ ПОДПРОГРАММ

ЛАБОРАТОРНАЯ РАБОТА №8
СОСТАВЛЕНИЕ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ МАССИВОВ
КАК ФОРМАЛЬНЫХ ПАРАМЕТРОВ ПОДПРОГРАММ

2020
Решение
program example_1;

type
arr = array [1..5, 1..3] of real;

var
i, j: integer;
b, c: arr;
average: real;
f1, f2: text;

procedure get_avarege(c: arr; var b: arr; var average: real);
var
i, j: integer;

begin
average := 0;

for i := 1 to 5 do
for j := 1 to 3 do
begin
b[i, j] := sqr(c[i, j]);
average := average + b[i, j] end;

average := average / (i * j)
end; 5
Решение (продолжение)
begin
assign(f1, ‘data_1.txt’);
reset(f1);
assign(f2, ‘result_1.txt’);
rewrite(f2);

for i := 1 to 5 do
begin
for j := 1 to 3 do
read(f1, c[i, j]);
readln(f1)
end;

get_average(c, b, average);

for i := 1 to 5 do
begin
for j := 1 to 3 do
write(f2, b[i, j]:4:2);
writeln(f2)
end;

writeln(f2, ‘Среднее арифметическое эл-тов массива b: ‘, average:4:2);
close(f1);
close(f2)
end.
6
Решение (динамические массивы)
program example_1_dynamical;

type
arr = array of array of real; • Функция High возвращает
var
самое высокое допустимое
i, j: integer; значение индекса элемента
b, c: arr;
average: real;
массива;
f1, f2: text;

procedure get_average(c: arr; var b: arr; var average: real);
• Функция Length возвращает
var количество элементов в
i, j: integer;
массиве;
begin
// Length(b) = 5
average := 0;
// Length(b[i]) = 3
for i := 0 to High(c) do
for j := 0 to High(c[i]) do
begin
b[i, j] := sqr(c[i, j]);
average := average + b[i, j] end;

average := average / (Length(b) * Length(b[i]))
end; 7
Решение (динамические массивы)
begin for i := 0 to 4 do
assign(f1, ‘data_1.txt’); begin
reset(f1); for j := 0 to 2 do
assign(f2, ‘result_1_dyn.txt’); write(f2, b[i, j]:8:2);
rewrite(f2); writeln(f2)
end;
SetLength(c, 5);
SetLength(b, 5); writeln(f2, ‘Среднее арифметическое эл-ов массива b: ‘,
for i := 0 to 4 do average:4:2);
begin close(f1);
SetLength(c[i], 3); close(f2)
SetLength(b[i], 3); end.
end;

for i := 0 to 4 do
begin
for j := 0 to 2 do
read(f1, c[i, j]);
readln(f1)
end;

get_average(c, b, average);

8
Задание 3
Составьте подпрограмму–функцию для вычисления суммы (SA)
значений среднего арифметического элементов каждого столбца
матрицы А(3,4). Элементы матрицы А(3, 4) заполните случайными
числами из интервала [1; 9]. Значение SA используйте при вычислении:

В ответах приведите:
b = 0.294; 1. Значения элементов матрицы A(5, 3);
X[i] = 10, 20, 30, 40, 50; 2. Значение SA;
3. Значения элементов массива Z.

14

user840428 4.8

Финансовый университет при Правительстве РФ (управление персоналом) МГЛУ (педагог-психолог, лингвист) РГУТиС (менеджмент,туризм) Выполняю любые виды работ по УЧР, менеджменту, экономике, финансам,педагогике, психологии,лингвистике,туризму.

Нанять автора