Pascal. Функциии и процедуры

[cudalover]

Есть задание, я написал к нему программу, но без использования функций, а нужно с их использованием. Я просто не пойму к чему здесь можно привязать эту функцию, здесь вроде бы совсем мало действий, из-за функции программа наоборот увеличится в размерах. Да и в функциях я не силен.

В общем задание:
Задан массив M[i,j] i,j=1,10, найти сумму элементов главной диагонали. (с использованем функций или процедур)

Вот его реализация без функции:

program kur6;
uses crt;
var p:array[1..10,1..10] of real; s1:real; i,j:integer;
begin
     clrscr;
     s1:=0;
     writeln('vvedite elementy matricy');
     for i:=1 to 10 do
     for j:=1 to 10 do
         readln(p[i,j]);
         for i:=1 to 10 do
         for j:=1 to 10 do
         begin
         if (i=j) then
            s1:=s1+p[i,j];
         end;
         writeln('summa elementov glavnoi diagonali',s1:2:2);
         readln;
end.

Помогите, пожалуйста, иначе я не могу разобраться в функциях, не понимаю, как правильно описывать переменные. Если поможете, то я сам уже сделаю еще одно подобное задание, всего их у меня в курсовой 2 подобных(с функциями)

[Sazary]

Массив заполняю случайными.

uses crt;
type arr = array[1..10,1..10] of real;
var
p : arr;
s : real;

procedure init(var m : arr; n : integer);
var i,j : integer;
begin
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  m[i,j] := random(20);
  write(m[i,j]:5:1);
  end;
 writeln;
 end;
writeln;
end;

function sum(m : arr; n : integer) : real;
var i : integer;
begin
sum := 0;
for i:=1 to n do
 sum := sum + m[i,i];
end;

begin
clrscr;
randomize;
init(p,10);
s := sum(p,10);
writeln('Summ = ',s:5:2);

readln;
end.

[HoLToFF]

С помошью функций и процедур можно так наизвращаться
вот например организуем чтение процедурой и подсчёт эл-в глвной диагонли функцией:

const n = 10;
type
  matr = array[1..n,1..n] of real;

procedure ReadMatr(var m:matr);
var i, j: integer;
begin
writeln('Vvedite matricu razmerom ',n,'*',n);
for i:= 1 to n do
  for j:= 1 to n do
    begin
    write('Element m[',i,',',j,']=');
    readln(m[i,j])
    end;
end;

function Sum_Gl(p: matr):real;
var i:integer; TempSum:real;
begin
TempSum:=0;
for i:= 1 to n do
   TempSum:=TempSum+p[i,i];

Sum_Gl:=TempSum;
end;

var p: matr;
begin
ReadMatr(p);
writeln('summa elementov glavnoi diagonali',Sum_Gl(p):5:2);
readln;
end.

[HoLToFF]

Сообщение от Sazary

Массив заполняю случайными.

function sum(m : arr; n : integer) : real;
var i : integer;
begin
sum := 0;
for i:=1 to n do
 sum := sum + m[i,i];
end;

рекурсия будет лишней, я думаю

[Sazary]

рекурсия будет лишней, я думаю

Мм.. А где вы тут рекурсию видите? )
sum - результат. Обычный цикл

[HoLToFF]

У вас получается что вызывается функция sum опять, по крайней мере мой делфи 7 говорит что не хватает параметров для вызова, не знаю на счёт паскаля, наверно в плане паскаля я ошибаюсь

[Sazary]

HoLToFF
В Делфи вместо sum нужно писать Result )

функция аналогична этой

function sum(m : arr; n : integer) : real;
var i : integer;
rez : real;
begin
rez := 0;
for i:=1 to n do
 rez := rez + m[i,i];
sum := rez;
end;

[HoLToFF]

Знаете, и паскаль

 sum := sum {от тут от}+ m[i,i];

потребовал скобку и параметр
или я совсем ничего не понимаю

[Troi666]

HoLToFF имени функции мы присваиваем возвращаемое значение...тут это и происходит...сначала присваиваем 0, затем предыдущее значение + значение текущего элемента главной диагонали

[HoLToFF]

Я понимаю, что мы можем присваивать именам функций возвращаемое значение, я в своём варианте так и написал, но я не уверен, что имя функции может участвовать в выражениях, попробуйте скомпилировать Ваш код.