Developing.ru

Ребят пожалуйста помогите написать программу на Pasсal, не могу сдать лабу, буду ооочень благодарен, выручите студента)
Задание: Сформируйте матрицу по заданному образцу:
1 4 7
2 5 8
3 6 9

var a: array [1..100, 1..100] of integer;

procedure create_table(n:integer);
var i, j, k:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
a[j, i]:= k;
inc(k);
end;
end;

procedure write_table(n:integer);
var i, j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i, j]);
writeln;
end;
end;

begin
create_table(3);
write_table(3);
end.

// Могут быть погрешности (пишу навскидку, без компилятора), если что стучи в асю

Oleg_Rus писал(а):var a: array [1..100, 1..100] of integer;

procedure create_table(n:integer);
var i, j, k:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
a[j, i]:= k;
inc(k);
end;
end;

procedure write_table(n:integer);
var i, j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i, j]);
writeln;
end;
end;

begin
create_table(3);
write_table(3);
end.

// Могут быть погрешности (пишу навскидку, без компилятора), если что стучи в асю

После компиляции, никакой матрицы к сожалению не выходит, просто нули((

[ATTACH]1641[/ATTACH]

Не знаю как у вас, но у меня ЭТОТ код работает нормально и без всяких ошибок