Разработайте универсальную подпрограмму, определяющую среднее арифметическое элементов в
Разработайте универсальную подпрограмму, определяющую среднее арифметическое частей в столбце С матрицы размером nm частей. Расположите подпрограмму в модуль. Разработайте тестирующую программку.
(Freepascal)
1 ответ
Полторухина Варвара
//Модуль подключается через uses
type Matrix = array of array of real;
var
A: Matrix;
n, m, i, j, C: byte;
procedure ArithMeanColumn(A: Matrix; C: integer);
var
i: byte;
ArithMean: real;
begin
ArithMean := 0;
for i := 0 to n - 1 do
ArithMean := ArithMean + A[i, C - 1];
ArithMean := ArithMean / C;
writeln(ArithMean:10:3);
end;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
SetLength(A, n, m);
randomize;
for i := 0 to n - 1 do
begin
for j := 0 to m - 1 do
begin
A[i, j] := random(10);
write(A[i, j]:10:3);
end;
writeln;
end;
write('Введите C: ');
readln(C);
ArithMeanColumn(A, C);
readln;
end.
type Matrix = array of array of real;
var
A: Matrix;
n, m, i, j, C: byte;
procedure ArithMeanColumn(A: Matrix; C: integer);
var
i: byte;
ArithMean: real;
begin
ArithMean := 0;
for i := 0 to n - 1 do
ArithMean := ArithMean + A[i, C - 1];
ArithMean := ArithMean / C;
writeln(ArithMean:10:3);
end;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
SetLength(A, n, m);
randomize;
for i := 0 to n - 1 do
begin
for j := 0 to m - 1 do
begin
A[i, j] := random(10);
write(A[i, j]:10:3);
end;
writeln;
end;
write('Введите C: ');
readln(C);
ArithMeanColumn(A, C);
readln;
end.
Кирилл Бурлин
Переработал.
Данцина
Елизавета
// Программаuses CustomA;var A: Matrix; n, m, i, j, C: byte;begin write('Введите n: '); readln(n); write('Введите m: '); readln(m); SetLength(A, n, m); randomize; for i := 0 to n - 1 do begin for j := 0 to m - 1 do begin A[i, j] := random(10); write(A[i, j]:10:3); end; writeln; end; write('Введите C: '); readln(C); AMC(A, C); readln;end.
Геннадий Маканюк
// Модульunit CustomA;interfacetype Matrix = array of array of real;procedure AMC(A: Matrix; C: integer);implementationprocedure AMC;var i: byte; AM: real;begin AM := 0; for i := 0 to Length(A) - 1 do AM := AM + A[i, C - 1]; AM := AM / Length(A); writeln(AM:10:3);end;end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов