Задание 4 Урок 14
Primary tabs
Задание 4 Урок 14
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):
- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -
-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.
var n,m,main_counter: integer; character: char; procedure string_x(x: integer; y: char); var procedures_counter: integer; begin for procedures_counter := 1 to x do write(y, ' '); end; begin write('Введите значения N и M через пробел и нажмите ENTER: '); readln(n,m); for main_counter := 1 to m do begin if ((main_counter mod 2) = 0) then character := '+' else character := '-'; string_x(n,character); writeln(); end; readln(); end.
- Log in to post comments
- 1196 reads
vedro-compota
Sun, 11/22/2020 - 17:02
Permalink
перенести принятие решения о
перенести принятие решения о том как ой именно символ выводить в процедуру (на вход подавать номер строки).
_____________
матфак вгу и остальная классика =)