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

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

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

Ребята, знаю, вы мастера своего дела. Не могли бы помочь написать программу в TP. Сам не могу, мозгов на это дело пока не отросло, а времени маловато. Условие задачи:Сумма строк. Задана двумерная матрица размерностью 12х12 элементов, заполняющаяся случайными числами из диапазона [0..150]. Найти, вывести результаты на экран и записать в файл «output.exe» сумму элементов нечетных строк таблицы.

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

textual
Листинг программы
  1. var a:array[1..12,1..12] of integer;
  2. i,j, sum : integer;
  3.   f:Text;
  4. begin
  5.   Randomize;
  6.   for i:=1 to 12 do begin
  7.    for j:=1 to 12 do begin
  8.      a[i,j] := Random(151);
  9.      Write(a[i,j]:5);
  10.    end;
  11.    WriteLn
  12.  end;
  13.  
  14.  sum:=0;
  15.  i:=1;
  16.  while i<=12 do begin
  17.    for j:=1 to 12 do sum := sum + a[i,j];
  18.    Inc(i,2)
  19.  end;
  20.  
  21.  WriteLn('sum of odd rows = ',sum);
  22.  
  23.  Assign(f,'output.exe');
  24.  Rewrite(f);
  25.  WriteLn(f, sum);
  26.  Close(f);
  27.  
  28.  ReadLn
  29. end.

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

  1. Создается переменная a типа array[1..12,1..12] of integer, которая представляет собой таблицу размером 12x12, где каждый элемент содержит целое число.
  2. Создаются три переменные i, j и sum, которые будут использоваться для итерации по таблице и суммирования элементов.
  3. Создается переменная f типа Text, которая будет использоваться для записи результатов в файл.
  4. Используется функция Randomize, чтобы инициализировать генератор случайных чисел.
  5. Запускается цикл for, который выполняется 12 раз. Внутри этого цикла каждая строка таблицы заполняется случайными числами с помощью цикла for.
  6. После завершения внутреннего цикла записывается символ новой строки (WriteLn).
  7. Создается переменная sum, которая инициализируется значением 0.
  8. Запускается внешний цикл while, который выполняется до тех пор, пока значение переменной i меньше или равно 12.
  9. Внутри внешнего цикла каждая строка таблицы суммируется с помощью внутреннего цикла for.
  10. После завершения внутреннего цикла значение переменной i увеличивается на 2.
  11. После завершения внешнего цикла записывается значение переменной sum в файл с помощью функции WriteLn.
  12. Файл перезаписывается с помощью функции Assign, а затем переписывается с помощью функции Rewrite.
  13. Закрывается файл с помощью функции Close.
  14. Вызывается функция ReadLn, чтобы завершить выполнение программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

10   голосов , оценка 4.2 из 5

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

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

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