Блок схема Опции

[Ugrumiy]

Люди помогите! =( Написал программу на Паскале и не могу схему алгоритма начертить, запутываюсь постоянно..Нарисуйте кто может и залейте куда нибудь, оч прошу =). Двумерный массив 20 х 20 заполняется случайными числами и по некоторому правилу строится другой двумерный массив(посмотрите в самом паскале что получается, программа рабочая) Вот программа:

uses crt;
var
a, b, col: array[1..20, 1..20] of integer;
i, j, k: integer;

begin
  for i := 1 to 20 do
    begin
    for j := 1 to 20 do
    a[i, j] := 0;
    b[i, j] := 0;
    end;
  k := 2;
  for i := 10 downto 2 do {zapolnenie pervoy chasty}
        begin
          for j := k to 10 do
            begin
                a[i, j] := random(9) + 1;
                col[i, j] := 7; {serij}
            end;
          inc(k);
        end;
 k := 11;
 for i := 2 to 10 do {zapolnenie vtoroy chasty}
                   begin
                       for j := 11 to k do
                             begin
                                 a[i, j] := random(9) + 1;
                                 col[i, j] := 10; {zelenij}
                             end;
                       inc(k);
                   end;
 k := 11;
 for i := 19 downto 11 do {zapolnenie tret'ey chasty}
                                          begin
                                             for j := 11 to k do
                                                 begin
                                                     a[i, j] := random(9) + 1;
                                                     col[i, j] := 14; {geltij}
                                                 end;
                                             inc(k);
                                          end;
 k := 2;
 for i := 11 to 19 do {zapolnenie chetvertou chasty}
                                                              begin
                                                                  for j := k to 10 do
                                                                        begin
                                                                          a[i, j] := random(9) + 1;
                                                                          col[i, j] := 13;
                                                                        end;
                                                                  inc(k);
                                                              end;
 b := a;
{razvorachivaem}
 for i := 1 to 10 do
 for j := 1 to i do 
                                                                                   begin
                                                                                      b[j, i + 10] := b[i, 11 - j];
                                                                                      col[j, i+10] := col[i, 11-j];
                                                                                      b[21 - j, i + 10] := b[i, j + 10];
                                                                                      col[21 - j, i + 10] := col[i, j + 10];
                                                                                      b[i + 10, j] := b[j + 10, 21 - i];
                                                                                      col[i + 10, j] := col[j + 10, 21 - i];
                                                                                      b[j, 11 - i] := b[21 - i, 11 - j];
                                                                                      col[j, 11 - i] := col[21 - i, 11 - j];
                                                                                   end;

{vivodim}

 textbackground(0);
 clrscr;
 writeln(' ISHODNAYA');
 for i := 1 to 20 do
                                                                                              begin
                                                                                                   for j := 1 to 20 do
                                                                                                     begin
                                                                                                        textcolor(col[i, j]);
                                                                                                        write(' ', a[i, j]:2);
                                                                                                     end;
                                                                                                   writeln;
                                                                                              end;
writeln; 
writeln(' REZULTIRUUSHAYA');
for i := 1 to 20 do
                                                                                                         begin
                                                                                                             for j := 1 to 20 do
                                                                                                                 begin
                                                                                                                    textcolor(col[i, j]);
                                                                                                                    write(' ', b[i, j]:2);
                                                                                                                 end;
                                                                                                             writeln;
                                                                                                         end;
readln;
end.

Сообщение отредактировано: Ugrumiy - 28.12.2010 17:14