Таблицы позволяют объединить однотипные данные в более-менее читабельную структуру, чего не делает словесное описание (как, например, приятней читать таблицу с датами и описанием исторических событий в таблице, чем читать словесную демагогию в учебиках). Таблицы позволяют ужать данные в размере, читателю сосредоточиться на главном. Они позволяют операторам обрабатывать её без каких-либо затруднений.
Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел. Вот. Так что табличные модели, несомненно, лучше словесных.
Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел.
Вот. Так что табличные модели, несомненно, лучше словесных.
// PascalABC.NET
function ВерхнийТреугольник(Матрица: array[,] of integer):
sequence of integer;
begin
var ИндексMax := Матрица.RowCount - 1;
for var ИндексСтроки := 0 to ИндексMax - 1 do
for var ИндексСтолбца := ИндексСтроки + 1 to ИндексMax do
yield Матрица[ИндексСтроки, ИндексСтолбца]
end;
begin
var n := ReadInteger('N =');
var СлучайнаяМатрица := MatrRandom(n, n, -99, 99);
СлучайнаяМатрица.Println;
var ПоложительныеЭлементы :=
ВерхнийТреугольник(СлучайнаяМатрица)
.Where(Значение -> Значение > 0);
Println('Сумма положительных элементов равна',
ПоложительныеЭлементы.Sum);
Println('Число положительных элементов равно',
ПоложительныеЭлементы.Count)
end.