Записать в файл сумму элементов четных строк таблицы - Turbo Pascal
Формулировка задачи:
Помогите, пожалуйста, решить задачу к курсовой.
Задана двумерная матрица размерностью 10х10 элементов, заполненная случайными числами из диапазона [0, 100]. Найти, вывести результаты на экран и записать в файл "output.txt" сумму элементов четных строк таблицы.
Решение задачи: «Записать в файл сумму элементов четных строк таблицы»
textual
Листинг программы
program pr; var a: array [1..10, 1..10] of integer; i, j, sum: integer; f: text; begin randomize; assign(f, 'c:\output.txt'); rewrite(f); for i := 1 to 10 do for j := 1 to 10 do a[i, j] := random(101); for i := 1 to 10 do begin for j := 1 to 10 do write(a[i, j]:3); writeln; end; for i := 1 to 10 do if i mod 2 = 0 then begin sum := 0; for j := 1 to 10 do begin sum := sum + a[i, j]; end; writeln('Сумма ', i, ' строки: ', sum); writeln(f, 'Cумма ', i, ' строки: ', sum); end; close(f); end.
Объяснение кода листинга программы
- Создается программа на языке Turbo Pascal с именем
pr
. - В программе объявляются следующие переменные:
- a: двумерный массив целых чисел размером 10x10.
- i, j, sum: целочисленные переменные для счетчика и накопления суммы.
- f: текстовый файл для записи результата.
- Функция randomize вызывается для инициализации генератора случайных чисел.
- Строка
assign(f, 'c:\output.txt')
устанавливает путь к файлу для записи результата. - Строка
rewrite(f)
перезаписывает содержимое файла. - Запускается цикл for, который повторяется 10 раз (от 1 до 10).
- Внутри первого цикла for заполняются значения массива a[i, j] случайными числами от 101 до 1000.
- После завершения первого цикла for начинается второй цикл for, который выполняется для каждой строки массива a.
- Внутри второго цикла for выполняется запись каждого элемента строки в файл.
- Если текущая строка четная (i mod 2 = 0), то начинается третий цикл for, который выполняет следующие действия:
- переменная sum инициализируется нулем.
- для каждого элемента j в строке суммируются значения a[i, j] с переменной sum.
- после завершения третьего цикла for выполняется запись суммы и номера строки в файл.
- После завершения второго цикла for закрывается файл с помощью функции close(f).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д