Решение №4 из главы 14. Вывод на экран прямоугольного флага N×M вида .Для вывода очередной строки используйте подпрограмму
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках) ,для вывода очередной строки используйте подпрограмму, принимающую на вход нужные аpгументы.
- - - - - - -
+ + + + + +
- - - - - - -
+ + + + + +
- - - - - - -
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.// завершение тела основной программы
- Log in to post comments
- 1657 reads
vedro-compota
Thu, 05/14/2020 - 19:38
Permalink
подпрограмма должна выводить
подпрограмма должна выводить всю строчку, а не один очередной символ
_____________
матфак вгу и остальная классика =)