Помогите сделать это в Pascal Пусть дан фрагмент программы. Опишите функцию Sum(A, SI, S2), вычи¬сляющую сумму тех элементов матрицы А, номера строк и номера столб¬цов которых принадлежат соответственно непустым множествам S1 и S2 типа num. Const n = 10; Type number = 1..n; matrix = array [number, number] of real; num = set of number; Var A : matrix; S1, S2 : num;

Ответы:

Ксения Мельниченко

12-10-2014 08:05

Традиционнный Pascal:function Sum(var M:matrix;n:integer;s1,s2:num):real;var i,j:number; s:real;begin s:=0; for i:=1 to n do if i in s1 then for j:=1 to n do if j in s2 then s:=s+M[i,j]; Sum:=send;В PascalABC.Net можно написать короче:function Sum(var M:matrix;n:integer;s1,s2:num):real;var i,j:number;begin result:=0; foreach i in s1 do foreach j in s2 do result:=result+M[i,j]end;

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите сделать это в Pascal Пусть дан фрагмент программы. Опишите функцию Sum(A, SI, S2), вычи¬сляющую сумму тех элементов матрицы А, номера строк и номера столб¬цов которых принадлежат соответственно непустым множествам S1 и S2 типа num. Const n = 10; Type number = 1..n; matrix = array [number, number] of real; num = set of number; Var A : matrix; S1, S2 : num;» от пользователя МИША ИВАНОВ в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!