Урок 14.2 Задача 3

Урок 14.2 Задача 3:

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

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

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

var
  a, b, i: integer;

procedure stroka (x, z: integer);
var j: integer;           // локальная переменная для счетчика в процедуре
begin
  for j:=1 to x do
    if (z mod 2 = 1) then // через четность/нечетность номера строки  определяем, какие символы выводить
      write('- ')
    else
      write('+ ');
end;

begin
  a := 10;                // ширина флага (количество символов)
  b := 6;                 // высота флага (количество строк)
  for i:=1 to b do        // счетчик строк (высоты флага)
  begin
    stroka (a, i);        // передаем ширину и номер строки
    writeln ();           // переходим на новую строку
  end;
  readln();
end.

Вывод в консоли:

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