Урок 24 Задача 8

Урок 24 Задача 8:

Напишите программу, которая выводит матрицу из единиц размерами M на N, напр. для M=2 и N=4 мы должны получить результат:

1 1 1 1
1 1 1 1

-- оформите решение программы в виде класса, который (должны быть выполнены все пункты):

решает задачу вызовом метода do() (без параметров)
в конструктор принимает значения M и N (и хранит их в виде собственных полей)
для вывода строки с указанным количеством единиц использует внутренний метод str(), принимающий на вход длину строки

type
  Posledovatelnost = class
  public
    chisloN, chisloM: integer; // поля
    constructor create(chisloMValue, chisloNValue: integer);
    procedure doing;
  end;

procedure Posledovatelnost.doing;
var
  i: integer;

procedure str(N: integer);
var
  i: integer;
begin
  for i:=1 to N do
    write (1, ' ');
  writeln;
end;

begin
  for i:=1 to self.chisloM do
    str(self.chisloN);
end;

constructor Posledovatelnost.create(chisloMValue, chisloNValue: integer);
begin
  self.chisloM := chisloMValue;
  self.chisloN := chisloNValue;
end;

var
  primer: Posledovatelnost; // переменная типа класса Posledovatelnost
begin
  primer := Posledovatelnost.create(2, 4);  // создаем объект, передаем значения
  primer.doing;                           // вызываем метод
  readln();
end.