Описать функцию, вычисляющую сумму элементов вещественной матрицы

@DrBlue · Регистрация: 13.10.2017

Студворк — интернет-сервис помощи студентам

Описать функцию SumRow(A, M, N, K) вещественного типа, вычисляющую сумму элементов вещественной матрицы А размера MxN, расположенных в К-й строке (если К>М, то функция возвращает 0). Для данной матрицы А найти максимальную сумму.
Код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
const
  nmax = 10;
type
  a = Array[1..nmax, 1..nmax] of Integer;
var
  Matr: a;
  n, m, i, j, k: integer;
 
function SumRow(Matr: a; n, m, k: integer): Integer;
var
  summa: Integer;
  j: integer;
begin
  summa:=0;
  if k > m then
    summa:=0
  else
    for j:=1 to m do
      inc(summa, Matr[k, j]);
  SumRow:=summa;
end;
 
begin
  Randomize;
  repeat
    write('Введите количество строк от 1 до 10: ');
    readln(n);
  until (n in [1..nmax]);
  repeat
    write('Введите количество столбцов от 1 до 10: '); //m - количество столбцов
    readln(m);
  until (m in [1..nmax]);
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      Matr[i, j]:=Random(20);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  repeat
    write('Введите номер строки: '); //k - номер строки
    readln(k);
  until (k > 0);
  writeln('Сумма строки с номером ', k, ' = ', SumRow(Matr, n, m, k));
end.

Что значит:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  summa: Integer;
  j: integer;
begin
  summa:=0;
  if k > m then
    summa:=0
  else
    for j:=1 to m do
      inc(summa, Matr[k, j]);
  SumRow:=summa;
end;

?

@Puporev · 14.05.2018, 14:04

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var//локальные переменные
  summa: Integer;//сумма
  j: integer;//счетчик цикла
begin
  summa:=0;//начальная сумма = 0
  if k > m then//если номер строки больше их количества, сумма=0
    summa:=0
  else//иначе
    for j:=1 to m do//идем по строке К
      inc(summa, Matr[k, j]);//прибавляем элементы строки к сумме
  SumRow:=summa;//полученное значение функции
end;

@bormant · 17.05.2018, 22:31

Второй раз присваивать 0 совершенно ни к чему

Pascal
6
7
8
  if (k>0) and (k<=m) then
    for j:=1 to n do
      summa:=summa+Matr[k,j];

И матрица, и summa, и функция — вещественные.

Добавлено через 1 минуту
Для небольших m можно

Pascal
6
  if k in [1..m] then

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .