Решение №4 из главы 14. Вывод на экран прямоугольного флага N×M вида .Для вывода очередной строки используйте подпрограмму

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

Задача №4

program pascal_matrica4;
var i,j,row,column : integer; // секция обьявления переменных
 
procedure AddEven( column_length, counter : integer;  symbol1, symbol2 : string ); // начало обьявления процедуры
var j : integer; // локальная переменная
begin // начало тела процедуры
for j:=1 to column_length do // вложенный цикл с  выводом  колонок 
begin
if ( counter mod 2 <> 0 )then
  write(symbol1) // вывод символа в нечетной строке
else
  write(symbol2); // вывод символа в четной строке
end;
end; // завершение тела процедуры
 
begin // начало тела основной программы
row:=5; 
column:=10;
for i:=1 to row do // внешний цикл вывода строки
begin
  AddEven( column, i ,'x','о'); // Вызов процедуры и передача аргументов
  writeln(); // перенос строки
end;
readln();  
end.// завершение тела основной программы

Key Words for FKN + antitotal forum (CS VSU):

vedro-compota's picture

подпрограмма должна выводить всю строчку, а не один очередной символ

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