Урок 14.1 Задача 7
Primary tabs
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- - - - - - - - - - - - - - - - - - - - - - - -- для вывода очередной строки используйте процедуру.
var a, b, i: integer; procedure stroka (var x: integer); // процедура принимает ширину строки var j: integer; // локальная переменная для счетчика цикла в процедуре begin j := 0; // сбрасываем счетчик перед циклом repeat j:=j+1; write('- '); until (j = x); // цикл работает, пока счетчик не сравняется с шириной writeln(); // переносим строку end; begin a :=7; // ширина флага b :=5; // высота флага repeat i:=i+1; stroka (a); // передаем в процедуру значение ширины флага (строки) until (i = b); // цикл работает, пока счетчик не сравняется с высотой readln(); end.
Вывод в консоли:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
- Log in to post comments
- 224 reads