![Старый](images/statusicon/post_old.gif)
20.05.2009, 22:09
|
Прохожий
|
|
Регистрация: 19.05.2009
Сообщения: 6
Репутация: 10
|
|
код проги по матрицам - готовый вариант-кому вдруг нужно!
дана квадратная матрица n*n.построить массив,содержащий макс элементы матрицы по столбцам ниже дополнит диагонали.диагональ не включается.
вдруг кому то понадобится))
Код:
program LR_5;
{$APPTYPE CONSOLE}
uses
SysUtils;
const n=3;
type Tmatr = array[1..n,1..n] of integer;
type Tmas = array[1..n] of integer;
procedure vvod_matr(var m1: Tmatr);
var i,j: integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('m1[',i,',',j,']= ');
readln(m1[i,j]);
end;
end;
procedure max_el(const m1: Tmatr; var m2:Tmas);
var i,j,max: integer;
begin
for j:=2 to n do
begin
max:=m1[n,j];
for i:=n-j+2 to n-1 do
begin
if m1[i,j]>max then
max:=m1[i,j];
end;
m2[j-1]:=max;
end;
end;
procedure print_matr(const m1:Tmatr);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if (j=1) then writeln;
write(m1[i,j]:4);
end;
end;
writeln;
end;
procedure print_mas(const m2:Tmas);
var i: integer;
begin
for i:=1 to n-1 do
writeln('m2[',i,'] = ',m2[i]);
end;
var
m1:Tmatr;
m2:Tmas;
begin
vvod_matr(m1);
max_el(m1,m2);
print_matr(m1);
Writeln;
print_mas(m2);
readln;
end.
Admin: Пользуемся тегами!!!
Последний раз редактировалось Admin, 21.05.2009 в 10:10.
|