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

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

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

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

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

Решение:

program u14z04;
var m,n,i,j: integer;
procedure stroka(x:char);
begin
  for j:=1 to m do
    write(x);
  writeln();
end;
begin
  writeln('vvedite m & n');
  readln(m,n);
  for i:=1 to n do
  begin
    if (i mod 2 = 0) then
      stroka('+')
    else
      stroka('-');
  end;
  readln();
end.

Консоль:

vvedite m & n
5 4
-----
+++++
-----
+++++