Обнулить строку и столбец матрицы на пересечение которых стоит минимальный элемент - Pascal ABC

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

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

Считать из файла целочисленную матрицу и обнулить строку и столбец на пересечение которых стоит минимальный элемент.Заранее спасибо))))

Решение задачи: «Обнулить строку и столбец матрицы на пересечение которых стоит минимальный элемент»

textual
Листинг программы
var f:text;
begin
assign(f,'matrix.txt');
reset(f);
read(f,n,m);
while not eof(f) do
 begin
  for j:=1 to m do
   begin
    read(f,a[i,j]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
close(f);

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

В данном коде используется язык программирования Pascal ABC.

  1. Объявляется переменная f типа text, которая будет использоваться как файловый дескриптор.
  2. С помощью функции assign файл f связывается с файлом matrix.txt.
  3. С помощью функции reset происходит инициализация файла f.
  4. С помощью функции read считывается количество строк и столбцов матрицы, которые сохраняются в переменных n и m соответственно.
  5. В цикле while not eof(f) происходит чтение элементов матрицы.
  6. Внутренний цикл for j:=1 to m используется для считывания элементов каждой строки матрицы.
  7. Внешний цикл while not eof(f) используется для считывания всех строк матрицы.
  8. При выходе из внутреннего цикла происходит запись элемента матрицы в файл f с помощью функции write.
  9. После завершения внешнего цикла происходит переход на новую строку с помощью функции writeln.
  10. Закрытие файла f происходит с помощью функции close.

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

9   голосов , оценка 4 из 5
Похожие ответы