Привет, ты написал обход матрицы на языке паскаль как спираль что значат RowS RowE ColS ColE вот эти слова ? Uses Crt, DOS;
const
m = 5;
n = 5;
var
A : array [1..m,1..n] of Integer;
i, j, k : Integer;
RowS, RowE, ColS, ColE : Integer;

begin
ClrScr;

RowS := 1;
RowE := m;
ColS := 1;
ColE := n;

k := 0;
while (RowS <= RowE) or (ColS <= ColE) do begin
i := RowS;
j := ColS - 1;
while j < ColE do begin Inc(k); Inc(j); A[i,j] := k; end;
RowS := RowS + 1;

while i < RowE do begin Inc(k); Inc(i); A[i,j] := k; end;
ColE := ColE - 1;

while j > ColS do begin Inc(k); Dec(j); A[i,j] := k; end;
RowE := RowE - 1;

while i > RowS do begin Inc(k); Dec(i); A[i,j] := k; end;
ColS := ColS + 1;
end;

for i:=1 to m do begin
for j:=1 to n do Write(A[i,j]:3);
WriteLn;
end;

ReadLn;
end.
можете обьяснить программу ?

Предыдущий
вопрос Следующий
вопрос

1. Главная
2. Вопросы и ответы
3. Вопросы и ответы по информатике
4. Привет, ты написал о...