Question

20 БАЛЛОВ!! Напишите, пожалуйста, программу. Паскаль. Вывести квадрат 5х5 из чисел от 1 до 25 “змейкой”. В первой строкеот 1 до 5, во второй от 10 до 6, в третьей 11 до 15 и т.д.

Answer 1

const

 n = 5;

var

 a: array[1..n, 1..n] of integer;

 k, c, i, j: integer;

begin  

 c := 1;

 k := 1;

 while c <= n do  

 begin

   for i := 1 to n do  

     begin  

       a[c, i] := k;

       k := k + 1;  

     end;  

   c := c + 1;

   if c>n then break;

   for i := n downto 1 do  

     begin  

       a[c, i] := k;

       k := k + 1;  

     end;  

   c := c + 1;

 end;

 for i := 1 to n do  

   begin

     for j := 1 to n do  

       write(a[i, j]:3);

     writeLn;

   end;  

end.

Answer 2

Конечно, вот программа на языке Паскаль, которая выводит квадрат 5x5 чисел от 1 до 25 "змейкой":

pascalCopy code
program SnakeMatrix;

var
  i, j, num: integer;

begin
  num := 1;

  for i := 1 to 5 do
  begin
    if i mod 2 = 1 then
    begin
      for j := 1 to 5 do
      begin
        write(num, ' ');
        num := num + 1;
      end;
    end
    else
    begin
      num := num + 4;
      for j := 1 to 5 do
      begin
        write(num, ' ');
        num := num - 1;
      end;
      num := num + 6;
    end;

    writeln;
  end;

  readln;
end.

Эта программа создает квадрат 5x5, где числа выводятся "змейкой", как описано в вашем вопросе.