Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику задачи. В программе должны быть предусмотрены процедуры ввода-вывода элементов массива А и его обработки.
Задана квадратная матрица A размером nxn (n <= 10), состоящая из действительных элементов. Найти произведение всех ее элементов и заменить им все диагональные элементы этой матрицы.
помогите пожалуйста решить я вроде сделал программу но мне кажется она не правильно работает!
Код программы
Код
uses crt; var a : array[1..3,1..3] of real; i,j : integer; r : real; begin clrscr; for i:=1 to 3 do for j:=1 to 3 do begin write('a',i,j,'='); read(a[i,j]); writeln; end; r:=0; for i:=1 to 3 do for j:=1 to 3 do r:=r*a[i,j]; writeln('r=',r:10:2); readln; for i:=1 to 3 do for j:=1 to 3 do if i=j then a[i,j]:=r; for i:=1 to 3 do begin for j:=1 to 3 do write(a[i,j]:5:2,' '); writeln; end; readln; end.
Автор: volvo 30.09.2010 22:18
Цитата
мне кажется она не правильно работает!
Само собой... Изначально переменную для вычисление произведения надо не обнулять, а присваивать 1, иначе у тебя всегда все диагональные элементы будут нулевыми.
P.S. Для того, чтобы пройтись по диагональным элементам - достаточно ОДНОГО цикла: a[i, i] := ... P.P.S. Оформи программу тегами CODE...
Автор: Zedefen 30.09.2010 22:20
и все надо было поменять 0 на 1
Код
writeln; end; r:=1; for i:=1 to 3 do for j:=1 to 3 do
Цитата
P.S. Для того, чтобы пройтись по диагональным элементам - достаточно ОДНОГО цикла: a[i, i] := ...
а поподробнее
Автор: Client 1.10.2010 0:27
for i:=1 to 3 do a[i,i] := r;
Примерно так...
Автор: Zedefen 1.10.2010 1:11
все дошло до меня пасиба!
Код
uses crt; var a : array[1..3,1..3] of real; i,j : integer; r : real; begin clrscr; for i:=1 to 3 do for j:=1 to 3 do begin write('a',i,j,'='); read(a[i,j]); writeln; end; r:=1; for i:=1 to 3 do for j:=1 to 3 do r:=r*a[i,j]; writeln('r=',r:10:2); readln; for i:=1 to 3 do a[i,i]:=r; for i:=1 to 3 do begin for j:=1 to 3 do write(a[i,j]:5:2,' '); writeln; end; readln; end.