Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы

@kotovasiya · Регистрация: 15.05.2013

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

Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы A(m*n) процедура только суммы.

@kotovasiya · 11.06.2013, 12:20 **[ТС]**

Пожалуйста, помогите, эти задачки не могу решить, а отчет нужно было еще вчера сдать, =(

@volvo · 11.06.2013, 12:56

Только сумма - так только сумма (хотя вообще-то тут напрашивается использование функции, а не процедуры)

Pascal

const
  m =  5;
  n = 10;
type
  vector = array[1 .. n] of real;
  matrix = array[1 .. m] of vector;
  // Это аналогичное описание вот такому: type matrix = array[1 .. m, 1 .. n] of real;
 
procedure sum(const v : vector; var s : real);
var num : real;
begin
  s := 0;
  for num in v do
    if num > 0 then s := s + num;
end;
 
var
  a : matrix;
  i : Integer;
  s : real;
begin
  // тут вводишь матрицу, как обычно
  for i := 1 to m do
  begin
    sum(a[i], s); // Вызываешь процедуру
    writeln('Строка: ', i, ' Сумма положительных элементов = ', s:10:5);
  end;
end.

(при использовании функции строки 25-26 соединились бы в одну)

@kotovasiya · 25.06.2013, 01:36 **[ТС]**

22 // тут вводишь матрицу, как обычно
Можно пожалуйста, раскрыть ее?
Как вводить..желательно random, но можно и обычно.

Спасибо.

@volvo · 25.06.2013, 15:35

Pascal

1
2
3

randomize;
for i := 1 to m do
  for j := 1 to n do a[i, j] := Random(51) - 50;

@kotovasiya 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 20
		1
	Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы 09.06.2013, 23:00. Показов 1857. Ответов 4 Метки нет (Все метки) Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы A(m*n) процедура только суммы. 0

@kotovasiya 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 20
	11.06.2013, 12:20 [ТС]	2
	Пожалуйста, помогите, эти задачки не могу решить, а отчет нужно было еще вчера сдать, =( 0

@kotovasiya 0 / 0 / 0 Регистрация: 15.05.2013 Сообщений: 20
	25.06.2013, 01:36 [ТС]	4
	22 // тут вводишь матрицу, как обычно Можно пожалуйста, раскрыть ее? Как вводить..желательно random, но можно и обычно. Спасибо. 0

Опции темы

Составить процедуру для вычисления суммы положительных элементов каждой строки матрицы

Решение