Матрица, Форевер! Опции

[TeRmInWeB]

Народ помогите)
Водиться матрица А(n,n) Составить программу подсчета этой матрицы,образующих квадрат по уменьшаемуся на еденицу периметру. Исходную матрицу и сумму вынести на экран дисплеяю. любые варианты сразу выкладывайте хоть сырые хоть какие!

[compiler]

>>подсчета этой матрицы
всмысле сумма элементов?

[TeRmInWeB]

вроде да )( мне любой вариант! подойдет

[klem4]

любые варианты сразу выкладывайте хоть сырые хоть какие!

приказывать будешь в армии. Решение этой задачи я выкладывал в этом месяце. Ищи.

[TeRmInWeB]

ппц( а ещё раз мне не кинешь? завтра сдавать надо а если пойском то до конца года ненайду (

[TeRmInWeB]

хоть ссылку кинь где искать эту работу?

[TeRmInWeB]

Поиск все матрицы какие токо есть выдаёт а мне совсем не те нужны(

Добавлено через 12 мин.
Любой код или соображения хоть какие мне киньте дальше я сам подумаю..... загатовки любые хоть чтонебуть

[klem4]

поиск->"сумматор+периметр"

[TeRmInWeB]

сейчас попробую там поискать спс хоть на этом)

Добавлено через 3 мин.
Спасибо огромное чел кокраз та прога которая и нужна мне))))))))))))))))))

[TeRmInWeB]

program mtx;
const
n = 6;
type
TMatrix = array [1..n, 1..n] of Integer;

procedure Create(var mx: TMatrix);
var
i, j: Integer;
begin
randomize;

for i := 1 to n do
for j := 1 to n do
mx[i, j] := random(10);
end;
procedure Print(const mx: TMatrix);
var
 i, j: Integer;
begin
for i := 1 to n do begin
writeln;
for j := 1 to n do write(mx[i, j]:2);
end;
writeln;writeln;
end;
function SquareSum(const mx: TMatrix; const deep: Integer): Integer;
var
s, i: Integer;
begin
s := 0;
for i := deep to n - deep + 1 do
s := s + mx[deep, i] + mx[n - deep + 1, i];
for i := deep + 1 to n - deep do
s := s + mx[i, deep] + mx[i, n - deep + 1];
SquareSum := s;
end;
var
mx: TMatrix;
i: Integer;
begin
Create(mx);
Print(mx);
for i := 1 to n div 2 do
writeln('deep = ', i, ' square_sum = ', SquareSum(mx, i));
end.

Народ я переписал её в паскаль опять комплит работает а ран прогу не запускает посмотрите мож где ошибся а?

[Client]

Не делаешь как тебе советовали в предыдущей твой теме
ALT+F5 нажми, может увидишь...

Сообщение отредактировано: Client - 25.12.2007 1:16

[TeRmInWeB]

что именно? я вроде все перепроверил и end. и остальное ошибки при написании исправил.

[Client]

RadKey или Readln в конце поставил?

[TeRmInWeB]

Да спс точно я опять забыл. Всё сейчас поставил и работает.)))

Сообщение отредактировано: TeRmInWeB - 25.12.2007 1:31