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

ЛАБОРАТОРНАЯ РАБОТА №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

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

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

Готовые работы на продажу

Так же вы можете купить уже выполненные похожие работы. Для удобства покупки работы размещены на независимой бирже. Нажимая "Купить" вы будете перенаправлены на страницу карточки работы.

Гарантия на работу 10 дней.

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

500₽

• Курсовая работа
• Программирование
• Выполнил: Heinenof

Купить

ЭКСКУРСИЯ КАК ФОРМА ФОРМИРОВАНИЯ ПРЕДСТАВЛЕНИЙ СТАРШИХ ДОШКОЛЬНИКОВ ОБ АРХИТЕКТУРЕ САНКТ-ПЕТЕРБУРГА

3000₽

• Дипломная работа
• Педагогика
• Выполнил: SvetaLeta

Купить