VPF::Сумма элементов матрицы - Форум программистов

Aliance

Дата 31.3.2006, 20:07 (ссылка)

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

Загрузка ...

I ♥ <script>

Профиль
Группа: Модератор
Сообщений: 6418
Регистрация: 2.8.2004
Где: spb

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

Вот мой корявенький код, определяющий сумму всех элементов, кроме главной диагонали:

Код


Program Matrix;
Uses Crt;
Var n, m, i, j, summa: integer;
a: array [1..50, 1..50] of integer;
Begin
ClrScr;

Write('n='); ReadLn(n);
Write('m='); ReadLn(m);

For i := 1 to n do
   For j := 1 to m do
      Begin
         GotoXY(4*j, 2*i+1);
         Read(a[i, j]);
      End;

For i := 1 to n do
   For j := 1 to m do
      Begin
         if i <> j then Begin
            summa := summa + a[i, j];
         End;
      End;
   Write('cyMMa paBHa ', summa);
   ReadLn;
End.

Сделал специально 2 пары переменных одинаковых, не ругайтесь (i/j и n/m)

--------------------

• Все о событиях
• Объекты и массивы
• ОКНА И ФРЕЙМЫ

JAVA ≠ JavaScript

darkart

Дата 1.4.2006, 08:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Для квадратной матрицы, лучше так:

Код


summa:=0;{переменные нужно инициализировать}
for i := 1 to n-1 do
   for j := i+1 to n do
     summa:=summa+a[i,j]+a[j,i];
   Write('cyMMa paBHa ', summa);
   ReadLn;

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