Упростить программу через Процедуры и функции - Pascal ABC

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

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

Решение задачи: «Упростить программу через Процедуры и функции»

textual
Листинг программы
uses
 crt;
const
 n=5;
Type
 mas=array[1..n,1..n] of integer;
var
 i,j:integer;
 o,k:mas;
 
function summa(Var p:mas;l:char):real;
Var
 s2:real;
begin
writeln('Matrica ',l,': ');
s2:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
    write(p[i,j]:3);
   s2:=s2+p[i,i];
  writeln;
 end;
 summa:=s2;
 write(s2:1:0,' ');
 writeln;
end;
 
begin
 clrscr;
 randomize;
 for i:=1 to n do
  for j:=1 to n do
   begin
    o[i,j]:=-3+random(10);
    k[i,j]:=random(10);
   end;
 writeln((summa(k,'K')/summa(o,'O')):3:4);
end.

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

  1. Установка начального значения переменной n равным 5.
  2. Объявление массива mas размером 5x5 для хранения целочисленных значений.
  3. Объявление переменных i, j, o и k для выполнения операций циклического доступа к элементам массива.
  4. Создание функции summa для вычисления суммы элементов матрицы p и сохранения ее в переменной s2. Функция принимает матрицу p и символ l для обозначения строки матрицы.
  5. В цикле выводится значение каждого элемента матрицы p с помощью функции write.
  6. В каждой итерации внутреннего цикла сумма элементов матрицы p добавляется к переменной s2.
  7. После завершения внутреннего цикла выводится значение переменной s2.
  8. Значение переменной s2 преобразуется в тип real и выводится на экран с помощью функции write.
  9. В основной части программы создаются две матрицы o и k размером 5x5, заполняются случайными числами с помощью функции randomize.
  10. Вычисляется сумма элементов матрицы o и матрицы k с помощью функции summa.
  11. Результат вычисления функции summa преобразуется в тип real и выводится на экран с помощью функции write.
  12. Результат вычисления функции summa делится на сумму элементов матрицы o и выводится на экран с помощью функции write.

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

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