Люди помогите! =( Написал программу на Паскале и не могу схему алгоритма начертить, запутываюсь постоянно..Нарисуйте кто может и залейте куда нибудь, оч прошу =). Двумерный массив 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.
TarasBer
28.12.2010 18:11
Я не могу смотреть на неформатированный код. Используй тег CODE!
Ugrumiy
28.12.2010 18:33
сделал))
TarasBer
28.12.2010 19:15
Не сделал. 1. Используй тэг с пометкой code=pas 2. Форматирование где?! Оттого, что ты вокруг куска неформатированного (испорченного автоудалением пробелов) кода нарисуешь рамочку, он читабельнее не станет. Скопируй его из редактора код ещё раз. (блин, пора уже в правила по поводу п 2 писать, что обрамление уже испорченного куска в теги бесполезно)
Ugrumiy
28.12.2010 20:23
от теперь точно сделал)
TarasBer
28.12.2010 20:30
У тебя что, такой текст и был, с единственным пробелом перед словом uses? Не верю. Что такое форматирование - знаешь?
Ugrumiy
28.12.2010 21:13
вот так было изначально
volvo
28.12.2010 22:41
Цитата
вот так было изначально
Ужас какой... Зайди вот сюда: Графическая оболочка для PtoP , скачай программу и пусть она тебе отформатирует код. И больше не пиши в таком стиле, как сейчас, как ты вообще в программе разбираться думаешь?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.