Урок 14.2 Задача 3
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг 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.
Вывод в консоли:
- - - - - - - - - - + + + + + + + + + + - - - - - - - - - - + + + + + + + + + + - - - - - - - - - - + + + + + + + + + +
- Log in to post comments
- 133 reads