Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите плиииз!! (помогите правильно доделать задачу в паскале:))
помогите плиииз!!
Для заданной целочисленной матрицы Н найти минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали. Исходную матрицу вывести в общепринятом виде. Полученные суммы и результат вывести в произвольной форме.

не находит минимум среди сумм модулей элементов диагоналей,помогите сделать:)

program matriza;
type
matrix= array [1..10, 1..10] of integer;
mat=array [1..2*10-1] of integer;
var
f,f1 : matrix;
b:mat;
i, j,n,m: byte;
k,l:integer;
begin
k:=0;
l:=0;
Writeln ('Ââåäèòå ðàçìåðíîñòü ìàòðèöû:');
Readln(N,m);
Writeln ('Ââåäèòå ýëåìåíòû ìàòðèöû:');
for i :=1 to n do
for j :=1 to m do
readln ( f [ i , j ]);
for i := 1 to n do
f1:=f;
for i:=1 to n do
for j:=1 to m do
begin
for i:=1 to n do
for j:=1 to m do
b[i+j-1]:=b[i+j-1]+abs(f[i,j]);
k:=b[1];
for i:=1 to n do
for j:=1 to m do
writeln('Ìîäóëè:','',abs(f[i,j]));
for i:= 2 to 2*n-1 do
if b[i]<k then k:=b[i];
writeln('Ìèíèìóì ñðåäè ñóìì:','',k);
end;
writeln('Èñõîäíàÿ ìàòðèöà:');
for i := 1 to n do
begin
for j := 1 to m do write(f1[i, j]:5);
writeln;
end;
end.
1 | Автор: bend | 2012-01-07, 11:52   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите плиииз!! (помогите правильно доделать задачу в паскале:))
Страница 1 из 11
Поиск: