ДП
Дарья Пашнина

Помогите составить блок-схему, пожалуйста

Помогите составить блок-схему, пожалуйста!

Program SpiralArray1;
uses crt;
const n = 6;
type
TMx = array[1..n,1..n] of integer;
Procedure Print(mx : TMx);
{Процедура вывода массива}
var
i,j : byte;
begin
writeln; writeln;
for i := 1 to n do begin
writeln;
for j := 1 to n do write(mx[i,j]:2,' ');
end;
end;
Procedure SpiralFill(var mx : TMx);
{Процедура заполнения массива по спирали}
var
i,j,c : byte;
begin
i := 1;
j := 1;
c := 0;
repeat
while (j <= n - c) do
begin
readln(mx[i,j]); inc(j);
end;
{движение в направлении "запад-восток"}
inc(i); dec(j);
while (i <= n - c) do
begin
readln(mx[i,j]); inc(i);
end;
{движение в направлении "север-юг"}
dec(j); dec(i);
while (j >= 1 + c) do
begin
readln(mx[i,j]); dec(j);
end;
{движение в направлении "восток-запад"}
inc( c ); inc(j); dec(i); {параметр с увеличился на 1}
while (i >= 1 + c) do
begin
readln(mx[i,j]); dec(i);
end;
{движение в направлении "юг-север"}
inc(j); inc(i);
until c > n div 2;
end;
var
m : TMx;
begin
clrscr;
SpiralFill(m);
Print(m);
readln;
End.

АК
Антон Кучеров

ответ в адрес послал

Похожие вопросы
Помогите составить блок схему на С++
Помогите, пожалуйста, составить блок-схему к программе.
помогите составить блок-схему
Блок-схема. Помогите составить
Помогите пожалуйста составить программы и блок-схемы
помогите составить блок схему))
Помогите составить блок - схему
Помогите составить блок-схему!!!!
Помогите составить блок-схему...
Помогите составить блок схему!