|
Вопрос # 5 724/ вопрос решён / |
|
Доброго времени суток, уважаемые эксперты!
Данна матрица, к примеру,
1 2 3 9 7 5
6 8 5 7 8 9
1 5 6 7 8 4
5 6 8 7 1 2
5 6 8 4 1 2
9 6 5 7 4 3
нужно вычислить сумму только вот таких элементов
* * * * * *
* * 5 7 * *
* 5 6 7 8 *
* 6 8 7 1 *
* * 8 4 * *
* * * * * *
 |
Вопрос задал: micdas (статус: Посетитель)
Вопрос отправлен: 7 ноября 2011, 14:25
Состояние вопроса: решён, ответов: 1.
|
Ответ #1. Отвечает эксперт: puporev
Здравствуйте, micdas!
Вариант решения в приложении.
Приложение: Переключить в обычный режим- uses crt;
- const nmax ;
- var a:array[1..nmax,1..nmax] of byte;
- n,i,j,k,p,s:integer;
- begin
- textbackground(0);
- textcolor(15);
- clrscr;
- randomize;
- repeat
-
- readln(n);
- until n in [1..nmax];
- for i:=1 to n do
- for j:=1 to n do
- a[i,j]:=random(10);
-
- if odd(n) then k:=n div 2+1
- else k:=n div 2;
-
-
-
- for i:=1 to n do
- begin
- for j:=1 to n do
- begin
-
-
- begin
- textcolor(10);
- s:=s+a[i,j];
- end
- else textcolor(15);
- write(a[i,j]:4);
- end;
- writeln;
- end;
- textcolor(15);
-
- readln
- end.
-
 |
Ответ отправил: puporev (статус: 2-ой класс)
Время отправки: 7 ноября 2011, 16:40
Оценка за ответ: 5
Комментарий к оценке: Спасибо, всё именно так
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 7 ноября 2011, 15:07; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 7 ноября 2011, 14:59 [#1]:
Ну и в чём проблема-то?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
ierihon1 (статус: 1-ый класс), 7 ноября 2011, 15:07 [#2]:
Лично я вижу два решения - первое
если нужны элементы с одного и того же места, то есть меняются только сами числа, тогда нужно тупо их сложить и проблем нет.
Но если "Маска" меняется то можно предложить пользователю ввести матрицу из едениц и нолей одинаковой размерностью с исходной матрицей. То есть как в приведённом примере вместо звёздочек будут ноли а вместо чисел еденицы А потом прогнать в цикле с условием и складывать если "1" и не складывать если "0".
|
7 ноября 2011, 18:22: Статус вопроса изменён на решённый (изменил автор вопроса — micdas)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
