Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.02.2014, 19:10   #1
Valik93
Пользователь
 
Регистрация: 29.11.2010
Сообщений: 21
По умолчанию Матрицы

Задана вещественная квадратная матрица A = { a(ij) }, i, j = 1/n . Соста-вить программу вычисления суммы элементов матрицы A, располо-женных в строках с отрицательным элементом на главной диагонали.

Последний раз редактировалось Valik93; 19.02.2014 в 19:22.
Valik93 вне форума Ответить с цитированием
Старый 19.02.2014, 19:18   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Что вызывает затруднения?

Алгоритм:
Ввели матрицу
Идем по номерам строк
Проверяем на отрицательность элемент на главной диагонали
Если подходит, то проходим по этой строке и складываем
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 20.02.2014, 21:21   #3
Valik93
Пользователь
 
Регистрация: 29.11.2010
Сообщений: 21
По умолчанию

Код:
uses crt;
var
a:array [1..25,1..25] of real;
sum:real;
i,j,n:integer;
BEGIN
write('Размерность-->'); readln(n);
for i:=1 to n do
 begin
     for j:=1 to n do
      begin
          a[i,j]:=random(19)-9;
          write(a[i,j]:6:1);
      end;
     writeln;
 end;
sum:=0;
for i:=1 to n do
   if a[i,i]<0 then
     for j:=1 to n do
          sum:=sum+a[i,j];
writeln('Sum=',sum);
END.

Последний раз редактировалось Stilet; 20.02.2014 в 21:57.
Valik93 вне форума Ответить с цитированием
Старый 20.02.2014, 21:59   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
uses crt;
var
a:array [1..25,1..26] of real;
sum:real;
i,j,n:integer;
BEGIN
write('Размерность-->'); readln(n);
for i:=1 to n do
 begin a[i,26]:=0;
     for j:=1 to n do
      begin
          a[i,j]:=random(19)-9; a[i,26]:=a[i,26]+a[i,j];
          write(a[i,j]:6:1);
      end;
     writeln;
 end;
sum:=0;
for i:=1 to n do
   if a[i,i]<0 then
 writeln('Sum=',a[i,26]);

readln;
END.
Годится?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 20.02.2014, 22:35   #5
Valik93
Пользователь
 
Регистрация: 29.11.2010
Сообщений: 21
По умолчанию

Весьма, спасибо.
Valik93 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C++ и Pascal. Матрицы. Дана матрица размером n х m. Инвертировать каждую строку матрицы. Summerlight Помощь студентам 0 24.12.2013 00:19
Первый элемент - размерность матрицы, остальные образуют строки этой матрицы Anastasiya_Pot Помощь студентам 2 10.04.2012 09:46
С++.три матрицы, упорядочить строки той матрицы у которой больше нулевых строк Ирина1992 Помощь студентам 12 20.11.2011 13:01
Ф-ия, определяющая сумму строк матрицы, если на главной диагонали матрицы имеется отрицательный эл-т. Volk_xD Помощь студентам 6 05.01.2011 13:39
На главную диагональ матрицы поместить наибольшие элементы этой матрицы mivel Помощь студентам 2 23.12.2009 21:19