VPF::"Улитка". Задача на Паскале - Форум программистов

Мел

Дата 9.3.2006, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.3.2006

Репутация: нет
Всего: нет

Помогите, пожалуйста,. разобраться, что я там намудрила. В условии задачи сказано:
"Матрицу M(m,n) заполнить натуральными числами от 1 до m·n по спирали, начинающейся в левом верхнем углу и закрученной по часовой стрелке"
Получается сделать для квадратной матрицы, а при переводе в прямоугольной числа выводятся не по порядку smile

Код


program number6;
Uses CRT;
Const
n = 10;
Type
matrix = array[0..n,0..n] of integer;
Var
i,j,k,z : integer;
A : matrix;
Begin
Clrscr;
k:=1; z:=0;
While z<n do
begin
For i:=z+1 to n-z do
begin
A[z+1,i]:=k;
k:=k+1;
end;
k:=k-1;
For j:=z+1 to n-z do
begin
A[j,n-z]:=k;
k:=k+1;
end;
k:=k-1;
For i:=n-z downto z+1 do
begin
A[n-z,i]:=k;
k:=k+1;
end;
k:=k-1;
{ z:=z+1;}
For j:=n-z downto z+2 do
begin
A[j,z+1]:=k;
k:=k+1;
end;
z:=z+1;
end;

For i:=1 to n do
begin
For j:=1 to n do
begin
Write(A[i,j],' ');
end;
writeln;
end;
Readln;
End.

Zero

Дата 11.3.2006, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

http://forum.vingrad.ru/index.php?showtopi...st&p=641741

Мел

Дата 14.3.2006, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 8.3.2006

Репутация: нет
Всего: нет

ой, спасибо! smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »