Дана целочисленная матрица размера M x N. Найти количество ее строк 1| столбцов 2, все элементы которых различны. - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Задача на двумерный массив. Дана целочисленная матрица размера M x N. Найти количество ее строк 1| столбцов 2, все элементы которых различны.

Решение задачи: «Дана целочисленная матрица размера M x N. Найти количество ее строк 1| столбцов 2, все элементы которых различны.»

textual
Листинг программы
  1. Program_1;
  2. type tip= real;
  3.  stroka= array [1..100] of tip; {ykazatel }
  4.  PtStr= array [1..100] of ^Stroka; {ykazatel na ykazatel stroka}
  5.  
  6.  var f:text;
  7.  
  8.  NStr, NStb : integer;
  9.  i,m,n, j: integer;
  10.  A:^PtStr;
  11.  x:tip;
  12.  Begin
  13.  Assign (f,'massiv.txt');
  14.  {$i-}
  15.  Reset(f);
  16.  {$I+}
  17.  if IOResult<>0 then
  18.  Begin
  19.  writeln ('oshibka=',IOResult);
  20.  readln;
  21. { end
  22. Else
  23. Begin}
  24.  Write ('Chtenie masiva');
  25.  NStr:=0;
  26.  
  27.  repeat
  28.  NStb:=0;
  29.  NStr := Nstr + 1;
  30.  Repeat
  31.  Nstb :=Nstb +1;
  32.  read(f,x);
  33.  Until SeekEoln(f);
  34.  Readln(f);
  35.  Until SeekEof(f);
  36.  
  37.  close (f);
  38.  writeln(NStr:3, NStb:3);
  39.  
  40.  readln;
  41.  close(f);
  42.  reset(f);
  43.  GetMem (a,4*Nstr);
  44.  For i:=1 to NStr do
  45.  Begin
  46.  GetMem( A^[i] , 4*Nstb);
  47.  For j := 1 to Nstb do
  48.  Begin
  49.  read(f,x);
  50.  a^[i]^[j]:= x;
  51.  end;
  52.  Readln (f);
  53.  End;
  54.  close (f);
  55.  
  56.  write ('razmernost massiva',nstr:5,nstb:5);
  57.  
  58.  readln;
  59.  
  60.  end;
  61.  
  62.  
  63.  
  64.  end.

Объяснение кода листинга программы

В данном коде происходит чтение целочисленной матрицы из файла 'massiv.txt'. Размер матрицы задается переменной NStr, а количество строк и столбцов - переменной NStb. После чтения матрицы, происходит проверка на наличие ошибок ввода-вывода. Если ошибки есть, то выводится сообщение об ошибке и производится повторное чтение массива. Далее, происходит выделение памяти под массив типа Tip для хранения чисел матрицы. Затем, происходит заполнение массива чисел матрицы. Для этого используется цикл, который проходит по каждой строке матрицы и каждому столбцу, считывает число из файла и записывает его в соответствующую ячейку массива. После окончания чтения массива, выводится размерность массива (количество строк и столбцов). В конце программы происходит выход из программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы