Помогите составить прогу в Паскале!!!

[Damer]

Люди, выручайте!! Надо сделать так, шоб заполниласи матрица 10х10 по методу спирали из нижнего левого угла вверх!!! Ну очень нада)

[Daess]

10 11 12 13 14 15....
9
8
7
6
5
4
3
2
1

Так?

[Damer]

да!!!

[Daess]

Имеет значение рациональность кода?

[Damer]

желательно, шоб использовались массивы, условные операторы... Использование записей не желательно, но не возбраняется, а так, в принципе, лишь бы работало...

[Daess]

Код из Delphi 7:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const N = 10;

var i,j,r,c,num,l,t,b: integer;
a: array [1..N,1..N] of integer;
begin
num:=1; c:=1; j:=1;
l:=2; r:=10; t:=1; b:=10;
while (num<=100) do begin
for i:=b downto t do begin
a[i,j]:=num;
inc(num);
end;
inc(i);
for j:=l to r do begin
a[i,j]:=num;
inc(num);
end;
dec(j);
for i:=t+1 to b do begin
a[i,j]:=num;
inc(num);
end;
dec(i);
for j:=r-1 downto l do begin
a[i,j]:=num;
inc(num);
end;
inc(j);
inc(l);
inc(t);
dec(r);
dec(b);
end;
for i:=1 to N do begin
for j:=1 to N do
write(a[i,j],' ');
writeln;
end;
readln;
end.


-------------------------------
Может и офигенски нерационально, но на засыпающую голову что смог:)

[Damer]

Спасибо огромное!!! Но есть небольшая проблема: запускаю прогу на кпк, жму сначала альт+ф9, паскаль выдает "не найден файл sysutils". Если вместо него вписать crt, прога работает неправильно... Проблема в дистрибутиве паскаля или в чем-то другом?

[Daess]

Это дельфевый код, возможно вообще uses не нужен... Попробуйте вставить так:

program Project1;

const N = 10;

var i,j,r,c,num,l,t,b: integer;
a: array [1..N,1..N] of integer;
begin
num:=1; c:=1; j:=1;
l:=2; r:=10; t:=1; b:=10;
while (num<=100) do begin
for i:=b downto t do begin
a[i,j]:=num;
inc(num);
end;
inc(i);
for j:=l to r do begin
a[i,j]:=num;
inc(num);
end;
dec(j);
for i:=t+1 to b do begin
a[i,j]:=num;
inc(num);
end;
dec(i);
for j:=r-1 downto l do begin
a[i,j]:=num;
inc(num);
end;
inc(j);
inc(l);
inc(t);
dec(r);
dec(b);
end;
for i:=1 to N do begin
for j:=1 to N do
write(a[i,j],' ');
writeln;
end;
readln;
end.

[Damer]

Тогда эта штука работает неправильно(((

[Daess]

Не то выводит или не работает вообще?

[Damer]

Выводит первый столбец правильно, потом вторую строку до 17, первая - нули, потом еще какие-то строки по возрастанию.... Присутствуют также еще нулевые строки

[Daess]

Разобрался, это из-за оптимизации компилятора Delphi. Такой вариант должен работать:

program Project1;

const N = 10;

var i,j,r,c,num,l,t,b: integer;
a: array [1..N,1..N] of integer;
begin
num:=1; c:=1; j:=1;
l:=2; r:=10; t:=1; b:=10;
while (num<=100) do begin
for i:=b downto t do begin
a[i,j]:=num;
inc(num);
end;
for j:=l to r do begin
a[i,j]:=num;
inc(num);
end;
for i:=t+1 to b do begin
a[i,j]:=num;
inc(num);
end;
for j:=r-1 downto l do begin
a[i,j]:=num;
inc(num);
end;
inc(l);
inc(t);
dec(r);
dec(b);
end;
for i:=1 to N do begin
for j:=1 to N do
write(a[i,j],' ');
writeln;
end;
readln;
end.

[Damer]

Все, работает!! Спасибо еще раз огромное)))

[Daess]

maxzdv, да я такой:)

[Darkcat]

Если помудрить с типами данных можно сократить код в 2 раза. А если сильно помудрить с векторами - то в 3-4 раза...