Записать в файл сумму элементов четных строк таблицы - Turbo Pascal

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

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

Помогите, пожалуйста, решить задачу к курсовой. Задана двумерная матрица размерностью 10х10 элементов, заполненная случайными числами из диапазона [0, 100]. Найти, вывести результаты на экран и записать в файл "output.txt" сумму элементов четных строк таблицы.

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

textual
Листинг программы
  1. program pr;
  2. var
  3.   a: array [1..10, 1..10] of integer;
  4.   i, j, sum: integer;
  5.   f: text;
  6. begin
  7. randomize;
  8.   assign(f, 'c:\output.txt');
  9.   rewrite(f);
  10.   for i := 1 to 10 do
  11.     for j := 1 to 10 do
  12.       a[i, j] := random(101);
  13.   for i := 1 to 10 do
  14.   begin
  15.     for j := 1 to 10 do
  16.       write(a[i, j]:3);
  17.     writeln;
  18.   end;
  19.   for i := 1 to 10 do
  20.     if i mod 2 = 0 then begin
  21.       sum := 0;
  22.       for j := 1 to 10 do
  23.       begin
  24.         sum := sum + a[i, j];
  25.       end;
  26.       writeln('Сумма ', i, ' строки: ', sum);
  27.       writeln(f, 'Cумма ', i, ' строки: ', sum);
  28.     end;
  29.   close(f);
  30. 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы