Определение сумм по строкам и столбцам матрицы - Turbo Pascal
Формулировка задачи:
Дан произвольный двумерный числовой массив фиксированной размерности. Разработать проект, позволяющий:
1)заполнение массива данных
2)сохранение их в файле
3)определение сумм по строкам и столбцам, их вывод
Решение задачи: «Определение сумм по строкам и столбцам матрицы»
textual
Листинг программы
uses crt; const m=5;{фиксированный размер матрицы} n=7; var a:array[1..m,1..n] of real; i,j:byte; s:real; f:text; begin clrscr; randomize; assign(f,'matrix.txt'); rewrite(f); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=10*random; write(a[i,j]:6:2); write(f,a[i,j]:6:2); end; writeln; writeln(f); end; close(f); writeln('Суммы в строках'); for i:=1 to m do begin s:=0; for j:=1 to n do s:=s+a[i,j]; writeln(i,' = ',s:0:2); end; writeln('Суммы в столбцах'); for j:=1 to n do begin s:=0; for i:=1 to m do s:=s+a[i,j]; writeln(j,' = ',s:0:2); end; readln end.
Объяснение кода листинга программы
- Создаётся файл 'matrix.txt' для записи результатов.
- Инициализируется генератор случайных чисел.
- Выделяется память под матрицу размером m x n.
- Заполняется матрица случайными числами от 0 до 99.
- Записывается содержимое матрицы в файл 'matrix.txt'.
- Выводится пустая строка и содержимое файла 'matrix.txt'.
- Вычисляются суммы элементов строк матрицы.
- Выводится номер строки и сумма элементов строки.
- Вычисляются суммы элементов столбцов матрицы.
- Выводится номер столбца и сумма элементов столбца.
- Закрывается файл 'matrix.txt'.
- Выводится сообщение 'Суммы в строках'.
- Вычисляется сумма элементов строки для каждой строки матрицы.
- Выводится номер строки и сумма элементов строки.
- Выводится сообщение 'Суммы в столбцах'.
- Вычисляется сумма элементов столбца для каждой строки матрицы.
- Выводится номер столбца и сумма элементов столбца.
- Выводится сообщение 'readln'.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д