Вопрос по информатике:
Прошу помогите(
Дана действительная квадратная матрица порядка А(n*n).Определить что больше:сумма элементов, находящихся ПОД главной диагональю, или сумма элементов, находящихся НАД главной диагональю.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.07.2015 02:44
- Информатика
- remove_red_eye 2521
- thumb_up 24
Ответы и объяснения 2
const n = 100;
var
k,i,j:byte;
s1,s2:real;
a:array[1..n,1..n] of real;
begin
writeln('vvedite poryadok matrice');
readln(k);
s1:=0;s2:=0;for i:=1 to k do begin
for j:=1 to k do begin
writeln('vvedite a[',i,',',j,']');
readln(a[i,j]);
end;
end;
for i:=1 to k do begin
for j:=1 to k do begin
if i
end;
end;
if s1 > s2 then writeln('nad glavnoy diagonali summa bolshe');
if s1 < s2 then writeln('pod glavnoy diagonali summa bolshe');
if s1 = s2 then writeln('ravni');
end.
- 07.07.2015 19:08
- thumb_up 39
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (su,sl):=(0,0);
for var i:=0 to n-1 do
for var j:=0 to n-1 do
if i
var sgn:=Sign(su-sl);
case sgn of
-1:Writeln('Сумма элементов над диагональю меньше');
0:Writeln('Суммы элементов над и под диагональю равны');
1:Writeln('Сумма элементов над диагональю больше')
end
end.
- 08.07.2015 18:04
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.