Помощь - Поиск - Пользователи - Календарь
Полная версия: Как задать матрицу?
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Tribunal
по какому закону предложите задать вывод матрицы
1 2 3 4
-4 -1 -2 -3
3 4 1 2
-2 -3 -4 -1
любого порядка???

очень прошу помочь unsure.gif
volvo
Например, по такому:
const
n = 4;

var
a: array[1 .. n, 1 .. n] of integer;
i, j, k: integer;

begin
for i := 1 to n do
for j := 1 to n do
if i = 1 then a[i, j] := j
else begin
if j = 1 then k := n else k := j - 1;
a[i, j] := - a[i-1, k];
end;

for i := 1 to n do begin
for j := 1 to n do
write(a[i, j]:4);
writeln;
end;
end.
Tribunal
благодарю...
что-то действительно про номера не подумала...
нехорошо,однако=(

спасибо большое!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.