IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Сумма диагоналей матрицы
!!!ACHTUNG!!
сообщение 25.12.2005 10:44
Сообщение #1


Гость






Помогите решить задачу на нахождение сумм главной и побочной
диагоналей массива порядка М.
вот накидал но решает неверно

Program Matrix13;    {Программа нахождения сумм главной и побочной
диагоналей матрицы порядка М}
Uses
 Crt,dos;
const                {Ограничим размер матрицы не более 10x10}
 Nmax=10;
 Mmax=10;
type
 Mas=Array[1..Nmax,1..Mmax] of integer;
Var
 A:Mas;              {Тип массива}
 N,M:integer;
 I,J:integer;
 Sum1,Sum2:Integer;  {Суммы по
 бочной и главной диагоналей массива}
begin
 ClrScr;
 WriteLn('Программа нахождения сумм главной и побочной диагоналей ');
 WriteLn('матрицы порядка М');
 WriteLn;
 Write('Введите порядок матрицы M = ');
 Read(M);
  {Построение массива}
 for J:=1 to M do
 for I:=1 to M do
 begin
  Write('A[',J,',',I, ']= ');
  read(A[J,I]);
 end;
    {Нахождение суммы главной диагонали матрицы}
  begin
  Sum1:=0;
  For J:=1 to M do
  For I:=1 to M do
  J:=I;
   if A[J,I]>0 then
   Sum1:=Sum1+A[J,I];
  WriteLn('Сумма главной диагонали = ',Sum1);  {Вывод значения суммы главной диагонали массива}
  end;
    {Нахождение суммы побочной диагонали матрцы}
  begin
   Sum2:=0;
   For I:=1 to M do
   For J:=M downto 1 do
    if A[J,I]>0 then
   Sum2:=Sum2+A[J,I];
  WriteLn('Сумма побочной диагонали = ',Sum2);    {Вывод значения суммы побочной диагонали массива}
  end;
 WriteLn('');
 WriteLn('Для завершения нажмите Enter');
 ReadLn;
end.


Очень надо!!!

Сообщение отредактировано: volvo - 25.12.2005 10:59
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 26.07.2025 14:01
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"