Записать в файл сумму элементов нечетных строк таблицы - Turbo Pascal
Формулировка задачи:
Ребята, знаю, вы мастера своего дела. Не могли бы помочь написать программу в TP. Сам не могу, мозгов на это дело пока не отросло, а времени маловато.
Условие задачи:Сумма строк. Задана двумерная матрица размерностью 12х12 элементов, заполняющаяся случайными числами из диапазона [0..150]. Найти, вывести результаты на экран и записать в файл «output.exe» сумму элементов нечетных строк таблицы.
Решение задачи: «Записать в файл сумму элементов нечетных строк таблицы»
textual
Листинг программы
- var a:array[1..12,1..12] of integer;
- i,j, sum : integer;
- f:Text;
- begin
- Randomize;
- for i:=1 to 12 do begin
- for j:=1 to 12 do begin
- a[i,j] := Random(151);
- Write(a[i,j]:5);
- end;
- WriteLn
- end;
- sum:=0;
- i:=1;
- while i<=12 do begin
- for j:=1 to 12 do sum := sum + a[i,j];
- Inc(i,2)
- end;
- WriteLn('sum of odd rows = ',sum);
- Assign(f,'output.exe');
- Rewrite(f);
- WriteLn(f, sum);
- Close(f);
- ReadLn
- end.
Объяснение кода листинга программы
- Создается переменная
a
типаarray[1..12,1..12] of integer
, которая представляет собой таблицу размером 12x12, где каждый элемент содержит целое число. - Создаются три переменные
i
,j
иsum
, которые будут использоваться для итерации по таблице и суммирования элементов. - Создается переменная
f
типаText
, которая будет использоваться для записи результатов в файл. - Используется функция
Randomize
, чтобы инициализировать генератор случайных чисел. - Запускается цикл
for
, который выполняется 12 раз. Внутри этого цикла каждая строка таблицы заполняется случайными числами с помощью циклаfor
. - После завершения внутреннего цикла записывается символ новой строки (
WriteLn
). - Создается переменная
sum
, которая инициализируется значением 0. - Запускается внешний цикл
while
, который выполняется до тех пор, пока значение переменнойi
меньше или равно 12. - Внутри внешнего цикла каждая строка таблицы суммируется с помощью внутреннего цикла
for
. - После завершения внутреннего цикла значение переменной
i
увеличивается на 2. - После завершения внешнего цикла записывается значение переменной
sum
в файл с помощью функцииWriteLn
. - Файл перезаписывается с помощью функции
Assign
, а затем переписывается с помощью функцииRewrite
. - Закрывается файл с помощью функции
Close
. - Вызывается функция
ReadLn
, чтобы завершить выполнение программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д