Помощь - Поиск - Пользователи - Календарь
Полная версия: Множества
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Вася
Пусть задана целочисленная квадратная матрица размерности n. Элементы матрицы
находятся в диапазоне от 1 до 100. Напечатайте все цифры из заданого диапазона,
которых нет ни в одной из строк заданой матрицы.
Код

program s142n10pr;
const n = 3;                             // размерность
type
   Tmatr   = array [1..n, 1..n] of integer;    // тип матрица
   Tmn = set of 1..100;
var matrix: Tmatr;                       // матрица
    numbers: Tmn;
// процедура ввода матрицы
procedure ReadMatr (var M : TMatr);
var i, j : integer;
begin
  writeln ('введите матрицу:');
  for i:=1 to n do
   for j:=1 to n do
    read (M[i,j]);
  readln;
end;
// процедура ввода множества состоящего из чисел от 1 до 100 и "вычёркивания"
// из него чисел встечающихся в матрице
procedure read_mn (var numbers: Tmn; var matrix: Tmatr);
var i, j: integer;
begin
    numbers:=[1..100];
    for i:=1 to n do
     for j:=1 to n do
      numbers:=numbers-[matrix[i,j]];
end;
procedure print (numbers: Tmn);
var k: integer;
begin
    for k:=1 to 100 do
     if (k in numbers)
     then write(k,' ');
end;
var i, j, k: integer;
begin
    Readmatr (matrix);
    read_mn (numbers, matrix);
    print (numbers);
    readln;
end.

Артемий
Да все вроде работает..
А нельзя проще?Просто не вычитая ничего из множества,сразу проверять на наличия и печать?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.