Урок 14.1 Задача 7

Урок 14.1 Задача 7:

Составьте программу, которая выводит на экран прямоугольный флаг 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. 

Вывод в консоли:

- - - - - - - 
- - - - - - - 
- - - - - - - 
- - - - - - - 
- - - - - - -