Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задача на построение матрицы

Автор: Feagor 21.01.2008 13:13

построить матрицу, как на картинке

Просьба помочь, хотя бы с чего начать её заполнять, я считаю что можно диагоналями заполнять...


Эскизы прикрепленных изображений
Прикрепленное изображение

Автор: Yevgeny 21.01.2008 13:59


K:=1;
For i:=1 to N do
begin
for j:=i to N do
begin
x[i,j]:=K+j-i;
x[j,i]:=K+j-i;
end;
end;


вроде так smile.gif

Автор: Feagor 21.01.2008 14:47

спасип Yevgeny, тока знаки поменял

uses crt;
var k,i,j,n:integer;
x:array[1..10,1..10] of integer;
begin
readln(n);
k:=1;
for i:=1 to n do
for j:=1 to n do
begin
x[i,j]:=k-j+i;
x[j,i]:=k-j+i;
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do write(x[i,j],' ');
end;
readkey;
end.

Автор: volvo 21.01.2008 14:51

Feagor
Ну, если тебя устраивает проход по половине элементов матрицы неоднократно, то можно конечно и так...