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

Урок 14

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

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

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

var  n, m, i: integer;
     b: boolean;

  procedure p1(x: boolean; y: integer);
  var j : integer;
  begin
    if x then
    begin
      for j := 1 to y do
      write('-', ' ');
    end
    else
    begin
      for j := 1 to y do
        write('+', ' ');
    end;
    writeln();
  end;

begin
  writeln('Vvedite shirinu flaga N');
  readln(n);
  writeln('Vvedite visotu flaga M');
  readln(m);
  for i := 1 to m do
  begin
    b := not b;
    p1(b, n);
  end;
readln();
end.

КОНСОЛЬ

Vvedite shirinu flaga N
15
Vvedite visotu flaga M
5
- - - - - - - - - - - - - - -
+ + + + + + + + + + + + + + +
- - - - - - - - - - - - - - -
+ + + + + + + + + + + + + + +
- - - - - - - - - - - - - - -