Записать в файл сумму элементов четных строк таблицы - 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).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д