Задача 4 Урок 14

Primary tabs

Submitted by alterMann on Fri, 08/27/2021 - 11:57

Forums:

Задача 4 Урок 14

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):
- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -
-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

var
   m, n, i, j: integer;
   procedure line(j, n: integer);
    begin
      while (j <= n) do
       begin
         if ((i mod 2) <> 0) then
            write('- ')
         else
            write('+ ');
         j:= j + 1;
       end;
    end;

begin
  i:= 1;
  j:= 1;
  m:= 5;
  n:= 6;
  while (i <= m) do
  begin
    line(j, n);
    writeln();
    i:= i + 1;
    j:= 1;
  end;
  readln();
end.
  • Log in to post comments
  • 795 reads
vedro-compota's picture

vedro-compota

Sun, 08/29/2021 - 12:14

решите без глобальных

_____________
матфак вгу и остальная классика =)

alterMann

Sun, 08/29/2021 - 22:41

Переделал без глобальных переменных.

var
   m, n, i, j: integer;
   procedure line(a, b, n: integer);
    begin
      while (a <= n) do
       begin
         if ((b mod 2) <> 0) then
            write('- ')
         else
            write('+ ');
         a:= a + 1;
       end;
    end;

begin
  i:= 1;
  j:= 1;
  m:= 5;
  n:= 6;
  while (i <= m) do
  begin
    line(j, i, n);
    writeln();
    i:= i + 1;
    j:= 1;
  end;
  readln();
end.