Записать в файл сумму элементов четных строк таблицы - 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.

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

  1. Создается программа на языке Turbo Pascal с именем pr.
  2. В программе объявляются следующие переменные:
    • a: двумерный массив целых чисел размером 10x10.
    • i, j, sum: целочисленные переменные для счетчика и накопления суммы.
    • f: текстовый файл для записи результата.
  3. Функция randomize вызывается для инициализации генератора случайных чисел.
  4. Строка assign(f, 'c:\output.txt') устанавливает путь к файлу для записи результата.
  5. Строка rewrite(f) перезаписывает содержимое файла.
  6. Запускается цикл for, который повторяется 10 раз (от 1 до 10).
  7. Внутри первого цикла for заполняются значения массива a[i, j] случайными числами от 101 до 1000.
  8. После завершения первого цикла for начинается второй цикл for, который выполняется для каждой строки массива a.
  9. Внутри второго цикла for выполняется запись каждого элемента строки в файл.
  10. Если текущая строка четная (i mod 2 = 0), то начинается третий цикл for, который выполняет следующие действия:
    • переменная sum инициализируется нулем.
    • для каждого элемента j в строке суммируются значения a[i, j] с переменной sum.
    • после завершения третьего цикла for выполняется запись суммы и номера строки в файл.
  11. После завершения второго цикла for закрывается файл с помощью функции close(f).

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

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