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

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

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

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -

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

var N, M, i : integer;
    a, b : char;

procedure flag(x : integer; y : char);
var i : integer;
begin
  for i := 1 to x do //вывод символа
    write(y);
end;

begin
  write('Enter the length and width of the flag');
  readln(N, M);
  a := '-';
  b := '+';
  for i := 1 to M do
  begin
    if i mod 2 <> 0 then //находим нужный символ
      flag(N, a)
    else
      flag(N, b);
    writeln();
  end;
  readln();
end.