Процедуры. Шахматная задача

[dimka]

А я вот такое надумал...

Код: Выделить всё

program pr1;
var a,b:array[1..15,1..15] of real; i,n,j:integer; c,d:real;
begin
randomize;
writeln('Vvedite n');
repeat
readln(n);
until n mod 2=0;
 for i:=1 to n do begin
 for j:=1 to n do
  begin
  a[i,j]:=random(20);
  write(a[i,j]:4:0);
  end;
  writeln;
  end;
 for i:=1 to n do
 for j:=1 to n do
  begin
  b[i,j+1]:=a[i,j];
  b[i,j]:=a[i,j+1];
  a[i,j]:=b[i,j];
  a[i,j+1]:=b[i,j+1];
  j:=j+1;
  end;
 for i:=1 to n do
 begin
  for j:=1 to n do
  begin
      write(a[i,j]:5:0);
  end;
   writeln;
 end;
 readln;
  end.

Извините, но я не вижу как добавлять отзыв. Научите пожалуйста.

[dr.Jekill]

Извините, но я не вижу как добавлять отзыв. Научите пожалуйста.

n однозначно может быть любой. Мне кажется стоит остановиться на моём варианте, хотя решать Вам.

Чтобы добавить отзыв, щелкните на кнопку справа от названия темы, на ней написанно "Карта" или что-то подобное. Если Вы наведете на нее указатель мыши и задержите некоторое время то отобразится hint "Добавить отзыв для dr.Jekill"

[dimka]

У меня напротив вас нету такой кнопки... Не знаю как добавить. И я был прав, n - четное и моя задача правильная.

[AiK]

dr.Jekill, у вас с пробелами принципиальная взаимная нелюбовь?

[dr.Jekill]

И я был прав, n - четное и моя задача правильная.

Если Вы настаиваете, то:

Код: Выделить всё

uses crt;
type mass=array[1..50,1..50] of integer;
var a,b:mass;
i,j,n:byte;
buf:integer;

 procedure WriteMass(massiv:mass);
 var ip,jp:byte;
 begin
 for ip:=1 to n do
  begin
    writeln;
    for jp:=1 to n do
    write(massiv[ip,jp],' ');
  end;
 end;

 begin
 clrscr;
 writeln('Zadaite razmernost massiva: ');
 readln(n);
 writeln('Vvodite elementy: ');
 for j:=1 to n do
  begin
   clrscr;
   writeln('Stolbec #',j);
   for i:=1 to n do
    begin
     write('Stroka ',i,' : ');
     readln(a[i,j]);
    end;
  end;
 for j:=1 to n do
 for i:=1 to n do
 if (j mod 2 = 0) then
  begin
   b[i,j-1]:=a[i,j];
   b[i,j]:=a[i,j-1];
  end
  else b[i,j]:=a[i,j];
  clrscr;
  writeln('ISHODNYI MASSIV');
  WriteMass(a);
  writeln;
  readln;
  writeln('RESULTIRUIUSCHII MASSIV');
  WriteMass(b);
  readln;
end.

[dr.Jekill]

dr.Jekill, у вас с пробелами принципиальная взаимная нелюбовь?

Почему Вы так думаете?

[AiK]

Почему Вы так думаете?

потому что одно из ваших сообщений мне пришлось редактировать, вставляя пробелы, чтобы код браузер в одну строку не отображал.

У меня напротив вас нету такой кнопки

Зелёная кнопка с текстом спасибо. Покрасил для слабовидящих.

[Naeel Maqsudov]

AiK, с пробелами - это был какой-то глюк проводника. Он уже порешал это вроде.

[dr.Jekill]

Да, была проблема. Например, заключаю исходный текст в тег "code", оправляю сообщение, и на форуме оно отображается в одну строку.
Но теперь все нормально.

[dimka]

Зелёная кнопка с текстом спасибо. Покрасил для слабовидящих.

Все равно нет такой кнопки у меня...(