Нужно поменять процедуру на функцию в программе - Pascal

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

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

program kp;
 type massiv=array [1..100] of integer;
      matr=array [1..100] of massiv;
 var a: matr;
     n,m,i,j: byte;
     sum,minsum,min: integer;
 procedure summa (k: byte; z: massiv; var s: integer);
  var e: byte ;
   begin
   s:=0;
    for e:=1 to k do
    s:= s+z[e];
   end;
begin
randomize;
write('Введите количество строк ');
readln(n);
write('Введите количество столбцов ');
readln(m);
 for i:=1 to m do
   begin
    for j:=1 to n do
      begin
      a[i,j]:=random(10)-5;
      write(a[i,j]:4);
      end;
     writeln;
   end;
   writeln('суммы столбцов:');
    for i:=1 to m do
     begin
      summa (n,a[i],sum);
      write(sum:4);
      if i=1 then minsum:=sum
       else
       if sum<minsum then
        begin
        minsum:=sum;
        min:=i;
        end;
     end;
    writeln;
    writeln('минимальная сумма = ',minsum,' в столбце ',min);
readln;
end.

Решение задачи: «Нужно поменять процедуру на функцию в программе»

textual
Листинг программы
 function summa (k: byte; z: massiv):integer;   // функция 
  var e: byte ;
  s:integer;
   begin
   s:=0;
    for e:=1 to k do
    begin
    s:= s+z[e];
    end;
    summa:=s;
   end;

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

  1. Объявляется функция summa с параметрами k (тип byte) и z (тип massiv, предположительно массив чисел).
  2. Объявляется переменная e типа byte.
  3. Объявляется переменная s типа integer.
  4. Происходит инициализация переменной s значением 0.
  5. Начинается цикл for, итерирующий переменную e от 1 до k.
  6. В теле цикла к значению s прибавляется элемент массива z[e].
  7. Значению функции summa присваивается значение переменной s.
  8. Функция возвращает значение переменной s.

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


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

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

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