ЛАБОРАТОРНАЯ РАБОТА №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 дней.
РАЗРАБОТКА ПРОГРАММЫ ДЛЯ АНАЛИЗА МЕТОДОВ СОРТИРОВКИ ОДНОМЕРНЫХ МАССИВОВ
- Курсовая работа
- Программирование
- Выполнил: Heinenof
ЭКСКУРСИЯ КАК ФОРМА ФОРМИРОВАНИЯ ПРЕДСТАВЛЕНИЙ СТАРШИХ ДОШКОЛЬНИКОВ ОБ АРХИТЕКТУРЕ САНКТ-ПЕТЕРБУРГА
- Дипломная работа
- Педагогика
- Выполнил: SvetaLeta
На странице представлен фрагмент
Уникализируй или напиши новое задание с помощью нейросети
Похожие работы
Оценка эффективности промышленных инвестиций
Тема 7. Оценка эффективности промышленных инвестиций 7.1 Значение чистого дисконтированного дохода • Если показатель ЧДД: • отрицательный, то есть ˂0, то данная инвестиция является убыточной. С...
Управляя случайностью. Между беспомощностью и всемогуществом.
Управляя случайностью. Между беспомощностью и всемогуществом. гештальт-терапевт, профессор БФУ им .И Канта «Текучая современность(модерность)». Зигмунт Бауман. n Это метафора. Жидкость не способна...