Описать функцию sum (A, S1, S2), вычисляющую сумму тех элементов матрицы

@mmarkin · Регистрация: 08.12.2008

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

const n=10;
type номер=1..n;
матрица=array [номер,*номер]*of*real;
ном*=*set*of*номер;

Описать функцию sum(A,S1,S2),вычисляющую сумму тех элементов матрицы А, номера строк и столбцов, которых принадлежат соответственно непустым множествам*S1*и*S2*типа ном.

@Puporev · 14.04.2009, 16:35

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const n=10;
type
nomer=1..n;
matr=array[nomer,nomer] of real;
nom=set of nomer;
function Sum(a:matr;s1,s2:nom):real;
var i,j:byte;
    sm:real;
begin
sm:=0;
for i:=1 to n do
for j:=1 to n do
if (i in s1)and(j in s2)then
sm:=sm+a[i,j];
Sum:=sm;
end;

@mmarkin · 14.04.2009, 16:39 **[ТС]**

А как написать начало???

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@mmarkin 0 / 0 / 0 Регистрация: 08.12.2008 Сообщений: 13

	Описать функцию sum (A, S1, S2), вычисляющую сумму тех элементов матрицы 14.04.2009, 15:04. Показов 2701. Ответов 2 Метки нет (Все метки) const n=10; type номер=1..n; матрица=array [номер,номер]ofreal; ном=setofномер; Описать функцию sum(A,S1,S2),вычисляющую сумму тех элементов матрицы А, номера строк и столбцов, которых принадлежат соответственно непустым множествамS1иS2*типа ном. 0

@mmarkin 0 / 0 / 0 Регистрация: 08.12.2008 Сообщений: 13
	14.04.2009, 16:39 [ТС]
	А как написать начало??? 0

Описать функцию sum (A, S1, S2), вычисляющую сумму тех элементов матрицы

Решение