VPF::[pascal] Подпрограмма что формирует массив

ArniLand

Дата 12.1.2010, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 17.8.2008

Репутация: нет
Всего: нет

Двухмерный массив нужно сформировать в процедуре, передать его в функцию и там подсчитать элементы главной диагонали. Затем вернуть подсчитаное значение в основную программу. Помогите решить пожалуйста задачу

ТоляМБА

Дата 12.1.2010, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

Код

const
   n=5;
type
   ta=array[1..n,1..n] of integer;
var
   a:ta;
   i,j:integer;

Function FDiag(b:ta):integer;
var
   id,s:integer;
begin
   s:=0;
   for id:=1 to n do
      s:=s+b[id,id];
   FDiag:=s;
end;

Procedure PArrCre;
var
   ip,jp:integer;
begin
Randomize;
   for ip:=1 to n do
      for jp:=1 to n do
          a[ip,jp]:=Random(21);
end;

begin
     PArrCre;
     for i:=1 to n do
     begin
        for j:=1 to n do
           write(a[i,j],' ');
        writeln;
     end;
     writeln('sum diag:');
     writeln(FDiag(a));
readln;
end.

Размерность массива в константе n. Сейчас стоит 5, можешь менять на другую.

ArniLand

Дата 12.1.2010, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 17.8.2008

Репутация: нет
Всего: нет

как мы определили что делает основная программа?

ТоляМБА

Дата 13.1.2010, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 3
Всего: 252

Цитата(ArniLand @ 12.1.2010, 23:22

)

как мы определили что делает основная программа?

Где мы были во время лекций?
1-7 объявления глобальных констант и переменных, 29-40 код основной программы. Вам каждую строку расписать?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »