Есть двумерный массив целых чисел. (Длина массива вводится)
Нужно посчитать такую интересную сумму
n m
E E (-1)^(i+j) *a[i][j]
i=1 j=1
Все довольно несложно, если бы не некоторые условия
Вариант1
| Код |
Program laba3;
uses crt;
Var
a: array [1..100,1..100] of longint;
m, n, i, j, d : longint;
S: real;
Begin
clrscr;
Write ('Введите кол-во строк матрицы, m= ');
Readln (n);
Write ('Введите кол-во столбцов матрицы, n= ');
Readln (m);
{================= Ввод и вывод матрицы =====================}
For i:=1 to m do
For j:=1 to n do
Begin
Write ( 'a [',i,' ; ',j,']= ');
Readln (a[i,j]);
end;
For i:=1 to m do
Begin
Writeln;
For j:=1 to n do
Write (a[i,j] :4)
end;
{============================================================}
Writeln;
S:=0;
For i:=1 to m do
For j:=1 to n do
Begin
d:=i+j;
If d mod 2 = 0 then S:=S+a[i,j]
else S:=S-a[i,j];
end;
Writeln ('Ответ = ', S);
end.
|
вариант2
| Код |
Program laba3;
uses crt;
Var
a: array [1..100,1..100] of longint;
S, m, n, i, j, d, k1, k2: longint;
Begin
clrscr;
Write ('Введите кол-во строк матрицы, m= ');
Readln (n);
Write ('Введите кол-во столбцов матрицы, n= ');
Readln (m);
k1:=-1;
For i:=1 to m do
Begin
k1:=-k1; k2:=k1;
For j:=1 to n do
Begin
Write ( 'a [',i,' ; ',j,']= ');
Readln (a[i,j]);
S:=S+k2*a[i,j];
k2:=-k2;
end;
end;
Writeln;
Writeln ('Ответ = ', S);
end.
|
Оба этих варианта не подходят, а именно:
1) условие в цикле использовать нельзя
2) операцию умножения, деления, возведения в степень тоже использовать нельзя
Пока просто туплю и не могу найти алгоритма... Понимаю, что знаки чередуются, но как использовать правильно пока не ясно. |
